CA InterTest

 View Only

Tuesday Tip: How to Change the CA InterTest for CICS default passwords. 

Nov 11, 2014 05:45 PM

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)                                                

//

Statistics
0 Favorited
0 Views
0 Files
0 Shares
0 Downloads

Related Entries and Links

No Related Resource entered.