How to change the default passwords for the Intertest for CICS r11 CORE and File Transactions

Products

• InterTest - CICS

Issue/Introduction

We need to customize IN25SEC2  to change the password defaults for the Intertest for CICS r11 CORE and FILE transactions.  The r11 documentation only lists the control cards but there is no JCL. 

IN25SEC2 TYPE=INITIAL,SCRNUM=(1,1,1,1)
IN25SEC2 NAME=PROTCORE,PASS=xxxx
IN25SEC2 NAME=PROT$FUN,PASS=xxxx
IN25SEC2 NAME=PROT$OPT,PASS=xxxx
IN25SEC2 NAME=FILEA,PASS=ffff,FPROT=YES
IN25SEC2 NAME=FILEB,PAS S=fffb
IN25SEC2 TYPE=FINAL
END

Where is the JCL to change the default passwords for CORE and FILE?  

Environment

Intertest for CICS r11 used in a CICS region.  The customer wishes to change the default passwords for CORE and FILE.

Resolution

The  Assembly and Link JCL for IN25SEC2 is found in CAVHJCL(CCSASEC2) member.

The following is an example of the JCL:

//IN25SEC2 JOB (######),'TEC NAME',CLASS=D,MSGCLASS=A 
//ASSEM EXEC PGM=ASMA90,REGION=512K, 
// PARM='XREF(SHORT),DECK,NUM,LIST,ALIGN,NOOBJ' 
//* 
//SYSLIB DD DSN=cai.CAVHMAC,DISP=SHR 
// DD DSN=your.CICS.MACLIB,DISP=SHR 
//SYSUT1 DD SPACE=(CYL,(1,1)),UNIT=SYSDA 
//SYSUT2 DD SPACE=(CYL,(1,1)),UNIT=SYSDA 
//SYSUT3 DD SPACE=(CYL,(1,1)),UNIT=SYSDA 
//SYSPUNCH DD DSN=&OBJ,SPACE=(TRK,(1,1)),UNIT=SYSDA, 
// DCB=(BLKSIZE=800,LRECL=80,RECFM=FB),DISP=(,PASS) 
//SYSPRINT DD SYSOUT=A 
//SYSIN DD * 
IN25SEC2 TYPE=INITIAL,SCRNUM=(1,1,1,1) 
IN25SEC2 NAME=PROTCORE,PASS=MAIN 
IN25SEC2 NAME=PROTFILE,PASS=XXXX
IN25SEC2 NAME=FILE1,PASS=WXYZ,FPROT=YES 
IN25SEC2 NAME=FILE2,PASS=ABCD 
IN25SEC2 NAME=PROT$FUN,PASS=$FUN 
IN25SEC2 NAME=PROT$OPT,PASS=$OPT
IN25SEC2 TYPE=FINAL 
END 
/* 
//LINK EXEC PGM=IEWL,PARM='LIST,XREF,MAP',REGION=512K 
//SYSLMOD DD DSN=cai.CAVHLOAD(IN25SEC2),DISP=SHR 
//SYSUT1 DD UNIT=SYSDA,SPACE=(TRK,(10,10)) 
//SYSPRINT DD SYSOUT=A 
//SYSLIN DD DSN=&&OBJ,DISP=(OLD,DELETE) 
//              DD * 
ENTRY IN25SEC2 
NAME IN25SEC2(R) 
// 

      

Additional Information

See the Intertest r11.0 documentation for the instructions on changing the default passwords found under Password Protection.  This is found within the INTERTEST for CICS User Exits.