Compile, bind and run a COBOL program

//CLGJOB   JOB (ACCT01),'COMPILE LINK GO',CLASS=A,MSGCLASS=X,
//            NOTIFY=&SYSUID,REGION=0M
//* ---------- compile ----------
//COMP     EXEC PGM=IGYCRCTL,
//   PARM='OBJECT,LIST,MAP,XREF,SSRANGE,TEST,TRUNC(BIN)'
//STEPLIB  DD DSN=SYS1.COBOL.SIGYCOMP,DISP=SHR
//SYSIN    DD DSN=DEV.PAY.SOURCE(PAYSUM),DISP=SHR
//SYSLIB   DD DSN=DEV.PAY.COPYLIB,DISP=SHR
//         DD DSN=PROD.COMMON.COPYLIB,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSLIN   DD DSN=&&OBJ,DISP=(NEW,PASS),SPACE=(CYL,(1,1)),
//            DCB=(RECFM=FB,LRECL=80,BLKSIZE=0)
//SYSUT1   DD UNIT=SYSDA,SPACE=(CYL,(2,1))
//* ---------- bind ----------
//BIND     EXEC PGM=IEWL,PARM='LIST,MAP,XREF,RENT',
//            COND=(4,LT,COMP)
//SYSLIN   DD DSN=&&OBJ,DISP=(OLD,DELETE)
//SYSLMOD  DD DSN=DEV.PAY.LOADLIB(PAYSUM),DISP=SHR
//SYSLIB   DD DSN=SYS1.SCEELKED,DISP=SHR
//SYSPRINT DD SYSOUT=*
//* ---------- run ----------
//GO       EXEC PGM=PAYSUM,COND=(4,LT)
//STEPLIB  DD DSN=DEV.PAY.LOADLIB,DISP=SHR
//INFILE   DD DSN=DEV.PAY.TESTDATA,DISP=SHR
//SYSOUT   DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*