JCL Examples for Program Compilation and Link Edit › PL/I Example (z/OS)

PL/I Example (z/OS)

//DFHEITPL PROC SUFFIX=1$,
//       INDEX='CICSSYS.V321',
//       USER=XXXXX,
//       OUTC='*',
//       REG=512K,
//       WORK=SYSDA
//*
//*      THIS PROCEDURE CONTAINS 3 STEPS
//*      1.   EXEC THE PL/I TRANSLATOR
//*           (USING THE SUPPLIED SUFFIX 1$)
//*      2.   EXEC THE PL/I OPTIMIZER
//*           COMPILER
//*      3.   LKED THE COMPILER OUTPUT TO
//*           USER.LOADLIB
//*
//*      THE FOLLOWING JCL SHOULD BE USED
//*      TO EXECUTE THIS PROCEDURE
//*
//*      //APPLPROG EXEC DFHEITPL
//*      //TRN.SYSIN  DD *
//*         .
//*         . APPLICATION PROGRAM
//*         .
//*      /*
//*      //LKED.SYSIN DD *
//*         NAME ANYNAME(R)
//*      /*
//*
//*      WHERE ANYNAME IS THE NAME OF YOUR APPLICATION PROGRAM
//*
//*
//TRN    EXEC PGM=DFHEPP&SUFFIX.,
//       REGION=&REG.
//STEPLIB DD DSN=&INDEX..SDFHLOAD,DISP=SHR
//SYSPRINT DD SYSOUT=&OUTC.
//SYSPUNCH DD DSN=&.&SYSCIN.,
//       DISP=(,PASS),UNIT=&WORK.,
//       DCB=BLKSIZE=400,
//       SPACE=(400,(400,100))
//PLI    EXEC PGM=IEL0AA,REGION=&REG.,
//       PARM='OBJECT,NODECK,INCLUDE'
//STEPLIB  DD DSN=SYS1.PL1COMP,DISP=SHR
//SYSLIB   DD DSN=&INDEX..SDFHPL1,DISP=SHR
//SYSPRINT DD SYSOUT=&OUTC.
//SYSIN  DD   DSN=&.&SYSCIN.,
//       DISP=(OLD,DELETE)
//SYSLIN DD   DSN=&.&LOADSET.,UNIT=&WORK.,
//       DISP=(MOD,PASS),
//       SPACE=(80,(250,100))
//SYSUT1 DD   UNIT=&WORK.,DCB=BLKSIZE=1024,
//       SPACE=(1024,(300,60),,CONTIG)
//LKED   EXEC PGM=IEWL,REGION=&REG.,
//       PARM=XREF,COND=(9,LT,PLI)
//SYSLIB DD   DSN=&INDEX..SDFHLOAD,DISP=SHR
//       DD   DSN=SYS1.PLIBASE,DISP=SHR
//SYSLMOD DD  DSN=&USER..LOADLIB,DISP=SHR
//SYSUT1 DD   UNIT=&WORK.,DCB=BLKSIZE=1024,
//       SPACE=(1024,(200,20))
//SYSPRINT DD SYSOUT=&OUTC.
//SYSLIN DD DSN=&INDEX..SDFHPL1(DFHEILIP),
//          DISP=SHR
//       DD DSN=usershlq.CAB1LOAD(DBCSRPR),DISP=SHR
//       DD DSN=&.&LOADSET.,DISP=(OLD,DELETE)
//       DD DDNAME=SYSIN
//       PEND