The HLASM LangRef is, as far as I can see, very explicit and clear about the effect of the ICTL instruction on the COPY members, viz:
COPY Instruction: The ICTL instruction does not affect the format of statements
brought in by a COPY instruction or generated from a library macro definition.
The assembler processes these statements according to the standard begin, end,
and continue columns described in Field boundaries
However, when I set an ICTL of 1,79,2 and COPY in a member which works
perfectly well without the ICTL, all hell breaks loose, with parts of the seqno
being inserted into the text body.
What have I misunderstood here? (HLASM 6.0 PTF UI56276, if it matters.)
ian
SOURCE:======== ictl 1,79,2
*
---------------------------------------------------------------------
* System-independent comsgen
* Devices are allocated in reserved blocks of 256 devices
* CRIRANGE=(C00000,CA0000),
* ORDRANGE=(1,9999,99990,99999)
* Gaps in existing configuration reserved for IBM tables:
* ord : 7100 - 9500
* cri > c30619 (except c99999)
* cras: at70 - at200
* Reserve AT100-AT150 for system-independant tables
* Reserve AT151-AT200 for system-dependant tables
*
---------------------------------------------------------------------
* isw 17mar20 Add new operator ids, reformat
* ---------------------------------------------------------------------
copy cpxhdr ...
CPXHDR:========*
00010007* Called with sysparm = Syslevel || Subsysid
00020007*
00030007
00050007&syslevel setc '&sysparm'(1,1) syslevel
00060007&syslevelId setc '&sysparm'(1,3) syslevel || subsysId
00070007
00080007* ------ Select parameters per system
00090013
00100007 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
00150007....cpxhdrSys# anop ,
00594016&alcsId setc '#'
00595016&acbName setc '####'
00596016&defaultId setc '#######'
00597016&userid1 setc '#######'
00597118 ago .startCpxhdr
00598016
00599016*
---------------------------------------------------------------------
00600007.startCpxhdr anop ,
00610014 mnote *,'alcsId is &alcsId'
00611018 mnote *,'acbName is &acbName'
00611118 mnote *,'defaultId is &defaultId'
00612015 mnote *,'userid1 is &userid1'
00613018*
00620002 alcs ID=&alcsId,
-00630013 VERSION=0,
-00640002 SOURCE='...',
-00650002 LOAD='...'
00660002*
00670002
(Listing moved to 2nd post for listserv limits)
