The below JCL helps to compile your PL/I program with IBMZCBG cataloged procedure acts as PL/I compiler. The generated load module, stores in a OUT data set as “NMEM”.
//SRINIMFJOB JOB
//TREX EXEC IBMZCBG
//PLI.SYSIN DD *
NMEM: PROC OPTIONS(MAIN);
DCL IN FILE RECORD SEQUENTIAL INPUT,
OUT FILE RECORD SEQUENTIAL OUTPUT,
P POINTER,
IOFIELD CHAR(80) BASED(P),
EOF BIT(1) INIT(’0’B);
OPEN FILE(IN),FILE (OUT);
ON ENDFILE(IN) EOF=’1’B;
READ FILE(IN) SET(P);
DO WHILE (¬EOF);
PUT FILE(SYSPRINT) SKIP EDIT (IOFIELD) (A);
WRITE FILE(OUT) FROM(IOFIELD);
READ FILE(IN) SET(P);
END;
CLOSE FILE(IN),FILE(OUT);
END NMEM;
/*
//GO.OUT DD UNIT=SYSDA,DSNAME=HPU8.ALIB(NMEM),
// DISP=(NEW,CATLG),SPACE=(TRK,(1,1,1)),
// DCB=(RECFM=FB,BLKSIZE=3600,LRECL=80)
//GO.IN DD *
MEM: PROC OPTIONS(MAIN);
/* this is an incomplete dummy library member */
