//**********************************************************************00010000
//*                                                                    *00020000
//*       T  R  A  N  S  L  A  T  E    &    C  O  M  P  I  L  E        *00030000
//*                 C  I  C  S    P  R  O  G  R  A  M                  *00040000
//*                                                                    *00050000
//*  SET THE SYMBOLIC VARIABLES TO THE FOLLOWING VALUES:               *00060000
//*                                                                    *00070000
//*  TEAMID   - YOUR TEAMID ASSIGNED BY YOUR INSTRUCTOR.               *00080000
//*  SRCLIB   - THE DATASET NAME OF THE PDS WHERE PROGRAM RESIDES.     *00090000
//*  MEMBER   - MEMBER NAME OF THE PROGRAM TO TRANSLATE/COMPILE.       *00100000
//*  COPYLIB  - DATASET NAME OF THE PDS WHERE SYMBOLIC MAPS RESIDE     *00110000
//*             FROM THE MAPJCL.                                       *00120000
//*  LOADLIB  - DATASET NAME OF THE PDS WHERE CICS LOADS PROGRAMS      *00130000
//*             AND MAPSETS FROM.                                      *00140000
//*  CICSCOPY - DATASET NAME OF THE PDS WHERE DFHBMSCA, DFHAID,        *00150000
//*             LINK EDIT INCLUDE STATEMENT AND OTHER CICS             *00160000
//*             COPYBOOKS.                                             *00170000
//*  CICSLOAD - DATASET NAME WHERE THE TRANSLATOR, STUB PROGRAM,       *00180000
//*             AND OTHER CICS MODULES RESIDE.                         *00190000
//*  LECOPY   - THE DATASET NAME WHERE THE LANGUAGE ENVIRONMENT        *00200000
//*             COPYBOOKS AND SAMPLE PROGRAMS RESIDE.                  *00210000
//*  LELINK   - THE DATASET NAME WHERE THE LANGUAGE ENVIRONMENT        *00220000
//*             LINK ROUTINES RESIDE.                                  *00230000
//*                                                                     00240000
//**********************************************************************00250000
//*                                                                     00260000
//COB3PROC PROC                                                         00270000
//*                                                                     00280000
//TRANS    EXEC PGM=DFHECP1$,                                           00290000
//         PARM=(COBOL3,DEBUG,EDF,'FLAG(W)',SPIE,NONUM,                 00300000
//         OPTIONS,APOST,NOSEQ,SOURCE,'SPACE(1)',VBREF)                 00310000
//STEPLIB  DD DSN=&CICSLOAD,DISP=SHR                                    00320000
//SYSPRINT DD SYSOUT=*                                                  00330000
//SYSIN    DD DSN=&SRCLIB(&MEMBER),DISP=SHR                             00340000
//SYSPUNCH DD UNIT=SYSDA,SPACE=(CYL,(1,1)),DISP=(,PASS)                 00350000
//*                                                                     00360000
//COBOL    EXEC PGM=IGYCRCTL,                                           00370000
//         PARM=(NOOPT,XREF,LIB,NONUM,RENT,NODYNAM,OFFSET,              00380000
//         NOSEQ,MAP,'DATA(24)',APOST),                                 00390000
//         COND=(0,NE,TRANS)                                            00400000
//*STEPLIB  DD DSN=&COBCOMP,DISP=SHR                                    00410000
//SYSLIB   DD DSN=&CICSCOPY,DISP=SHR                                    00420000
//         DD DSN=&COPYLIB,DISP=SHR                                     00430000
//         DD DSN=&SRCLIB,DISP=SHR                                      00440000
//         DD DSN=&LECOPY,DISP=SHR                                      00450000
//SYSUT1   DD UNIT=SYSDA,SPACE=(CYL,(1,1))                              00460000
//SYSUT2   DD UNIT=SYSDA,SPACE=(CYL,(1,1))                              00470000
//SYSUT3   DD UNIT=SYSDA,SPACE=(CYL,(1,1))                              00480000
//SYSUT4   DD UNIT=SYSDA,SPACE=(CYL,(1,1))                              00490000
//SYSUT5   DD UNIT=SYSDA,SPACE=(CYL,(1,1))                              00500000
//SYSUT6   DD UNIT=SYSDA,SPACE=(CYL,(1,1))                              00510000
//SYSUT7   DD UNIT=SYSDA,SPACE=(CYL,(1,1))                              00520000
//SYSPRINT DD SYSOUT=*                                                  00530000
//SYSIN    DD DSN=*.TRANS.SYSPUNCH,DISP=(OLD,DELETE)                    00540000
//SYSLIN   DD UNIT=SYSDA,SPACE=(CYL,(1,1)),DISP=(,PASS)                 00550000
//*                                                                     00560000
//LINK     EXEC PGM=IEWL,                                               00570000
//         PARM='LIST,XREF,MAP',                                        00580000
//         COND=((0,NE,TRANS),(0,NE,COBOL))                             00590000
//SYSLIB   DD DSN=&CICSLOAD,DISP=SHR                                    00600000
//         DD DSN=&LELINK,DISP=SHR                                      00610000
//SYSUT1   DD UNIT=SYSDA,SPACE=(CYL,(1,1))                              00620000
//SYSPRINT DD SYSOUT=*                                                  00630000
//SYSLIN   DD DSN=&CICSCOPY(DFHEILIC),DISP=SHR                          00640000
//         DD DSN=*.COBOL.SYSLIN,DISP=(OLD,DELETE)                      00650000
//SYSLMOD  DD DSN=&LOADLIB(TRPGM&TEAMID),DISP=SHR                       00660000
//         PEND                                                         00670000