COBOL post processing program IN25COB2 abends with S0C1 at +1526 in IN25COB2.

Products

• InterTest - Batch
• InterTest - CICS

Issue/Introduction

 When post processing a InterTest for CICS COBOL program into the PROTSYM repository the IN25COB2 program abends with a S0C1 .

 

Cause

The VSAM  PROTSYM repository file is corrupted.  The SAME program is successfully post processed to a different PROTSYM file.

When attempting to delete the program in question from the corrupted PROTSYM file, the following error message is issued:  

UTIL001 DELETE=pgmname

UTIL101 INVALID RECORD ON FILE. UNLOAD AND RELOAD OF FILE RECOMMENDED 

Resolution

Rebuild and reload all the programs in the corrupted PROTSYM file.  

The following example reorganizes or can be used to increase the size of the PROTSYM. The example also UNLOADS the PROTSYM file to TAPE. You can also UNLOAD the programs to a permanent file on DASD.

This job unloads all programs, deletes and defines the PROTSYM cluster using IDCAMS, initializes the PROTSYM, reloads all programs, and generates a PROTSYM file report on the contents of the file.

Note: back up the PROTSYM symbolic repository before running this job.

//UTILITY  JOB

//UNLOAD    EXEC PGM=IN25UTIL

//STEPLIB DD DISP=SHR,DSN=CAI.CAVHLOAD

//SYSUDUMP DD SYSOUT=*

//MESSAGE  DD SYSOUT=*

//UNLOAD   DD DISP=(,PASS),

//            UNIT=TAPE,

//            VOL=SER=RELDTAP,

//            LABEL=(,NL),

//            DCB=(RECFM=FB,LRECL=2042,BLKSIZE=20420)

//PROTSYM  DD DSN=CAI.PROTSYM,DISP=SHR

//CARDS    DD *

UNLOAD=ALL

/*

Allocate, initialize and RELOAD PROTSYM symbolic repository.

//IDCAMS   EXEC PGM=IDCAMS,COND=(0,NE,UNLOAD)

//SYSUT1   DD  UNIT=SYSDA,VOL=SER=SYMVOL,DISP=SHR

      DELETE 'CAI.PROTSYM'

      DEFINE CLUSTER (NAME(CAI.PROTSYM) -

                  VOLUME(SYMVOL)   -

                  FILE(SYSUT1)     -

                  CYLINDERS(20)    -

                  CISZ(2048)       -

                  RECSZ(2040 2040) -

                  SHR(4 4)         -

                  NUMBERED)        -

     DATA (NAME(CAI.PROTSYM.DATA))

/*

//RELOAD   EXEC PGM=IN25UTIL,COND=(0,NE,UNLOAD)

//STEPLIB  DD DSN=CAI.CAVHLOAD,DISP=SHR

//SYSUDUMP DD SYSOUT=*

//MESSAGE  DD SYSOUT=*

//RELOAD   DD DISP=(OLD,KEEP),   

//     UNIT=TAPE,

//     VOL=SER=RELDTAP,

//     LABEL=(,NL),

//     DCB=(RECFM=FB,LRECL=2042,BLKSIZE=20420) 

//PROTSYM  DD DSN=CAI.PROTSYM,DISP=SHR

//CARDS    DD *

PASSWORD=12345678

INITIALIZE

RELOAD=ALL

REPORT

/*

//