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