//KWCALDWC JOB (12345678),'KEN CALDWELL',MSGCLASS=H,                    00010000
//             MSGLEVEL=(1,1),CLASS=A,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 PARAMETERS BELOW TO THE FOLLOWING:           *    00090000
//*                                                                *    00100000
//*  TEAMID   - YOUR 2 DIGIT TEAM ID ASSIGNED BY YOUR INSTRUCTOR.  *    00110000
//*  MEMBER   - MEMBER NAME OF THE PROGRAM TO TRANSLATE/COMPILE.   *    00120000
//*  COPYLIB  - DATASET NAME OF THE PDS WHERE SYMBOLIC MAPS RESIDE.*    00130000
//*  LOADLIB  - DATASET NAME OF THE PDS WHERE CICS LOADS PROGRAMS  *    00140000
//*             AND MAPSETS FROM.                                  *    00150000
//*  CICSCPY  - DATASET NAME OF THE PDS WHERE DFHBMSCA, DFHAID,    *    00160000
//*             LINK EDIT INCLUDE STATEMENT AND OTHER CICS         *    00170000
//*             COPYBOOKS.                                         *    00180000
//*  CICSLOD  - DATASET NAME WHERE THE TRANSLATOR, STUB PROGRAM,   *    00190000
//*             AND OTHER CICS MODULES RESIDE.                     *    00200000
//*  COB2COM  - DATASET NAME WHERE THE COBOL II COMPILER RESIDES.  *    00210000
//*  COB2LIB  - DATASET NAME WHERE THE COBOL II SYSTEM ROUTINES    *    00220000
//*             RESIDE.                                            *    00230000
//******************************************************************    00240000
//*                                                                     00250000
//SETVARS  SET TEAMID=00,                                               00260000
//             MEMBER=,                                                 00270000
//             COPYLIB=&SYSUID..CICSC.MAPDSECT,                         00280000
//             LOADLIB='SYSFAN.CICS.LOAD',                              00290000
//             CICSCPY='CICSTS23.CICS.SDFHCOB',                         00300000
//             CICSLOD='CICSTS23.CICS.SDFHLOAD',                        00310000
//*            COB2COM='SYS1.COB2COMP',                                 00320000
//             COB2LIB='CEE.SCEELKED'                                   00330000
//*                                                                     00340000
//         SET SRCLIB=&SYSUID..CICSA.LIB                                00350000
//PRIVPROC JCLLIB ORDER=(&SRCLIB)                                       00360000
//*                                                                     00370000
//TRPGM00  EXEC COBPROC,MEMBER=TRRSP00C,COND.LINK=(4,LT)                00380000
//                                                                      00390000