Getting Started › Procedures and Triggers › Examples: Creating a Procedure › Sample JCL for z/VSE

Sample JCL for z/VSE

Following is sample z/VSE JCL. For sample z/OS JCL, see Sample JCL for z/OS. For sample C JCL, see Sample JCL for C.

Note: Use the following as a guide to prepare your JCL. The JCL statements are for example only. Lowercase letters in a statement indicate a value you must supply. Code all statements to your site and installation standards.

 * $$ JOB ...           See the note above.
 * $$ LST ...
 // JOB name
 * ***************************************************************
 * *                                                             *
 * *  PRECOMPILE COBOL SQL                                       *
 * *                                                             *
 * ***************************************************************
 // EXEC PROC=procname
 // DLBL IJSYSPH,'sql.syspunch',0,SD
 // EXTENT SYSPCH,volser,1,0,r,n
 ASSGN     SYSPCH,DISK,VOL=volser,SHR
 // ASSGN  SYSnnn,DISK,VOL=volser,SHR
 // DLBL   WORK1,'name.precomp.work1',000,SD
 // EXTENT SYSnnn,volser,1,0,r,n
 // DLBL   WORK2,'name.precomp.work2',000,SD
 // EXTENT SYSnnn,volser,1,0,r,n
 // DLBL   WORK3,'name.precomp.work3',000,SD
 // EXTENT SYSnnn,1,0,r,n
 // EXEC DBXMMPR,SIZE=1024K
  CBL LIB,NOMAP,APOST
      *COBOL SOURCE CODE GOES HERE*
 /*
 CLOSE SYSPCH,PUNCH
 // IF $RC GT 0 THEN
 // GOTO EOJ
 * ***************************************************************
 * *                                                             *
 * *   COBOL COMPILER EXECUTION                                  *
 * *                                                             *
 * ***************************************************************
 // DLBL    IJSYSIN,'name.precomp.outfile',0,SD
 // EXTENT  SYSIPT,volser
 ASSGN      SYSIPT,DISK,VOL=volser,SHR
 // ASSGN   SYS001,DISK,VOL=volser,SHR
 // ASSGN   SYS002,DISK,VOL=volser,SHR
 // ASSGN   SYS003,DISK,VOL=volser,SHR
 // ASSGN   SYS004,DISK,VOL=volser,SHR
 // ASSGN   SYS005,DISK,VOL=volser,SHR
 // ASSGN   SYS006,DISK,VOL=volser,SHR
 // ASSGN   SYS007,DISK,VOL=volser,SHR
 // DLBL    IJSYS01,'name.workfile.SYS001',0,SD
 // EXTENT  SYS001,volser,1,0,r,n
 // DLBL    IJSYS02,'name.workfile.SYS002',0,SD
 // EXTENT  SYS002,volser,1,0,r,n
 // DLBL    IJSYS03,'name.workfile.SYS003',0,SD
 // EXTENT  SYS003,volser,1,0,r,n
 // DLBL    IJSYS04,'name.workfile.SYS004',0,SD
 // EXTENT  SYS004,volser,1,0,r,n
 // DLBL    IJSYS05,'name.workfile.SYS005',0,SD
 // EXTENT  SYS005,volser,1,0,r,n
 // DLBL    IJSYS06,'name.workfile.SYS006',0,SD
 // EXTENT  SYS006,volser,1,0,r,n
 // DLBL    IJSYS07,'name.workfile.SYS007',0,SD
 // EXTENT  SYS007,volser,1,0,r,n
 // OPTION CATAL
   PHASE phasename,*
 // EXEC IGYCRCTL,SIZE=1024K
 /*
 CLOSE SYSIPT,SYSRDR
 /*
 // IF $RC GT 4 THEN
 // GOTO EOJ
 * ***************************************************************
 * *                                                             *
 * *   LINK EDIT STEP                                            *
 * *                                                             *
 * ***************************************************************
   INCLUDE DBXHVPR
   INCLUDE DBXPIPR
   ENTRY BEGIN
 // EXEC LNKEDT,SIZE=1024K
 /. EOJ
 /*
 // EXEC LISTLOG
 /&
 * $$ EOJ