Description
Yes, the &SYSCLONE and System symbol can be defined in the SYS1.PARMLIB member IEASYMxx as a one character symbol concatenated to another character in the ACF2 CAISEC00 SYS1.PARMLIB member.
Solution
The &SYSCLONE symbolic, can be used in the SYS1.PARMLIB member IEASYMxx to specify specific characters to be used from the MVS system ID as the symbol. The SYSDEF SYSCLONE statement in IEASYMxx specifies the starting postion and length of the MVS system ID &SYSNAME, syntax: "SYSDEF SYSCLONE(&SYSNAME(start:length))". For example, if the MVS system ID is SYS3, the &SYSCLONE can be set to the character "3" of SYS3 (i.e. the 4th character) as follows:
EDIT SYS1.PARMLIB(IEASYM00) - 01.01 Columns 00001 00072 Command ===> Scroll ===> CSR ****** ***************************** Top of Data ****************************** 000001 SYSDEF SYSCLONE(&SYSNAME(4:1)) ****** **************************** Bottom of Data ****************************
Once &SYSCLONE is defined in IEASYMxx it can be used in the ACF2 CAISEC00 member and be concatenated with another character to point to other ACF2 CAISECxx, CAIACFxx or CAITRCxx members.
For example:
MVS system ID: SYS3
&SYSCLONE defined as: SYSDEF SYSCLONE(&SYSNAME(4:1))
CAISEC00 entry Points to ----------------------- --------- ACF2(&SYSCLONE.0 START) CAIACF30 ACF2(&SYSCLONE.9 START) CAIACF39 TRCE(&SYSCLONE.5 START) CAITRC35 SEC(ACF2(&SYSCLONE.1 ) CAISEC11
The following is a complete example of IEASYMxx, CAISEC00, CAIACFxx and CAITRCxx members using a MVS system ID of SYS3.
EDIT SYS1.PARMLIB(IEASYM00) - 01.01 Columns 00001 00072 Command ===> Scroll ===> CSR ****** ***************************** Top of Data ****************************** 000001 SYSDEF SYSCLONE(&SYSNAME(4:1)) ****** **************************** Bottom of Data ****************************
EDIT SYS1.PARMLIB(CAISEC00) - 01.31 Columns 00001 00072 Command ===> Scroll ===> CSR ****** ***************************** Top of Data ****************************** 000001 ACF2(&SYSCLONE.0 START) 000002 TRCE(&SYSCLONE.6 START) ****** **************************** Bottom of Data ****************************
EDIT SYS1.PARMLIB(CAIACF30) - 01.01 Columns 00001 00072 Command ===> Scroll ===> CSR ************************ TOP OF DATA ************************* 00000001 BACKUP 00000002 TRACEGSO(CONSOLE) *********************** BOTTOM OF DATA ***********************
EDIT SYS1.PARMLIB(CAITRC36) - 01.01 Columns 00001 00072 Command ===> Scroll ===> CSR ****** ***************************** Top of Data ****************************** 000001 SECTRACE SET,ID=TEST2, + 000002 ENABLE,FORMAT=DUMP,DEST=CONSOLE,TRACE=BEFORE, + 000003 JOBNAME=USER01,END ****** **************************** Bottom of Data ****************************
For details on ACF2 CAISECxx, CAIACFxx, CAITRCxx and symbolic substitution see the ACF2 Security for z/OS
Installation Guide, Chapter 3: Installing CA ACF2, section: "Step 11: CA ACF2 System Initialization".
For details on System symbols in PARMLIB see the IBM z/OS System Installation and Management manual, section "System symbols in PARMLIB".
-