//***********************************************
//*** PROGTST - A "one step" JOB using a PROC containing hidden steps
//***********************************************
//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=(4000,(200,10))
//GO.TPIN      DD      DSN=PAYDATA,DISP=(OLD,KEEP)
//