How to Change the CA InterTest for CICS PROTSYM symbolic Repository File Password?

Document ID : KB000025907
Last Modified Date : 14/02/2018
Show Technical Document Details

Introduction:

How to Change the PROTSYM symbolic Repository file default password that is used by the IN25UTIL batch utility program. The IN25UTIL utility is used to manage the program source code stored in the PROTSYM symbolic repository.

The CA InterTest for CICS PROTSYM symbolic repository file is a VSAM relative record data set (RRDS). The PROTSYM file supports programming languages COBOL, Assembler and PL/I. Most sites that use CA InterTest for CICS to debug their application programs use the InterTest for CICS symbolic listing feature. The symbolic listing feature requires the client to add a CA InterTest for CICS post processing step to their compile procedure. For example the assembler post processing program is called IN25SYMA. The post processing program IN25SYMA processes the assembler output and loads the information to the PROTSYM file. Application programmers then use the CA InterTest for CICS LIST transaction to display their program listing on the screen and set monitoring options to debug their programs.

The PROTSYM file is managed by the batch IN25UTIL utility program. IN25UTIL maintenance functions are INITIALIZE, PURGE=, DELETE=, PRINT= and REPORT. These functions are documented in the Testing and Fault Management Symbolic Guide.

Functions INITIALIZE, PURGE=, DELETE= require a password in order to execute successfully. The default password is PASSWORD=12345678

If the wrong password is used you will receive message UTIL051 PASSWORD INCORRECT.

Instructions:

The sample JCL below is for Release 8.5 and below. For release 9.1 the library names have changed.

HLQ.CAIMAC  is HLQ.CAVHMAC in r 9.1
HLQ.CAILIB  is HLQ.CAVHLOAD in r 9.1

The default password can be changed by using the IN25SOPT MACRO. The following JCL was used to change the default password to 87654321.

JOBCARD
//ASMSOPT  EXEC PGM=ASMA90,REGION=1024K,                                
//             PARM='XREF(SHORT),NODECK,OBJECT,TERM'                    
//SYSLIB   DD  DSN=HLQ.CAIMAC,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=*                                                 
//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  *                                                        
         IN25SOPT TYPE=CSECT,                                          X
               SYMPSWD=87654321
         END
//LINK    EXEC PGM=IEWL,                                               
//             REGION=512K,                                             
//             PARM='LIST,LET,XREF,MAP'                                 
//SYSLIN   DD  DSN=&OBJ,DISP=(OLD,PASS)                                 
//         DD  DDNAME=SYSIN                                             
//SYSLMOD  DD  DSN=HLQ.CAILIB(IN25SOPT),DISP=SHR    
//SYSUT1   DD  DSN=&SYSUT1,SPACE=(1024,(120,120),,,ROUND),UNIT=VIO,     
//             DCB=BUFNO=1                                              
//SYSPRINT DD  SYSOUT=*                                                 
//*                                                                     
//