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

z/OS Sample COBOL JCL for Batch

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, COBOL COMPILER, AND PROGRAM EXECUTION
 //********************************************************************
 //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.
 //******************************************************************
 //*      COBOL COMPILE
 //******************************************************************
 //STEP2 EXEC COBUC,COND=(0,NE,STEP1),
 //      PARM.COB='LIST,NODYNAM,SXREF,PMAP,DMAP'
 //COB.SYSPRINT DD SYSOUT=*
 //COB.SYSLIN  DD DSN=&.&DCMPUNCH.,DISP=(NEW,PASS,DELETE),
 //             UNIT=VIO,SPACE=(TRK,(15,15)),
 //             DCB=(RECFM=FB,LRECL=80,BLKSIZE=3200)
 //COB.SYSIN  DD DSN=&.&TEMP.,UNIT=SYSDA,DISP=(OLD,DELETE,DELETE),
 //         DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)
 /*
 //******************************************************************
 //*      LINK EDIT
 //******************************************************************
 //LINKSTP EXEC PGM=IEWL,PARM='LIST,XREF,LET',COND=(0,NE)
 //SYSPRINT  DD SYSOUT=*
 //SYSLMOD   DD DSN=ca.user.loadlib,DISP=SHR
 //SYSUT1    DD UNIT=VIO,SPACE=(1024,(200,20))
 //SYSLIB    DD DSN=ca.cobol.compiler.loadlib,DISP=SHR
 //OBJLIB    DD DSN=ca.user.smp.library,DISP=SHR
 //SYSLIN    DD DSN=&.&DCMPUNCH.,DISP=(OLD,PASS)
 //          DD *
  INCLUDE OBJLIB(DBXHVPR)
  INCLUDE OBJLIB(DBSBTPR) (Use DBSU1PR if program is AMODE=31 and RMODE=ANY.)
  ENTRY BEGIN
  NAME DBDP236(R)

 /*
 //******************************************************************
 //*      PROGRAM EXECUTION
 //******************************************************************
 //STEP4   EXEC PGM=DBDP236
 //STEPLIB  DD DSN=ca.datacom.loadlib,DISP=SHR  See Listing Libraries for CA Datacom Products.
 //         DD DSN=ca.user.loadlib,DISP=SHR
 //SYSPRINT DD SYSOUT=*
 //SYSLIST  DD SYSOUT=*
 //SYSOUT   DD SYSOUT=*
 //PRINT    DD SYSOUT=*
 /*