//******************************************************************    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 PARAMETERS TO THE FOLLOWING VALUES:          *    00060000
//*                                                                *    00070000
//*  TEAMID   - YOUR 2 DIGIT TEAM ID 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
//*  CICSLOD  - DATASET NAME WHERE THE TRANSLATOR, STUB PROGRAM,   *    00180000
//*             AND OTHER CICS MODULES RESIDE.                     *    00190000
//*  COB2COMP - DATASET NAME WHERE THE COBOL II COMPILER RESIDES.  *    00200000
//*  COB2LIB  - DATASET NAME WHERE THE COBOL II SYSTEM ROUTINES    *    00210000
//*             RESIDE.                                            *    00220000
//******************************************************************    00230000
//COBPROC  PROC                                                         00240000
//*                                                                     00250000
//TRANS    EXEC PGM=DFHECP1$,                                           00260000
//         PARM=(DEBUG,EDF,'FLAG(W)',SPIE,NONUM,                        00270000
//         OPTIONS,APOST,NOSEQ,SOURCE,'SPACE(1)',VBREF)                 00280000
//*STEPLIB  DD DSN=&CICSLOD,DISP=SHR                                    00290000
//SYSPRINT DD SYSOUT=*                                                  00300000
//SYSIN    DD DSN=&SRCLIB(&MEMBER),DISP=SHR                             00310000
//SYSPUNCH DD UNIT=SYSDA,SPACE=(CYL,(1,1)),DISP=(,PASS)                 00320000
//*                                                                     00330000
//COBOL    EXEC PGM=IGYCRCTL,                                           00340000
//         PARM=(NOOPT,XREF,LIB,NONUM,RENT,NODYNAM,OFFSET,              00350001
//         NOSEQ,MAP,'DATA(24)',APOST,NAME),                            00360000
//         COND=(0,NE,TRANS)                                            00370000
//*STEPLIB  DD DSN=&COB2COM,DISP=SHR                                    00380000
//SYSLIB   DD DSN=&CICSCPY,DISP=SHR                                     00390000
//         DD DSN=&COPYLIB,DISP=SHR                                     00400000
//         DD DSN=&SRCLIB,DISP=SHR                                      00410000
//SYSUT1   DD UNIT=SYSDA,SPACE=(CYL,(1,1))                              00420000
//SYSUT2   DD UNIT=SYSDA,SPACE=(CYL,(1,1))                              00430000
//SYSUT3   DD UNIT=SYSDA,SPACE=(CYL,(1,1))                              00440000
//SYSUT4   DD UNIT=SYSDA,SPACE=(CYL,(1,1))                              00450000
//SYSUT5   DD UNIT=SYSDA,SPACE=(CYL,(1,1))                              00460000
//SYSUT6   DD UNIT=SYSDA,SPACE=(CYL,(1,1))                              00470000
//SYSUT7   DD UNIT=SYSDA,SPACE=(CYL,(1,1))                              00480000
//SYSPRINT DD SYSOUT=*                                                  00490000
//SYSIN    DD DSN=*.TRANS.SYSPUNCH,DISP=(OLD,DELETE)                    00500000
//SYSLIN   DD UNIT=SYSDA,SPACE=(CYL,(1,1)),DISP=(,PASS)                 00510000
//*                                                                     00520000
//LINK     EXEC PGM=IEWL,                                               00530000
//         PARM='LIST,XREF,MAP',                                        00540000
//         COND=((0,NE,TRANS),(0,NE,COBOL))                             00550000
//SYSLIB   DD DSN=&CICSLOD,DISP=SHR                                     00560000
//         DD DSN=&COB2LIB,DISP=SHR                                     00570000
//SYSUT1   DD UNIT=SYSDA,SPACE=(CYL,(1,1))                              00580000
//SYSPRINT DD SYSOUT=*                                                  00590000
//SYSLIN   DD DSN=&CICSCPY(DFHEILIC),DISP=SHR                           00600000
//         DD DSN=*.COBOL.SYSLIN,DISP=(OLD,DELETE)                      00610000
//SYSLMOD  DD DSN=&LOADLIB(TRPGM&TEAMID),DISP=SHR                       00620000
//         PEND                                                         00630000