Previous Topic: PRINT and INDEX Commands

Next Topic: Sample Index of a CICS Data Set

Job Stream to Print Dumps and Source Listing

The following sample job stream prints selected dumps for program COBDEMO and uses CA InterTest for CICS to print the program's source listing. The first step prints the requested dumps and the index of the dump data set; the second step prints the saved listing for program COBDEMO.

Note: The CA SymDump for CICS load library must be the first library in STEPLIB.

//YOURNAME      JOB YOURJOBINFO 
//*Step 1 prints dumps for COBDEMO and lists all dumps in the data set
//STEP1    EXEC PGM=IN25PDMP,REGION=4M
//STEPLIB  DD  DSN=CAI.CABALOAD,DISP=SHR         CA SymDump for CICS load library
//         DD  DSN=CAI.CAVHLOAD,DISP=SHR         CA Testing and Fault Management 
library
//         DD  DSN=your.CICS.LOADLIB,DISP=SHR    CICS load library
//PROTDMP  DD  DSN=SYMDUMP.PROTDMP,DISP=SHR      CA SymDump for CICS data set
//DFHDMPDS DD  DSN=&SYMDFILE,DISP=(,PASS),UNIT=SYSDA,
//             DCB=(RECFM=VB,LRECL=4092,BLKSIZE=4096),
//             SPACE=(CYL,(3,1))
//DFHPRINT DD  SYSOUT=*
//SYSPRINT DD  SYSOUT=*
//REPORT   DD  SYSOUT=*                          Output data set
//SYSIN    DD  DUMMY,DCB=BLKSIZE=80
//DFHTINDX DD  SYSOUT=*
//SYMSYSIN DD  *
PRINT FROMDATE=03012000,TODATE=03042000,PROGRAM=COBDEMO   Print specifications 
INDEX                                                     Index specifications
/*
//*Step 2 prints the program listing for COBDEMO
//STEP2    EXEC    PGM=IN25UTIL
//STEPLIB  DD  DSN=CAI.CAVHLOAD,DISP=SHR      CA InterTest load library
//SYSUDUMP DD  SYSOUT=*
//MESSAGE  DD  SYSOUT=*
//OUTPUT   DD  SYSOUT=*,                         Output data set
               DCB=(RECFM=FBA,LRECL=121,BLKSIZE=2420)
//PROTSYM  DD  DSN=INTRTST.PROTSYM,DISP=SHR
//CARDS    DD  *
PRINT=COBDEMO
/*
//

In the previous example: