The equates need to be subtracted from the CSECT label. For example, this
works for me:
MACRO
ZZZZ
LCLA &A0000L
V1 EQU (A00100-TESTCS)
V2 EQU (A00000-TESTCS)
V3 EQU 4096-V1-V2
&A0000L SETA 4096-V1-V2
AIF (&A0000L LT X'20').SPERR
DC A(&A0000L)
DC A(V3)
MEND
TESTCS CSECT
A00000 DS 0H
....
....
A00100 DS 0H
ZZZZ
REPADDR DS CL80
REPECB DC F'0'
SVA DS 18F
END TESTCS
The listing I got with the invocation of ZZZZ was:
49 ZZZZ
0004A 50+V1 EQU (A00100-TESTCS)
00000 51+V2 EQU (A00000-TESTCS)
00FB6 52+V3 EQU 4096-V1-V2
00004A 0000
00004C 00000FB6 53+ DC A(4022)
000050 00000FB6 54+ DC A(V3)
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf
Of Leland C. Sheppard
Sent: Sunday, January 06, 2008 10:23 PM
To: [email protected]
Subject: Conditional Assembly question
For the code in line 102, I am getting the assembly error on line 117:
> 000000 0D9E 102 A00000L DC
> AL2(4096-(A00100-A00000)) FREE SPACE IN A00000
>
> 00DFC 103 A00100L EQU
> X'1000'-(C00000-A00100),,C'N' FREE SPACE IN A00100
>
> 00DF8 104 C00000L EQU
> X'1000'-(E00000-C00000) FREE SPACE IN C00000
>
> ...
>
> 117 AIF (A00000L LT
> X'20').SPERR
>
> ** ASMA154E OPERAND MUST BE ABSOLUTE, PREDEFINED SYMBOLS; SET TO ZERO
> - OPENC/A00000L
>
>
>
The way I read the assembler reference, it looks to me like the above
should work. The difference between A00100 and A00000 will NOT change
based on relocatability. The difference will always be the same.
I have tried it using hex DCs as well as adcons and equates, etc. as
shown in lines 103 and 104 with the same results.
Anyone have any thoughts or suggestions on this?
Thanks for your time.
Leland
--
Leland Sheppard
Placerville, California, USA
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
