Program Compilation, Link-Edit and Execution › Sample JCL for IMS/DC › z/OS IMS/DC Sample JCL

z/OS IMS/DC Sample JCL

The following z/OS JCL example is for 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.
 //********************************************************************
 //* THE FOLLOWING JOB STREAM DEMONSTRATES THE SQL
 //* PREPROCESSOR, THE CICS COMMAND LEVEL PREPROCESSOR AND THE COBOL
 //* COMPILER STEPS
 //********************************************************************
 //STEP1    EXEC PGM=DBXMMPR
 //STEPLIB    See the note above
 //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 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
 //         DD   DSN=SYS1.COBOLINK,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=ca.cobol.compiler.loadlib,DISP=SHR
 //          DD DSN=ca.datacom.loadlib,DISP=SHR
 //IMSDCLIB DD   DSN=yourimsdclib,DISP=SHR
 //SYSLMOD  DD   DSN=ca.user.loadlib,DISP=SHR
 //SYSUT1   DD   UNIT=DISK,DCB=BLKSIZE=1024,
 //             SPACE=(1024,(200,20))
 //SYSPRINT DD   SYSOUT=*
 //SYSLIN   DD   DSN=&.&LOADSET.,DISP=(OLD,DELETE)
 //         DD   *
  INCLUDE IMSDCLIB(CBLTDLI)
  INCLUDE SYSLIB(DBXHVPR)
  ENTRY DLITCBL
  NAME TEST01(R)
 /*
 //