CA Datacom/DB SQL Preprocessors › Sample JCL › Sample COBOL JCL › CA Datacom IMS/DC Services Sample COBOL z/OS JCL

CA Datacom IMS/DC Services Sample COBOL z/OS JCL

The following z/OS JCL example is for compilation of programs running under CA Datacom IMS/DC Services.

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
 //          DD DSN=ca.datacom.loadlib,DISP=SHR  See Listing Libraries for CA Datacom Products.
 //IMSDCLIB  DD DSN=yourimsdclib,DISP=SHR
 //SYSLIN    DD DSN=&.&DCMPUNCH.,DISP=(OLD,PASS)
 //          DD *
  INCLUDE SYSLIB(DBXHVPR)
  INCLUDE IMSDCLIB(CBLTDLI)
  ENTRY DLITCBL
  NAME PROGNAME(R)
 //******************************************************************
 //* NOTE: IMSDCLIB IS THE LIBRARY CONTAINING THE
 //*       CA-DATACOM/IMSDC SERVICES LANGUAGE INTERFACE.
 //******************************************************************
 /*