CA Datacom/DB SQL Preprocessors › Sample JCL › Sample COBOL JCL › z/VSE Sample COBOL JCL for Batch

z/VSE Sample COBOL JCL for Batch

The following sample JCL is for z/VSE sites.

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 and Listing Libraries for CA Datacom Products.
* $$ LST   CLASS=x
// JOB     name
// EXEC      PROC=yourproc  Whether you use PROCs or LIBDEFs, see Listing Libraries for CA Datacom Products.
// OPTION    DECK,NOXREF,DUMP,LOG
// DLBL      WORK1,'precompile.work1',0,SD
// EXTENT    SYSnnn,volser,1,0,reltrk,numtrks
// DLBL      WORK2,'precompile.work2',0,SD
// EXTENT    SYSnnn,volser,1,0,reltrk,numtrks
// DLBL      WORK3,'precompile.work3',0,SD
// EXTENT    SYSnnn,volser,1,0,reltrk,numtrks
// DLBL      SRCOUT,'source.name',0,SD
// EXTENT    SYSnnn,volser,1,0,reltrk,numtrks
// DLBL      IJSYSIN,'source.name'
// EXTENT    SYSIPT,volser
   ASSGN     SYSLNK,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      IJSYSLN,'syslnk.dataset',0,sd
// EXTENT    SYSLNK,volser,1,0,reltrk,numtrks
// DLBL      IJSYS01,'ijsys01.work',0,SD
// EXTENT    SYS001,volser,1,0,reltrk,numtrks
// DLBL      IJSYS02,'ijsys02.work',0,SD
// EXTENT    SYS002,volser,1,0,reltrk,numtrks
// DLBL      IJSYS03,'ijsys03.work',0,SD
// EXTENT    SYS003,volser,1,0,reltrk,numtrks
// DLBL      IJSYS04,'ijsys04.work',0,SD
// EXTENT    SYS004,volser,1,0,reltrk,numtrks
// DLBL      IJSYS05,'ijsys05.work',0,SD
// EXTENT    SYS005,volser,1,0,reltrk,numtrks
// DLBL      IJSYS06,'ijsys06.work',0,SD
// EXTENT    SYS006,volser,1,0,reltrk,numtrks
// DLBL      IJSYS07,'ijsys07.work',0,SD
// EXTENT    SYS007,volser,1,0,reltrk,numtrks
* PRECOMPILE
// OPTION    DECK,NOXREF,DUMP,LOG
// EXEC DBXMMPR,SIZE=768K
 CBL LIB,APOST
       cobol source
/*
* COMPILE
// OPTION    NODECK,CATAL
   PHASE   xxxxxxx,*
   INCLUDE DBSBTPR
   INCLUDE DBXHVPR
 ASSGN     SYSIPT,DISK,VOL=volser,SHR
// EXEC IGYCRCTL,SIZE=IGYCRCTL
/*
 CLOSE       SYSIPT,READER
/*
* LNKEDT
   ENTRY   BEGIN
// EXEC LNKEDT
/*
// EXEC
/*
/&
* $$ EOJ