//**********************************************************************00010000
//*                                                                    *00020000
//*             C O M P I L E   C O B O L   P R O G R A M              *00030000
//*                                                                    *00040000
//*  SET THE SYMBOLIC VARIABLES TO THE FOLLOWING VALUES:               *00050000
//*                                                                    *00060000
//*  SRCLIB   - THE DATASET NAME OF THE PDS WHERE PROGRAM RESIDES.     *00070000
//*  MEMBER   - MEMBER NAME OF THE PROGRAM TO COMPILE.                 *00080000
//*  LOADLIB  - DATASET NAME OF THE PROGRAM LOAD LIBRARY.              *00090000
//*  LELINK   - THE DATASET NAME WHERE THE LANGUAGE ENVIRONMENT        *00100000
//*             LINK ROUTINES RESIDE.                                  *00110000
//*                                                                     00120000
//**********************************************************************00130000
//COB3PROC PROC                                                         00140000
//COBOL    EXEC PGM=IGYCRCTL,                                           00150000
//         PARM=(NOOPT,XREF,LIB,NONUM,RENT,NODYNAM,NOLIST,              00160000
//         NOSEQ,MAP,'DATA(24)',APOST,'OUT(SYSOUT)'),                   00170000
//         COND=(0,NE)                                                  00180000
//*STEPLIB  DD DSN=&COBCOMP,DISP=SHR                                    00190000
//SYSUT1   DD UNIT=SYSDA,SPACE=(CYL,(1,1))                              00200000
//SYSUT2   DD UNIT=SYSDA,SPACE=(CYL,(1,1))                              00210000
//SYSUT3   DD UNIT=SYSDA,SPACE=(CYL,(1,1))                              00220000
//SYSUT4   DD UNIT=SYSDA,SPACE=(CYL,(1,1))                              00230000
//SYSUT5   DD UNIT=SYSDA,SPACE=(CYL,(1,1))                              00240000
//SYSUT6   DD UNIT=SYSDA,SPACE=(CYL,(1,1))                              00250000
//SYSUT7   DD UNIT=SYSDA,SPACE=(CYL,(1,1))                              00260000
//SYSPRINT DD SYSOUT=*                                                  00270000
//SYSLIN   DD UNIT=SYSDA,SPACE=(CYL,(1,1)),DISP=(,PASS)                 00280000
//SYSIN    DD DSN=&SRCLIB(&MEMBER),DISP=SHR                             00290000
//*                                                                     00300000
//LINK     EXEC PGM=IEWL,                                               00310000
//         PARM='LIST,XREF',                                            00320000
//         COND=(0,NE)                                                  00330000
//SYSLIB   DD DSN=&LELINK,DISP=SHR                                      00340000
//SYSUT1   DD UNIT=SYSDA,SPACE=(CYL,(1,1))                              00350000
//SYSPRINT DD SYSOUT=*                                                  00360000
//SYSLIN   DD DSN=*.COBOL.SYSLIN,DISP=(OLD,DELETE)                      00370000
//SYSLMOD  DD DSN=&LOADLIB(&MEMBER),DISP=SHR                            00380000