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

z/OS Sample COBOL JCL for CICS

The following JCL example is for z/OS 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.

 //jobname    See the note above and Listing Libraries for CA Datacom Products.
 //********************************************************************
 //* THE FOLLOWING JOB STREAM DEMONSTRATES THE SQL
 //* PREPROCESSOR, THE CICS COMMAND LEVEL PRECOMPILER AND THE COBOL
 //* COMPILER STEPS
 //********************************************************************
 //STEP1    EXEC PGM=DBXMMPR
 //STEPLIB    See the note above and Listing Libraries for CA Datacom Products.
 //WORK1    DD   DSN=&.&WORK1.,UNIT=SYSDA,DISP=(NEW,PASS),
 //         DCB=(RECFM=F,LRECL=80,BLKSIZE=80),SPACE=(TRK,(1,1))
 //WORK2    DD   DSN=&.&WORK2.,UNIT=SYSDA,DISP=(NEW,PASS),
 //         DCB=(RECFM=F,LRECL=80,BLKSIZE=80),SPACE=(TRK,(1,1))
 //WORK3    DD   DSN=&.&WORK3.,UNIT=SYSDA,DISP=(NEW,PASS),
 //         DCB=(RECFM=F,LRECL=80,BLKSIZE=80),SPACE=(TRK,(1,1))
 //SYSOUT   DD   SYSOUT=*
 //SYSPRINT DD   SYSOUT=*                            Print Output
 //SYSPUNCH DD   DSN=&.&TEMP.,UNIT=SYSDA,DISP=(NEW,PASS),
 //         DCB=(RECFM=FB,LRECL=80,BLKSIZE=800),SPACE=(TRK,(2,1))
 //SYSUDUMP DD   SYSOUT=*
 //SNAPER   DD   SYSOUT=*
 //INCLUDE  DD   DSN=ca.user.include.library,DISP=SHR
 //SYSIN    DD   *                                   Command input
      PLACE COBOL SOURCE TEXT HERE.
 //********************************************************************
 //*   CICS COMMAND LEVEL PREPROCESSOR STEP
 //********************************************************************
 //TRN      EXEC PGM=DFHECP1$,COND=(4,GT)
 //STEPLIB  DD   DSN=cics.loadlib,DISP=SHR
 //SYSPRINT DD   SYSOUT=*
 //SYSPUNCH DD   DSN=&.&SYSCIN.,DISP=(,PASS),UNIT=DISK,
 //             DCB=BLKSIZE=400,SPACE=(400,(400,100))
 //SYSIN    DD   DSN=&.&TEMP.,UNIT=DISK,DISP=(OLD,DELETE,DELETE),
 //             DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)
 //SYSLIN   DD   DSN=&.&DCMPUNCH.,DISP=(NEW,PASS,DELETE),
 //             UNIT=VIO,SPACE=(TRK,(15,15)),
 //             DCB=(RECFM=FB,LRECL=80,BLKSIZE=3200)
 //********************************************************************
 //*   COBOL COMPILER STEP
 //********************************************************************
 //COB      EXEC PGM=IKFCBL00,REGION=1024K,
 //             PARM='NOTRUNC,NODYNAM,LIB,SIZE=1024K,BUF=16K',
 //             COND=(4,GT)
 //SYSLIB   DD   DSN=cics.coblib,DISP=SHR
 //SYSPRINT DD   SYSOUT=*
 //SYSIN    DD   DSN=&.&SYSCIN.,DISP=(OLD,DELETE)
 //SYSLIN   DD   DSN=&.&LOADSET.,DISP=(MOD,PASS),
 //             UNIT=DISK,SPACE=(80,(250,100))
 //SYSUT1   DD   UNIT=DISK,SPACE=(460,(350,100))
 //SYSUT2   DD   UNIT=DISK,SPACE=(460,(350,100))
 //SYSUT3   DD   UNIT=DISK,SPACE=(460,(350,100))

 //********************************************************************
 //*    LINK EDIT STEP
 //********************************************************************
 //LKED     EXEC PGM=IEWL,REGION=1024K,PARM=XREF,COND=(4,GT)
 //SYSLIB   DD   DSN=cics.loadlib,DISP=SHR
 //         DD   DSN=SYS1.COBLIB,DISP=SHR
 //         DD   DSN=ca.datacom.loadlib,DISP=SHR  See Listing Libraries for CA Datacom Products.
 //SYSLMOD  DD   DSN=DATACOM.LOADLIB,DISP=SHR
 //SYSUT1   DD   UNIT=DISK,DCB=BLKSIZE=1024,
 //             SPACE=(1024,(200,20))
 //SYSPRINT DD   SYSOUT=*
 //SYSLIN   DD   DSN=cics.coblib(DFHEILIC),DISP=SHR
 //         DD   DSN=&.&LOADSET.,DISP=(OLD,DELETE)
 //SYSIN    DD   *
  INCLUDE SYSLIB(DBCSVPR)
  INCLUDE SYSLIB(DBXHVPR)
  NAME TEST01(R)
 /*
 //