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

Products

• InterTest - CICS
• InterTest - Batch
• InterTest VSE - CICS

Issue/Introduction

Problem:   

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

Environment: 

Environment Z/OS batch JCL. 

Cause: 

The VSAM  PROTSYM repository file that we are post processing the program to is corrupt. The user was able to successfully post process the SAME program to a different PROTSYM file.

When the client attempted to delete the program in question from the corrupt PROTSYM file they received error message. 

UTIL001 DELETE=G8PD13CX

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

Resolution:

Once the client rebuilt and reloaded all the programs in the corrupt PROTYSM file they were able to load the problem program into the PROTSYM file.

The following example JCL is located in the Testing and Fault Management guide Chapter Maintaining a PROTSYM File Topic Reorganizing the Symbolic 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.

Remember to back up the PROTSYM symbolic repository before running this job.

//UTILITY  JOB

//UNLOAD    EXEC PGM=IN25UTIL

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

//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.CAILIB,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

/*

// 

Additional Information: 

The R 9.1 CA InterTest for CICS r 9.1 Testing and Fault Management Symbolic guide can be found at this link.

Environment

Release: OSINBV00200-9.1-InterTest-Batch
Component: