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

Five-Step z/VSE JCL—Central Version

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

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

// JOB    CULP5STP
// DLBL   idmslib,'idms.library'
// EXTENT sysxxx,vvvvvv,,,ssss,tttt
// ASSGN  sysxxx,DISK,VOL=vvvvvv,SHR
// LIBDEF *,SEARCH=CA-IDMS libraries
// ASSGN  SYS004,SYSLST
// DLBL   SYS005,'uprmwork',0
// EXTENT SYS005,vvvvvv,,,ssss,tttt
// ASSGN  SYS005,DISK,VOL=vvvvvv,SHR
// EXEC   PROC=sysctl
// DLBL   dcmsg,'idms.sysmsg.ddldcmsg',,DA
// DLBL   SYSIDMS,'sysidms.parms'
// EXTENT sysxxx,vvvvvv,,,ssss,tttt
// ASSGN  sysxxx,DISK,VOL=vvvvvv,SHR
// EXEC   CULP0,SIZE=1024K
  Put CA Culprit commands here
/*

// DLBL   SORTWK1,'sortwk1.fileid',0
// EXTENT sysxxx,vvvvvv,,,ssss,tttt
// ASSGN  sysxxx,DISK,VOL=vvvvvv,SHR
// DLBL   SORTWK2,'sortwk2.fileid',0
// EXTENT sysxxx,vvvvvv,,,ssss,tttt
// ASSGN  sysxxx,DISK,VOL=vvvvvv,SHR
// DLBL   SORTWK3,'sortwk3.fileid',0
// EXTENT sysxxx,vvvvvv,,,ssss,tttt
// ASSGN  sysxxx,DISK,VOL=vvvvvv,SHR
// DLBL   SORTWK4,'sortwk4.fileid',0
// EXTENT sysxxx,vvvvvv,,,ssss,tttt
// ASSGN  sysxxx,DISK,VOL=vvvvvv,SHR
// DLBL   SYS005,'uprmwork',0
// EXTENT SYS005,vvvvvv,,,ssss,tttt
// ASSGN  SYS005,DISK,VOL=vvvvvv,SHR
// DLBL   SYS006,'sprmwork',0
// EXTENT SYS006,vvvvvv,,,ssss,tttt
// ASSGN  SYS006,DISK,VOL=vvvvvv,SHR
// EXEC   SORT,SIZE=1024K
* $$ SLI MEM=SORT1.SAMPS,S=idmslib.sublibrary
/*

// ASSGN  SYS004,SYSLST
// DLBL   SYS005,'sprmwork',0
// EXTENT SYS005,vvvvvv,,,ssss,tttt
// ASSGN  SYS005,DISK,VOL=vvvvvv,SHR
// DLBL   SYS006,'uextwork',0
// EXTENT SYS006,vvvvvv,,,ssss,tttt
// ASSGN  SYS006,DISK,VOL=vvvvvv,SHR
// DLBL   SYS007,'srtpwork',0
// EXTENT SYS007,vvvvvv,,,ssss,tttt
// ASSGN  SYS007,DISK,VOL=vvvvvv,SHR
// DLBL   SYS008,'nsrtwork',0
// EXTENT SYS008,vvvvvv,,,ssss,tttt
// ASSGN  SYS008,DISK,VOL=vvvvvv,SHR

// DLBL   SYS002,'user.keyfile'
// EXTENT SYS002,vvvvvv,,,ssss,tttt
// ASSGN  SYS002,DISK,VOL=vvvvvv,SHR
// TLBL   SYS010,'user.inputfil'
// ASSGN  SYS010,cuu
// TLBL   SYS011,'user.matchfil'
// ASSGN  SYS011,cuu
// TLBL   SYS020,'user.nonprint'
// ASSGN  SYS020,cuu
// EXEC   PROC=sysctl
// DLBL   dcmsg,'idms.sysmsg.ddldcmsg',,DA
// DLBL   SYSIDMS,'sysidms.parms'
// EXTENT sysxxx,vvvvvv,,,ssss,tttt
// ASSGN  sysxxx,DISK,VOL=vvvvvv,SHR
// EXEC   CULL,SIZE=1024K
  Put user input here if on cards
/*

// DLBL   SORTWK1,'sortwk1.fileid',0
// EXTENT sysxxx,vvvvvv,,,ssss,tttt
// ASSGN  sysxxx,DISK,VOL=vvvvvv,SHR
// DLBL   SORTWK2,'sortwk2.fileid',0
// EXTENT sysxxx,vvvvvv,,,ssss,tttt
// ASSGN  sysxxx,DISK,VOL=vvvvvv,SHR
// DLBL   SORTWK3,'sortwk3.fileid',0
// EXTENT sysxxx,vvvvvv,,,ssss,tttt
// ASSGN  sysxxx,DISK,VOL=vvvvvv,SHR
// DLBL   SORTWK4,'sortwk4.fileid',0
// EXTENT sysxxx,vvvvvv,,,ssss,tttt
// ASSGN  sysxxx,DISK,VOL=vvvvvv,SHR
// DLBL   SORTIN1,'uextwork',0
// EXTENT sysxxx,vvvvvv,,,ssss,tttt
// ASSGN  sysxxx,DISK,VOL=vvvvvv,SHR
// DLBL   SORTOUT,'sextwork',0
// EXTENT sysxxx,vvvvvv,,,ssss,tttt
// ASSGN  sysxxx,DISK,VOL=vvvvvv,SHR
// DLBL   IJSYSIN,'srtpwork'

// EXTENT SYSIPT,vvvvvv,,,ssss,tttt
// ASSGN  SYSIPT,DISK,VOL=vvvvvv,SHR
// EXEC   SORT,SIZE=1024K
/*
// ASSGN  SYS004,SYSLST
// DLBL   SYS006,'sextwork',0
// EXTENT SYS006,vvvvvv,,,ssss,tttt
// ASSGN  SYS006,DISK,VOL=vvvvvv,SHR
// DLBL   SYS008,'nsrtwork',0
// EXTENT SYS008,vvvvvv,,,ssss,tttt
// ASSGN  SYS008,DISK,VOL=vvvvvv,SHR
// DLBL   IJSYSPH,'srtpwork'
// EXTENT SYSPCH,vvvvvv,,,ssss,tttt

// ASSGN  SYSPCH,DISK,VOL=vvvvvv,SHR
// TLBL   SYS020,'user.nonprint'
// ASSGN  SYS020,cuu
// DLBL   SYSIDMS,'sysidms.parms'
// EXTENT sysxxx,vvvvvv,,,ssss,tttt
// ASSIGN sysxxx,DISK,VOL=vvvvvv,SHR
// EXEC   CULE,SIZE=1024K
   Restart parameter
/*
/&