Sometimes the PROTSYM symbolic repository fills up during compile or assembly time due to original DASD allocation was not large enough when the PROTSYM was first defined using the IDCAMS utility program. The PROTSYM file batch utility program IN25UTIL is used to maintain the PROTSYM file. This utility is outlined in the Testing and Fault Management Symbolic Guide.
Since increasing the size of the PROTSYM DASD allocation requires a IDCAMS delete and define of the VSAM cluster you will have to de allocate the cluster from all CICS regions that have allocated the file. This method may not be an option during peak business hours.
The IN25UTIL commands DELETE= or PURGE= parameters may be an option to free space until off hours maintenance can be scheduled. The IN25UTIL parameter PURGE=## is used to purge programs not compiled or assembled within a certain number of days.
The IN25UTIL DELETE= parameter will delete the program specified. It is recommended that you backup the PROTSYM symbolic repository before performing any maintenance on the PROTSYM file.
In the sample JCL below the IN25UTIL REPORT command is used to produce a report on all the programs contained in the PROTSYM file.
The DELETE= command can be used to delete the largest programs or any programs flagged as IN UPDATE MODE.
The following JCL produces a report on the contents of the PROTSYM file. The default password is PASSWORD=12345678
JOBCARD
//REPORT EXEC PGM=IN25UTIL,REGION=4000K
//STEPLIB DD DSN=INTERT85.E0904.CAILIB,DISP=SHR
//PROTSYM DD DSN=HLQ.PROTSYM,DISP=SHR
//MESSAGE DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//CARDS DD *
PASSWORD=12345678
REPORT
//
The follow JCL purges programs not complied in 99 days.
JOBCARD
//PURGE EXEC PGM=IN25UTIL,REGION=4000K
//STEPLIB DD DSN=INTERT85.E0904.CAILIB,DISP=SHR
//PROTSYM DD DSN=HLQ.PROTSYM,DISP=SHR
//MESSAGE DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//CARDS DD *
PASSWORD=12345678
REPORT
PURGE=99
REPORT
/*
//
The following JCL deletes a program from the PROTSYM file.
JOBCARD
//DELETE EXEC PGM=IN25UTIL,REGION=4000K
//STEPLIB DD DSN=INTERT85.E0904.CAILIB,DISP=SHR
//PROTSYM DD DSN=HLQ.PROTSYM,DISP=SHR
//MESSAGE DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//CARDS DD *
PASSWORD=PROGRAM NAME
REPORT
DELETE=TESTPGM
REPORT
/*
//