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:
| Copyright © 2011 CA. All rights reserved. | Tell Technical Publications how we can improve this information |