ibm:vm370-lib:macro:goto.macro_src
Table of Contents
GOTO Source
References
- Fixes Applied : 1
- This Source Date : Friday, December 8, 1978
- Last Fix ID : [R12407DK]
Source Listing
- GOTO.MACRO.txt
- MACRO 00001000
- &NAME GOTO &SUBR,&PARM= 00002000
- AIF ('&NAME' EQ '').S1 LABEL OMITTED? 00003000
- &NAME DS 0H 00004000
- .S1 AIF ('&PARM' EQ '').S2 "PARM" NOT GIVEN? 00005000
- LA R2,&PARM 00006000
- .S2 AIF (T'&SUBR(1) EQ 'N').S3 IS '&SUBR' NUMERIC? 00007100
- AIF ('&SUBR' EQ 'DMKDSPCH').S6 ADCON IN PSA? 00009000
- L R12,=A(&SUBR) 00010000
- AGO .S5 00011000
- .S3 AIF (&SUBR(1) EQ 12).S5 FOR &SUBR NUMERIC IS IT 12 00012000
- LR R12,R&SUBR(1) 00013000
- .S5 BR R12 00014100
- MEXIT 00019000
- .S6 L R12,ADSPCH 00020000
- AGO .S5 00022000
- MEND 00024000
ibm/vm370-lib/macro/goto.macro_src.txt · Last modified: 2023/08/06 13:38 by Site Administrator