The following JCL can be used to change the CA InterTest for CICS default passwords words $FUN and MAIN. In the example below $FUN is changed to PFUN and MAIN is changed to PARK. The default passwords are listed is the Installation Guide and can be entered by users to set system options, changed main storage and turnoff CA Intertest for CICS. Password $OPT that protects CA InterTest for CICS options can also be changed by using macro IN25SEC2 NAME=PROT$OPT,PASS=$OPT
The example below is for CTS 4.2 and is linked as IN67SEC2.
For more information please review the Password Protection Chapter of the Installation Guide.
//JOBCARD
//*
//IN25SEC2 EXEC PGM=ASMA90,
// REGION=1024K,
// PARM='XREF(SHORT),DECK,OBJECT,TERM'
//SYSLIB DD DSN=CTS420.GA.CICS.SDFHMAC,DISP=SHR
// DD DSN=CTS420.GA.CICS.SDFHMSRC,DISP=SHR
// DD DSN=INTERT85.CAIOPTN,DISP=SHR
// DD DSN=SYS1.MACLIB,DISP=SHR
// DD DSN=SYS1.AMODGEN,DISP=SHR
//*
//SYSUT1 DD DSN=&SYSUT1,SPACE=(1024,(120,120),,,ROUND),UNIT=VIO,
// DCB=BUFNO=1
//SYSPUNCH DD SYSOUT=B
//SYSTERM DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSLIN DD DSN=&OBJ,SPACE=(3040,(40,40),,,ROUND),UNIT=VIO,
// DISP=(MOD,PASS),
// DCB=(BLKSIZE=3040,LRECL=80,RECFM=FBS,BUFNO=1)
//SYSIN DD *
IN25SEC2 TYPE=INITIAL,SCRNUM=(07,07,07,07)
IN25SEC2 NAME=PROT$FUN,PASS=PFUN
IN25SEC2 NAME=PROTCORE,PASS=PARK
IN25SEC2 TYPE=FINAL
END
/*
//*
//LINKED EXEC PGM=IEWL,
// REGION=512K,
// PARM='LIST,LET,XREF,MAP'
//SYSPRINT DD SYSOUT=*
//SYSLIN DD DSN=&OBJ,DISP=(OLD,PASS)
// DD DDNAME=SYSIN
//SYSLMOD DD DSN=INTERT85.CACICS85,DISP=SHR
//SYSUT1 DD DSN=&SYSUT1,SPACE=(1024,(120,120),,,ROUND),UNIT=VIO,
// DCB=BUFNO=1
//SYSIN DD *
ENTRY IN25SEC2
ALIAS IN25SEC2
NAME IN67SEC2(R)
//