//**********************************************************************00010000
//*                                                                    *00020000
//*      E N T E R P R I S E    C O B O L   C O M P I L E              *00030000
//*                                                                    *00040000
//*  SET THE SYMBOLIC PARAMETERS TO THE FOLLOWING VALUES:              *00050000
//*                                                                    *00060000
//*  SRCLIB  - THE DATASET NAME OF THE PDS WHERE YOUR PROGRAM RESIDES. *00070000
//*  MEMBER  - THE MEMBER NAME OF YOUR PROGRAM.                        *00080000
//*  LOADLIB - THE DATASET NAME OF THE PDS LOAD MODULE LIBRARY WHERE   *00090000
//*            YOUR PROGRAM WILL BE EXECUTED FROM.                     *00100000
//*  COBCOMP - THE DATASET NAME WHERE THE COBOL COMPILER PROGRAM       *00110001
//*            RESIDES.                                                *00120000
//*  LELINK  - THE DATASET NAME WHERE THE LANGUAGE ENVIRONMENT 370     *00150000
//*            LINK ROUTINES RESIDE.                                   *00160000
//*                                                                    *00170000
//**********************************************************************00180000
//PROCCOB3 PROC                                                         00190000
//*                                                                     00200000
//ECOBOL   EXEC PGM=IGYCRCTL,                                           00210000
//         PARM=(LIB,NOSEQ,'F(W,W)',MAP,OFF,'X(FULL)','NOC(E)',DTR,     00220000
//             'OPT(FULL)',FSRT,APOST,'NUMPROC(PFD)','TRUNC(BIN)')      00230000
//STEPLIB  DD DSN=&COBCOMP,DISP=SHR                                     00240001
//SYSLIB   DD DSN=&SRCLIB,DISP=SHR                                      00250000
//SYSPRINT DD SYSOUT=*                                                  00270000
//SYSUT1   DD UNIT=SYSDA,SPACE=(CYL,(1,1)),DISP=(,DELETE,DELETE)        00280000
//SYSUT2   DD UNIT=SYSDA,SPACE=(CYL,(1,1)),DISP=(,DELETE,DELETE)        00290000
//SYSUT3   DD UNIT=SYSDA,SPACE=(CYL,(1,1)),DISP=(,DELETE,DELETE)        00300000
//SYSUT4   DD UNIT=SYSDA,SPACE=(CYL,(1,1)),DISP=(,DELETE,DELETE)        00310000
//SYSUT5   DD UNIT=SYSDA,SPACE=(CYL,(1,1)),DISP=(,DELETE,DELETE)        00320000
//SYSUT6   DD UNIT=SYSDA,SPACE=(CYL,(1,1)),DISP=(,DELETE,DELETE)        00330000
//SYSUT7   DD UNIT=SYSDA,SPACE=(CYL,(1,1)),DISP=(,DELETE,DELETE)        00340000
//SYSLIN   DD DSN=&&LOADSET,DISP=(MOD,PASS),                            00350000
//            UNIT=SYSDA,SPACE=(TRK,(5,5))                              00360000
//SYSIN    DD DSN=&SRCLIB(&MEMBER),DISP=SHR                             00370000
//*                                                                     00380000
//LINK     EXEC PGM=HEWL,COND=(4,LT,ECOBOL),                            00390000
//         PARM='LIST,XREF,MAP,LET'                                     00400000
//SYSLIB   DD DSN=&LELINK,DISP=SHR                                      00410000
//         DD DSN=&LOADLIB,DISP=SHR                                     00420000
//SYSPRINT DD SYSOUT=*                                                  00430000
//SYSUT1   DD UNIT=SYSDA,SPACE=(CYL,(1,1)),DISP=(,DELETE,DELETE)        00440000
//SYSLMOD  DD DSN=&LOADLIB(&MEMBER),DISP=OLD                            00450000
//SYSLIN   DD DSN=&&LOADSET,DISP=(OLD,DELETE)                           00460000
//         PEND                                                         00470000