Re: EQUATE symbol

2016-05-30 Thread michealbutz
John Thanks for catching it I moved all MF=L macros to WS_DSECT in addition this macro too MYTIEEZASMI TYPE=TASK,STORAGE=DSECT Thanks again -Original Message- From: IBM Mainframe Assembler List [mailto:ASSEMBLER-LIST@LISTSERV.UGA.EDU] On Behalf Of John P. Hartmann Sent: Monday,

Re: EQUATE symbol

2016-05-30 Thread Pieter Wiid
Or, LGFI R1,TEST_LEN -Original Message- From: IBM Mainframe Assembler List [mailto:ASSEMBLER-LIST@LISTSERV.UGA.EDU] On Behalf Of Kharitonov, Evgeny Sent: 30 May 2016 18:34 To: ASSEMBLER-LIST@LISTSERV.UGA.EDU Subject: Re: EQUATE symbol Hello, The following worked for me: LR1,=A

Re: EQUATE symbol

2016-05-30 Thread John P. Hartmann
Looks to me as if the equate is not in the WS_DSECT. Stick WS_DSECT DSECT in front of the EQU. On 05/30/2016 06:14 PM, michealbutz wrote: 016682774=WS_LEN EQU *-WS_DSECT 0016680 01670 2775 HRTCPRD RSECT

Re: EQUATE symbol

2016-05-30 Thread Paul Gilmartin
On 2016-05-30, at 10:14, michealbutz wrote: > > 016682774=WS_LEN EQU *-WS_DSECT > 0016680 01670 2775 HRTCPRD RSECT > 001668 2776 WS_LENGTH DC A(WS_LEN) > ** ASMA032E Relocatable value or

Re: EQUATE symbol

2016-05-30 Thread Kharitonov, Evgeny
Hello, The following worked for me: LR1,=A(TEST_LEN) ... 000188 10007258=A(TEST_LEN) ... 000E00 8940 TEST_HEAD DS 0D 000E00 8941 TEST_BODY DS XL4096 01000

Re: EQUATE symbol

2016-05-30 Thread michealbutz
As you can see WS_LEN is 1668 HRTCPRD is the orignal control section either a DC A(WS_LEN) generates a error and DC A(L'WS_LEN) does as well Thanks 2772= DCCL8'&SYSDATE' 001658 F0F561F3F061F1F6+ DCCL8'05/30/16'

Re: EQUATE symbol

2016-05-30 Thread Binyamin Dissen
No such issue. Show your code and the error message. On Mon, 30 May 2016 10:39:27 -0400 michelbutz wrote: :>Hi :> :>From habit I always do :>WS_LEN. EQU *-WS_DSECT :> :>This time WS_LEN went over 1K and I got an :>Assembly error :> :>I am not sure what type of symbol WS_LEN is :>I think it'

Re: EQUATE symbol

2016-05-30 Thread Sam Siegel
WSDSECTL DC A(L'WSDSECT) WSDSECTX DSECT , DS 1000XL1 DS 1000XL1 DS 1000XL1 DS 1000XL1 DS 1000XL1 DS 1000XL1 WSDSECT EQU WSDSECTX,*-WSDSECTX Note: this will work in a non-dsect situation also. On Mon, May 30, 2016 at 7:39 AM, michelbutz wrote: > Hi > > From habit I always do

EQUATE symbol

2016-05-30 Thread michelbutz
Hi From habit I always do WS_LEN. EQU *-WS_DSECT This time WS_LEN went over 1K and I got an Assembly error I am not sure what type of symbol WS_LEN is I think it's a SETC That means I probably couldn't do WS_LENGTH DC A(WS_LEN) Any help with this ( how to get WS_LEN into a register) would