Execution JCL › One-Step and Five-Step JCL › Five-Step z/OS JCL—Central Version

Five-Step z/OS JCL—Central Version

Here is sample five-step z/OS JCL to execute CA Culprit batch jobs, when running central version:

CA Culprit five-step (central version) (z/OS)

//CULP0    EXEC PGM=CULP0,REGION=1024K
//STEPLIB  DD   DSN=idms.dba.loadlib,DISP=SHR
//         DD   DSN=idms.loadlib,DISP=SHR
//SYS004   DD   SYSOUT=A,DCB=(RECFM=FBA,LRECL=133,BLKSIZE=1330)
//SYS005   DD   DSN=&&uprmwork.,DISP=(NEW,PASS),
//             UNIT=disk,SPACE=(CYL,(5,2)),
//             DCB=(RECFM=FB,LRECL=320,BLKSIZE=1600)
//CULLIB   DD   DSN=yourHLQ.CAGJSRC,DISP=SHR
//sysctl   DD   DSN=idms.sysctl,DISP=SHR
//dcmsg    DD   DSN=idms.sysmsg.ddldcmsg,DISP=SHR
//SYSIDMS  DD   *

DMCL=dmcl-name
Put other SYSIDMS parameters, as appropriate, here
/*
//SYSIN    DD   *
Put CA Culprit parameter statements here
/*
//*
//CULP1    EXEC PGM=SORT,REGION=1024K,PARM='MSG=AP'
//SORTLIB  DD   DSN=sys1.sortlib,DISP=SHR
//SORTWK01 DD   UNIT=disk,SPACE=(CYL,(5,2))
//SORTWK02 DD   UNIT=disk,SPACE=(CYL,(5,2))
//SORTWK03 DD   UNIT=disk,SPACE=(CYL,(5,2))
//SORTWK04 DD   UNIT=disk,SPACE=(CYL,(5,2))
//SORTIN   DD   DSN=&&uprmwork.,DISP=(OLD,DELETE)
//SORTOUT  DD   DSN=&&sprmwork,DISP=(NEW,PASS),
//             UNIT=disk,SPACE=(CYL,(5,2)),
//             DCB=(RECFM=FB,LRECL=320,BLKSIZE=1600)
//SYSOUT   DD   SYSOUT=A
//SYSIN    DD   DSN=yourHLQ.CAGJSRC(SORT1),DISP=SHR
//*

//CULP2    EXEC PGM=CULL,REGION=1024K
//STEPLIB  DD   DSN=idms.dba.loadlib,DISP=SHR
//         DD   DSN=idms.loadlib,DISP=SHR
//SYS004   DD   SYSOUT=A,DCB=(RECFM=FBA,LRECL=133,BLKSIZE=1330)
//SYS005   DD   DSN=&&sprmwork,DISP=(OLD,DELETE)
//SYS006   DD   DSN=&&uextwork.,DISP=(NEW,PASS),
//             UNIT=disk,SPACE=(CYL,(5,2)),
//             DCB=(RECFM=VB,LRECL=2044,BLKSIZE=4628)
//SYS007   DD   DSN=&&srtpwork.,DISP=(NEW,PASS),
//             UNIT=disk,SPACE=(TRK,(1,1)),
//             DCB=(RECFM=F,LRECL=80,BLKSIZE=80)
//SYS008   DD   DSN=&&nsrtwork.,DISP=(NEW,PASS),
//             UNIT=disk,SPACE=(CYL,(5,2)),
//             DCB=(RECFM=VB,LRECL=512,BLKSIZE=4628)
//VSAMCTRL DD   DUMMY

//SYS002   DD   DSN=user.keyfile,DISP=SHR
//SYS010   DD   DSN=user.inputfil,DISP=OLD,
//             UNIT=tape,VOL=SER=vvvvvv
//SYS011   DD   DSN=user.matchfil,DISP=OLD,
//             UNIT=tape,VOL=SER=vvvvvv
//sysctl   DD   DSN=idms.sysctl,DISP=SHR
//dcmsg    DD   DSN=idms.sysmsg.ddldcmsg,DISP=SHR

//SYSIDMS  DD   *
DMCL=dmcl-name
Put other SYSIDMS parameters, as appropriate, here
/*
//*
//CULP3    EXEC PGM=SORT,REGION=1024K,PARM='MSG=AP'
//SORTLIB  DD   DSN=sys1.sortlib,DISP=SHR
//SORTWK01 DD   UNIT=disk,SPACE=(CYL,(5,2))

//SORTWK02 DD   UNIT=disk,SPACE=(CYL,(5,2))
//SORTWK03 DD   UNIT=disk,SPACE=(CYL,(5,2))
//SORTWK04 DD   UNIT=disk,SPACE=(CYL,(5,2))
//SORTIN   DD   DSN=&&uextwork.,DISP=(OLD,DELETE)
//SORTOUT  DD   DSN=&&sextwork.,DISP=(NEW,PASS),
//             UNIT=disk,SPACE=(CYL,(5,2)),
//             DCB=(RECFM=VB,LRECL=2044,BLKSIZE=4628)
//SYSOUT   DD   SYSOUT=A
//SYSIN    DD   DSN=&&srtpwork.,DISP=(OLD,DELETE)
//*
//CULP4    EXEC PGM=CULE,REGION=1024K
//STEPLIB  DD   DSN=idms.dba.loadlib,DISP=SHR
//         DD   DSN=idms.loadlib,DISP=SHR

//SYS004   DD   SYSOUT=A,DCB=(RECFM=FBA,LRECL=133,BLKSIZE=1330)
//SYS006   DD   DSN=&&sextwork.,DISP=(OLD,DELETE)
//SYS008   DD   DSN=&&nsrtwork.,DISP=(OLD,DELETE)
//SYSPCH   DD   SYSOUT=B,DCB=BLKSIZE=80
//SYS020   DD   DSN=user.nonprint,DISP=(NEW,CATLG),
//             UNIT=tape,VOL=SER=vvvvvv,
//             DCB=(DSORG=PS,LRECL=llll,BLKSIZE=bbbb)
//SYS030   DD   SYSOUT=(s,,form),DCB=(RECFM=FBA,LRECL=133,BLKSIZE=1330)
//SYSIN4   DD   DUMMY,DCB=BLKSIZE=80
//*

For the description of the previous variables, see the table in Five-Step z/OS JCL—Local mode.