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

PL/I Example (z/VSE)

* $$ JOB JNM=PL1,CLASS=x
* $$ LST CLASS=c
// JOB PL1
// EXEC      PROC=procname
// LIBDEF    *,CATALOG=lib.sublib
// ASSGN     SYS101,DISK,VOL=vvvvvv,SHR
// DLBL      PUNCH,'SYSIN.FILE',1,SD
// EXTENT    SYS101,vvvvvv,1,0,s,n
* DITTO
// UPSI 1
// EXEC DITTO
$$DITTO CSQ FILEOUT=PUNCH,CISIZE=512,BLKFACTOR=2
*          insert source here
/*
$$DITTO EOJ
/*
* DFHEPP1$
// DLBL      IJSYSPH,'SYSPCH.FILE',1,SD
// EXTENT    SYSPCH,vvvvvv,1,0,s,n
 ASSGN     SYSPCH,DISK,VOL=vvvvvv,SHR
// DLBL      IJSYSIN,'SYSIN.FILE'
// EXTENT    SYSIPT,vvvvvv
 ASSGN     SYSIPT,DISK,VOL=vvvvvv,SHR
// EXEC DFHEPP1$,SIZE=512K
/*
 CLOSE       SYSIPT,READER
 CLOSE       SYSPCH,PUNCH
/*
* COMPILE
// UPSI 0
// DLBL      IJSYSIN,'SYSPCH.FILE'
// EXTENT    SYSIPT,vvvvvv
 ASSGN     SYSIPT,DISK,VOL=vvvvvv,SHR
// OPTION    NODECK,CATAL
   PHASE   ppppppp,S
   INCLUDE DFHxxx
// EXEC IEL1AA,SIZE=1024K
/*
 CLOSE       SYSIPT,READER
/*
* LINK-EDIT
/*
// EXEC LNKEDT
/*
/&
* $$ EOJ