//******************************************* //*** PROGTST - A "ONE STEP" JOB USING A PROC //******************************************* //PROGTST JOB 11348,SMITH, // CLASS=A,MSGLEVEL=(1,1) //CLG EXEC PROC=COBCLG //COBOL.SYSIN DD * "instream" COBOL source program (80 columns max!) goes here /* //GO.PRINT DD SYSOUT=A //GO.DISKOUT DD DSN=TSTOP,UNIT=DISK, // DISP=(NEW,KEEP), // SPACE=(TRK,(100,10)) //GO.TPIN DD DSN=PAYDATA, // DISP=(OLD,KEEP) //