Reporting › Running Reports › Sample JCL

Sample JCL

The example below illustrates multiple-step CA Culprit execution. When using one-step CA Culprit, the ddnames SYS010, SYS011, and/or SYS020 are added to the single step as required.

//JOBNAME      JOB YOUR.JOBCARD.INFORMATION
//JOBLIB       DD      DISP=SHR,DSN=usercv.loadlib
//     DD      DISP=SHR,DSN=ndvrdb.loadlib
//     DD      DISP=SHR,DSN=idms.loadlib
//*
//**********************************************************
//*    CA ENDEVOR/DB CULPRIT REPORTS   *
//**********************************************************
//*
//CULP0        EXEC PGM=CULP0,REGION=2048K
//SYSCTL       DD      DISP=SHR,DSN=idms.sysctl
//CULLIB       DD      DISP=SHR,DSN=ndvrdb.srclib
//SYS004       DD      SYSOUT=*,DCB=(RECFM=FBA,LRECL=133,BLKSIZE=133)
//SYS005       DD      DSN=&.&UPRMWORK.,
//     DISP=(NEW,PASS),UNIT=disk,
//     DCB=(RECFM=FB,LRECL=320,BLKSIZE=1600),
//     SPACE=(CYC,(2,1),RLSE,,ROUND)
//SYSDUMP      DD      SYSOUT=*
//SYSIDMS      DD      *
DMCL=dmcl-name
DICTNAME=dictionary-name
OTHER OPTIONAL SYSIDMS PARAMETERS
/*
//SYSIN        DD      *
=COPY NDVRPT00
=COPY NDVRNAME
=COPY NDVRRxxx
=COPY NDVRPTnn
/*

//*
//CULP1        EXEC PGM=SORT,PARM='MSG=AP',REGION=2048K
//SORTLIB      DD      DSN=sortlib
//SYSIN        DD      SHR,DSN=yourHLQ.CAGJSRC(SORT1)
//SORTIN       DD      DISP=(OLD,DELETE),DSN=&.&UPRMWORK.
//SORTWK01     DD      DSN=&.&WRKAWORK.,UNIT=disk,
//             SPACE=(CYL,(2,1),RLSE,,ROUND)
//SORTWK02     DD      DSN=&.&WRKBWORK.,UNIT=disk,
//             SPACE=(CYL,(2,1),RLSE,,ROUND)
//SORTWK03     DD      DSN=&.&WRKCWORK.,UNIT=disk,
//             SPACE=(CYL,(2,1),RLSE,,ROUND)
//SORTWK04     DD      DSN=&.&WRKDWORK.,UNIT=disk,
//             SPACE=(CYL,(2,1),RLSE,,ROUND)
//SORTOUT      DD      DSN=&.&SPRMWORK.,
//             DISP=(NEW,PASS),UNIT=disk,
//             DCB=(RECFM=F,LRECL=320,BLKSIZE=320),
//             SPACE=(CYL,(2,1),RLSE,,ROUND)
//SYSDUMP      DD      SYSOUT=*
//SYSOUT       DD      SYSOUT=*
//SYSPRINT     DD      SYSOUT=*
//*
//CULP2        EXEC PGM=CULL,REGION=2048K
//SYSCTL       DD      DISP=SHR,DSN=idms.sysctl
//SYS004       DD      SYSOUT=*,DCB=(RECFM=FBA,LRECL=133,BLKSIZE=133)
//SYS005       DD      DISP=(OLD,DELETE),DSN=&.&SPRMWORK.
//SYS006       DD      DSN=&.&UEXTWORK.,
//             DISP=(NEW,PASS),UNIT=disk,
//             DCB=(RECFM=VB,LRECL=1024,BLKSIZE=1028),
//             SPACE=(CYL,(2,1),RLSE,,ROUND)
//SYS008       DD      DSN=&.&NSRTWORK.,
//             DISP=(NEW,PASS),UNIT=disk,
//             DCB=(RECFM=VB,LRECL=1024,BLKSIZE=1028),
//             SPACE=(CYL,(2,1),RLSE,,ROUND)
//SYS007       DD      DSN=&.&SRTPWORK.,
//             DISP=(NEW,PASS),UNIT=disk,
//             DCB=(RECFM=F,LRECL=80,BLKSIZE=80),
//             SPACE=(CYL,(2,1),RLSE,,ROUND)
//SYS011       DD      DSN=indsn,DISP=OLD          ARCHIVE INPUT FILE
//SYS020       DD      DSN=outdsn,DISP=(NEW,KEEP), ARCHIVE OUTPUT FILE
//             DCB=(LRECL=288,BLKSIZE=14400,RECFM=FB),
//             UNIT=tape
//SYSDUMP      DD      SYSOUT=*
//SYSPRINT     DD      SYSOUT=*
//SYSIDMS      DD      *
DMCL=dmcl-name
DICTNAME=dictionary-name
OTHER OPTIONAL SYSIDMS PARAMETERS

/*
//SYS010       DD      *
 DBNAME IS DBNAME
 INPUT IS BOTH
/*
//*
//CULP3        EXEC PGM=SORT,PARM='MSG=AP',REGION=2048K
//SORTLIB      DD      DSN=sortlib,DISP=SHR
//SYSIN        DD      DSN=&.&SRTPWORK.,DISP=(OLD,DELETE)
//SORTIN       DD      DSN=&.&UEXTWORK.,DISP=(OLD,DELETE)
//SORTWK01     DD      DSN=&.&WRKAWORK.,UNIT=disk,
//             SPACE=(CYL,(2,1),RLSE,,ROUND)
//SORTWK02     DD      DSN=&.&WRKBWORK.,UNIT=disk,
//             SPACE=(CYL,(2,1),RLSE,,ROUND)
//SORTWK03     DD      DSN=&.&WRKCWORK.,UNIT=disk,
//             SPACE=(CYL,(2,1),RLSE,,ROUND)
//SORTWK04     DD      DSN=&.&WRKDWORK.,UNIT=disk,
//             SPACE=(CYL,(2,1),RLSE,,ROUND)
//SORTOUT      DD      DSN=&.&SEXTWORK.,
//             DISP=(NEW,PASS),UNIT=disk,
//             DCB=(RECFM=VB,LRECL=1024,BLKSIZE=1028),
//             SPACE=(CYL,(2,1),RLSE,,ROUND)
//SYSOUT       DD      SYSOUT=*
//SYSPRINT     DD      SYSOUT=*
//*
//CULP4        EXEC PGM=CULE,REGION=2048K
//SYS004       DD      SYSOUT=*,DCB=(RECFM=FBA,LRECL=133,BLKSIZE=133)
//SYS006       DD      DISP=(OLD,DELETE),DSN=&.&SEXTWORK.
//SYS008       DD      DSN=&.&NSRTWORK.,DISP=(OLD,DELETE)
//SYS020       DD      DSN=&.&RPT99.,DISP=(NEW,PASS),UNIT=disk,
//             SPACE=(CYL,(1,1))
//SYSJRNL      DD      DUMMY
//J1JRNL       DD      DUMMY
//J2JRNL       DD      DUMMY
//J3JRNL       DD      DUMMY
//SYSIN4       DD      DUMMY,DCB=BLKSIZE=80