LISTING:=======- Loc Object Code Addr1 Addr2 Stmt Source Statement
HLASM R6.0 2020/03/18 13.41 0
1 ictl 1,79,2
... - 24 copy
cpxhdr
25=*
00010007 26=*
Called with sysparm = Syslevel || Subsysid 00020007
27=*
00030007 0
29=&syslevel setc '&sysparm'(1,1) syslevel
00060007 30=&syslevelId setc
'&sysparm'(1,3) syslevel || subsysId 00070007 0
32=* ------ Select parameters per system
00090013 0 34= aif
('&syslevel' eq 'P').cpxhdrSysP, -00110014
= ('&syslevel' eq 'T').cpxhdrSysT,
-00120014 =
('&syslevel' eq 'S').cpxhdrSysS, -00130014
= ('&syslevel' eq 'D').cpxhdrSysD,
-00140016 =
('&syslevel' eq '#').cpxhdrSys# 00141016
35=.cpxhdrSys# anop ,
6
=&alcsId setc 0059401 '#'
00595016 ** ASMA144E Begin-to-continue columns not blank - &alcsId
** ASMA435I Record 68 in
ZLDATA.ALCS.IBM.GEN.SRC.COM(CPXHDR) on volume: PRMA13
36=&acbName setc '####'
00596016
37=&defaultId setc '#######'
00597016 38=&userid1 setc
'#######' 00597118
39= ago .startCpxhdr
00598016 40=.startCpxhdr
anop , 4
= mnote *,'alcsI 0061001d is &alcsId'
00611018 ** ASMA144E Begin-to-continue columns not blank -
mnote **
ASMA435I Record 76 in ZLDATA.ALCS.IBM.GEN.SRC.COM(CPXHDR) on volume: PRMA13
...
On Wednesday, March 18, 2020, 03:47:25 PM GMT, Ian Worthington
<[email protected]> wrote:<snip>
