CA Datacom/DB SQL Preprocessors › Sample JCL › Sample PL/I JCL › z/OS PL/I Sample JCL

z/OS PL/I Sample JCL

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 ILLUSTRATES THE EXECUTION OF THE
 //*  PREPROCESSOR AND COMPILER.
 //*-------------------------------------------------------------------
 //*
 //*-------------------------------------------------------------------
 //*  PRECOMPILE
 //*-------------------------------------------------------------------
 //*
 //STEP1 EXEC PGM=DBPLIPR
 //STEPLIB    See the note above and Listing Libraries for CA Datacom Products.
 //SYSUDUMP DD SYSOUT=*
 //SYSPRINT DD SYSOUT=*
 //SYSOUT   DD SYSOUT=*
 //OPTIONS  DD *,DCB=BLKSIZE=80
 LANGUAGE=PLI
 ... place additional precompile options here ....
 /*
 //SOURCE DD DATA,DCB=BLKSIZE=80,DLM=##
 ... place PL/I source here ...
 ##
 //INCLUDE  DD  DSN=ca.user.include.library,DISP=SHR
 //SRCOUT   DD  DSN=&.&SRCPRE.,DISP=(MOD,PASS),UNIT=SYSDA,
 //           DCB=(LRECL=80,BLKSIZE=4000,RECFM=FB),
 //           SPACE=(4000,(250,100))
 //REPORT   DD SYSOUT=*
 //*
 //*-------------------------------------------------------
 //*  assemble urt
 //*-------------------------------------------------------
 //*
 //ASMURT  EXEC PGM=ASMA90,PARM='DECK,NOOBJECT,TERM'
 //SYSLIB    DD DSN=ca.user.system.library,DISP=SHR
 //SYSUT1    DD DSN=&.&SYSUT1.,UNIT=VIO,SPACE=(1700,(600,100))
 //SYSUT2    DD DSN=&.&SYSUT2.,UNIT=VIO,SPACE=(1700,(300,50))
 //SYSUT3    DD DSN=&.&SYSUT3.,UNIT=VIO,SPACE=(1700,(300,50))
 //SYSTERM   DD SYSOUT=*,DCB=BLKSIZE=1089
 //SYSPUNCH  DD DSN=&.&URTPUNCH.,DISP=(NEW,PASS,DELETE),
 //             UNIT=VIO,SPACE=(3200,(15,15)),
 //             DCB=(RECFM=FB,LRECL=80,BLKSIZE=3200)
 //SYSIN DD *
 ... place urt source here ....
 ... urt is opened by CA-DATACOM/DB ...
 /*

 //SYSPRINT  DD SYSOUT=*
 //*
 //*-------------------------------------------------------------------
 //*      COMPILE & LINK
 //*-------------------------------------------------------------------
 //*
 //CC     EXEC PLIXCL
 //PLI.SYSLIN   DD UNIT=SYSDA
 //PLI.SYSIN    DD DSN=&.&SRCPRE.,DISP=(MOD,PASS),UNIT=SYSDA,
 //               DCB=(LRECL=80,BLKSIZE=4000,RECFM=FB)
 //LKED.SYSLMOD DD DSN=ca.user.loadlib,DISP=SHR
 //LKED.SYSLIN  DD DSN=&.&URTPUNCH.,DISP=(OLD,DELETE)
 //             DD DDNAME=SYSIN
 //LKED.SYSIN   DD *
  ENTRY BEGIN
  NAME TESTPL1(R)
 /*
 //