//COBUCL PROC SYSOUT=’*’ //* PROC FOR COBOL //COB EXEC PGM=IKFCBL00 //STEPLIB DD DSN=SYS1.VSCOBLIB,DISP=SHR //SYSPRINT DD SYSOUT=&SYSOUT //SYSUT1 DD UNIT=VIO,SPACE=(CYL,(1,1)) //SYSUT2 DD UNIT=VIO,SPACE=(CYL,(1,1)) //SYSUT3 DD UNIT=VIO,SPACE=(CYL,(1,1)) //SYSUT4 DD UNIT=VIO,SPACE=(CYL,(1,1)) //SYSLIN DD DSN=&&LOADSET,UNIT=VIO,DISP=(MOD,PASS), // SPACE=(TRK,(3,3)),DCB=BLKSIZE=800 //LKED EXEC PGM=IEWL,PARM=’LIST,MAP’,COND=(5,LT,COB) //SYSLIN DD DSN=&&LOADSET,DISP=(OLD,DELETE) // DD DDNAME=SYSIN //SYSLMOD DD DSN=&&GOSET,DISP=(,PASS),UNIT=SYSDA, // SPACE=(CYL,(1,1,1)) //SYSLIB DD DSN=SYS1.VSCLLIB,DISP=SHR //SYSUT1 DD UNIT=VIO,SPACE=(CYL,(1,1)) //SYSPRINT DD SYSOUT=&SYSOUT PLIXCL: PL/I Compile and Link //PLIXCL PROC LKLBDSN=’PLI.PLIBASE’ //PLI EXEC PGM=IEL0AA,PARM=’OBJECT,NODECK’,REGION=100K //STEPLIB DD DSN=PLI.PLICOMP,DISP=SHR //SYSPRINT DD SYSOUT=* //SYSLIN DD DSN=&&LOADSET,DISP=(MOD,PASS),UNIT=VIO, // SPACE=(80,(250,100)) //SYSUT1 DD DSN=&&SYSUT1,UNIT=VIO, // SPACE=(1024,(200,50),,CONTIG,ROUND),DCB=BLKSIZE=1024 //LKED EXEC PGM=IEWL,PARM=’XREF,LIST’,COND=(9,LT,PLI), // REGION=100K //SYSLIB DD DSN=&LKLBDSN,DISP=SHR // DD DSN=PLI.PLIBASE,DISP=SHR //SYSLMOD DD DSN=&&GOSET(GO),DISP=(MOD,PASS),UNIT=SYSDA, // SPACE=(1024,(50,20,1)) //SYSUT1 DD DSN=&&SYSUT1,UNIT=VIO, // SPACE=(1024,(200,50),,CONTIG,ROUND),DCB=BLKSIZE=1024 //SYSPRINT DD SYSOUT=* //SYSLIN DD DSN=&&LOADSET,DISP=(OLD,DELETE) // DD DDNAME=SYSIN //SYSIN DD DUMMY