COBOL COMPILE JCL

//RATNESHX JOB NOTIFY=&SYSUID,REGION=4M                                 
//*
//*
//*                    COBOL COMPILER
//*
//*
//PROC1   PROC SRCLIB=,
//        COPYLIB=,
//        LOADLIB=,
//        PGMNAME=
//*
//COMPILE EXEC PGM=IGYCRCTL,PARM=(LIB,LIST)
//*
//SYSIN    DD  DSN=&SRCLIB(&PGMNAME),DISP=SHR
//SYSLIB   DD  DSN=&COPYLIB,DISP=SHR
//SYSLIN   DD  DSNAME=&&LOADSET,UNIT=SYSDA,
//             DISP=(MOD,PASS),SPACE=(TRK,(5,3),RLSE),
//             DCB=(BLKSIZE=3200)
//*
//SYSPRINT DD  SYSOUT=*
//SYSUT1   DD  UNIT=SYSDA,SPACE=(TRK,(3,2))
//SYSUT2   DD  UNIT=SYSDA,SPACE=(TRK,(3,2))
//SYSUT3   DD  UNIT=SYSDA,SPACE=(TRK,(3,2))
//SYSUT4   DD  UNIT=SYSDA,SPACE=(TRK,(3,2))
//SYSUT5   DD  UNIT=SYSDA,SPACE=(TRK,(3,2))
//SYSUT6   DD  UNIT=SYSDA,SPACE=(TRK,(3,2))
//SYSUT7   DD  UNIT=SYSDA,SPACE=(TRK,(3,2))
//*
//*
//LINKED  EXEC PGM=HEWL,COND=(4,LT),PARM='XREF'
//*
//SYSLIN   DD  DSN=&&LOADSET,DISP=(OLD,DELETE)
//SYSLIB   DD  DSN=&LOADLIB,DISP=SHR
//         DD  DSN=CEE.SCEELKED,DISP=SHR
//SYSLMOD  DD  DSN=&LOADLIB(&PGMNAME),DISP=SHR
//*
//SYSPRINT DD  SYSOUT=*
//SYSUT1   DD  UNIT=SYSDA,SPACE=(TRK,(3,2)),DISP=NEW
//*
//PROC1   PEND
//*
//*
//STEP1  EXEC PROC1,
//       SRCLIB=IBMUSER.RATNESH.COBOL,     CHANGE TO YOUR SRCLIB
//      COPYLIB=IBMUSER.RATNESH.COPYLIB,    CHANGE TO YOUR COPYLIB
//      LOADLIB=IBMUSER.RATNESH.LOADLIB, CHANGE TO YOUR LOADLIB
//      PGMNAME=PROGRAM1             CHANGE TO YOUR PROGRAM NAME