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