Created On: 22 March 2011
Problem:
The Micro Focus supplied version of the IMS REQUATE macro does not produce EQU statements for Access Registers, a SAVE area DSECT, CSWA_LEN or DWA_LEN.
Compile the following Assembler code to show the failure...
TEST001 CSECT
*
LAM AR1,AR3,0(AR5)
LA R1,CSWA_LEN
LA R2,DLWA_LEN
USING R8,SAVEAREA
ST R2,SAVER2
*
REQUATE AR=YES,SAVE=YES
*
END
==============================================================
Micro Focus Assembler version V3.0.18 07/21/04 Listing as of 03/22/11 21.56
LOC DATA ADR1 ADR2 LINE LABEL OP OPERANDS
000000 1 TEST001 CSECT
2 *
000000 9A000000 000000 3 LAM AR1,AR3,0(AR5)
*** ERROR *** ASMCM0057S : Invalid label or symbol
*** ERROR *** C:\\MFE_PROJECTS\\PROJECTS\\BJP_ASM_USERID\\TESTREQ.ASM(3,19)
000004 41100000 000000 4 LA R1,CSWA_LEN
*** ERROR *** ASMCM0057S : Invalid label or symbol
*** ERROR *** C:\\MFE_PROJECTS\\PROJECTS\\BJP_ASM_USERID\\TESTREQ.ASM(4,21)
000008 41200000 000000 5 LA R2,DLWA_LEN
*** ERROR *** ASMCM0057S : Invalid label or symbol
*** ERROR *** C:\\MFE_PROJECTS\\PROJECTS\\BJP_ASM_USERID\\TESTREQ.ASM(5,21)
00000C 6 USING R8,SAVEAREA
*** ERROR *** ASMCM0084S : Invalid relocatable symbol
*** ERROR *** C:\\MFE_PROJECTS\\PROJECTS\\BJP_ASM_USERID\\TESTREQ.ASM(6,25)
00000C 50200000 000000 7 ST R2,SAVER2
*** ERROR *** ASMCM0057S : Invalid label or symbol
*** ERROR *** C:\\MFE_PROJECTS\\PROJECTS\\BJP_ASM_USERID\\TESTREQ.ASM(7,21)
8 *
Compile the following Assembler code to show the failure...
TEST001 CSECT
*
LAM AR1,AR3,0(AR5)
LA R1,CSWA_LEN
LA R2,DLWA_LEN
USING R8,SAVEAREA
ST R2,SAVER2
*
REQUATE AR=YES,SAVE=YES
*
END
==============================================================
Micro Focus Assembler version V3.0.18 07/21/04 Listing as of 03/22/11 21.56
LOC DATA ADR1 ADR2 LINE LABEL OP OPERANDS
000000 1 TEST001 CSECT
2 *
000000 9A000000 000000 3 LAM AR1,AR3,0(AR5)
*** ERROR *** ASMCM0057S : Invalid label or symbol
*** ERROR *** C:\\MFE_PROJECTS\\PROJECTS\\BJP_ASM_USERID\\TESTREQ.ASM(3,19)
000004 41100000 000000 4 LA R1,CSWA_LEN
*** ERROR *** ASMCM0057S : Invalid label or symbol
*** ERROR *** C:\\MFE_PROJECTS\\PROJECTS\\BJP_ASM_USERID\\TESTREQ.ASM(4,21)
000008 41200000 000000 5 LA R2,DLWA_LEN
*** ERROR *** ASMCM0057S : Invalid label or symbol
*** ERROR *** C:\\MFE_PROJECTS\\PROJECTS\\BJP_ASM_USERID\\TESTREQ.ASM(5,21)
00000C 6 USING R8,SAVEAREA
*** ERROR *** ASMCM0084S : Invalid relocatable symbol
*** ERROR *** C:\\MFE_PROJECTS\\PROJECTS\\BJP_ASM_USERID\\TESTREQ.ASM(6,25)
00000C 50200000 000000 7 ST R2,SAVER2
*** ERROR *** ASMCM0057S : Invalid label or symbol
*** ERROR *** C:\\MFE_PROJECTS\\PROJECTS\\BJP_ASM_USERID\\TESTREQ.ASM(7,21)
8 *
Resolution:
A corrected version of the REQUATE macro has been created and will be included in future versions of Mainframe Express. Until that time, copy the modified version of REQUATE.MAC, which is attached to this Knowledge Base article, to your project and recompile it.
Incident #2451519
Attachments
Old KB# 33735
#EnterpriseDeveloper
#ASSEMBLERREQUATE
#MFDS