//TR$I01C3 JOB 'TRAIN-RIGHT',MSGCLASS=H,CLASS=S,                        00010000
// NOTIFY=&SYSUID                                                       00020000
//*                                                                     00030000
//**********************************************************************00040000
//*                                                                    *00050000
//*       T  R  A  N  S  L  A  T  E    &    C  O  M  P  I  L  E        *00060000
//*                 C  I  C  S    P  R  O  G  R  A  M                  *00070000
//*                                                                    *00080000
//*  SET THE SYMBOLIC VARIABLES TO THE FOLLOWING VALUES:               *00090000
//*                                                                    *00100000
//*  TEAMID   - YOUR TEAMID ASSIGNED BY YOUR INSTRUCTOR.               *00110000
//*  SRCLIB   - THE DATASET NAME OF THE PDS WHERE PROGRAM RESIDES.     *00120000
//*  MEMBER   - MEMBER NAME OF THE PROGRAM TO TRANSLATE/COMPILE.       *00130000
//*  COPYLIB  - DATASET NAME OF THE PDS WHERE SYMBOLIC MAPS RESIDE     *00140000
//*             FROM THE MAPJCL.                                       *00150000
//*  LOADLIB  - DATASET NAME OF THE PDS WHERE CICS LOADS PROGRAMS      *00160000
//*             AND MAPSETS FROM.                                      *00170000
//*  CICSCOPY - DATASET NAME OF THE PDS WHERE DFHBMSCA, DFHAID,        *00180000
//*             LINK EDIT INCLUDE STATEMENT AND OTHER CICS             *00190000
//*             COPYBOOKS.                                             *00200000
//*  CICSLOAD - DATASET NAME WHERE THE TRANSLATOR, STUB PROGRAM,       *00210000
//*             AND OTHER CICS MODULES RESIDE.                         *00220000
//*  LECOPY   - THE DATASET NAME WHERE THE LANGUAGE ENVIRONMENT        *00230000
//*             COPYBOOKS AND SAMPLE PROGRAMS RESIDE.                  *00240000
//*  LELINK   - THE DATASET NAME WHERE THE LANGUAGE ENVIRONMENT        *00250000
//*             LINK ROUTINES RESIDE.                                  *00260000
//*                                                                     00270000
//**********************************************************************00280000
//*                                                                     00290000
//SETVARS  SET TEAMID=,                                                 00300000
//             SRCLIB=,                                                 00310000
//             MEMBER=,                                                 00320000
//             COPYLIB=TR$I01.STUDENT.MAPDSECT,                         00330000
//             LOADLIB=TR$I01.STUDENT.LOADLIB,                          00340000
//             CICSCOPY=DFH410.CICS.SDFHCOB,                            00350001
//             CICSLOAD=DFH410.CICS.SDFHLOAD,                           00360001
//             LECOPY=CEE.SCEESAMP,                                     00370000
//             LELINK=CEE.SCEELKED                                      00380000
//*                                                                     00390000
//PRIVPROC JCLLIB ORDER=(&SRCLIB)                                       00400000
//*                                                                     00410000
//TRPGM00  EXEC COB3PROC                                                00420000
//                                                                      00430000