How to Run PLI Program in Batch JCL

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”.

Batch JCL to run PLI Program.

//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 */