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

z/VSE Sample COBOL JCL for CICS

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
// 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
* PRECOMPILE
// OPTION    DECK,NOXREF,DUMP,LOG
// EXEC DBXMMPR,SIZE=768K
 CBL LIB,APOST
       cobol source
/*
* DFHECP1$
// DLBL      IJSYSPH,'source.file',0,SD
// EXTENT    SYSPCH,volser,1,0,reltrk,numtrks
   ASSGN     SYSPCH,DISK,VOL=volser,SHR
// DLBL      IJSYSIN,'source.name'
// EXTENT    SYSIPT,volser
 ASSGN       SYSIPT,DISK,VOL=volser,SHR
// EXEC DFHECP1$,SIZE=512K
/*
 CLOSE       SYSPCH,PUNCH
 CLOSE       SYSIPT,READER
* COMPILE
// DLBL      IJSYSIN,'source.file'
// 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
// 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
/*
/&
* $$ EOJ