Or, LGFI R1,TEST_LEN
-----Original Message-----
From: IBM Mainframe Assembler List [mailto:[email protected]]
On Behalf Of Kharitonov, Evgeny
Sent: 30 May 2016 18:34
To: [email protected]
Subject: Re: EQUATE symbol
Hello,
The following worked for me:
L R1,=A(TEST_LEN)
...
000188 00001000 7258 =A(TEST_LEN)
...
000E00 8940 TEST_HEAD DS 0D
000E00 8941 TEST_BODY DS XL4096
01000 8942 TEST_LEN EQU *-TEST_HEAD
Regards, Evgeny.
-----Original Message-----
From: IBM Mainframe Assembler List [mailto:[email protected]]
On Behalf Of michealbutz
Sent: Monday, May 30, 2016 7:14 PM
To: [email protected]
Subject: Re: EQUATE symbol
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= DC CL8'&SYSDATE'
001658 F0F561F3F061F1F6 + DC CL8'05/30/16'
2773= DC CL8'&SYSTIME'
001660 F1F04BF0F9404040 + DC CL8'10.09'
01668 2774=WS_LEN EQU *-WS_DSECT
001668 00000 01670 2775 HRTCPRD RSECT
001668 00000000 2776 WS_LENGTH DC A(WS_LEN)
** ASMA032E Relocatable value or unresolved symbol found when absolut
** ASMA435I Record 698 in IBMUSER.HERCULES.SERVER(HRTCPRD) on volume:
00166C 00000001 2777 WS_LEN1 DC A(L'WS_LEN)
** ASMA019W Length of EQUated symbol WS_LEN undefined; default=1
** ASMA435I Record 699 in IBMUSER.HERCULES.SERVER(HRTCPRD) on volume:
2778 DROP R3,R4
i 2779 *YEXIT DC A(MYEXIT1,SUBTA
Active Usings: THREAD_DSECT,R5 EZASMGW,R7 MYTIE,R8 WS_DSECT,R13
R-Loc Object Code Addr1 Addr2 Stmt Source Statement
-----Original Message-----
From: IBM Mainframe Assembler List [mailto:[email protected]]
On Behalf Of Binyamin Dissen
Sent: Monday, May 30, 2016 11:47 AM
To: [email protected]<mailto:[email protected]>
Subject: Re: EQUATE symbol
No such issue.
Show your code and the error message.
On Mon, 30 May 2016 10:39:27 -0400 michelbutz
<[email protected]<mailto:[email protected]>>
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'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 be appreciated
--
Binyamin Dissen
<[email protected]<mailto:[email protected]>>
http://www.dissensoftware.com
Director, Dissen Software, Bar & Grill - Israel
Should you use the mailblocks package and expect a response from me, you
should preauthorize the dissensoftware.com domain.
I very rarely bother responding to challenge/response systems, especially
those from irresponsible companies.
---
This email has been checked for viruses by Avast antivirus software.
https://www.avast.com/antivirus
