//HWINS01A JOB (HW213AB99T,C213,1,1,0),'KEN CALDWELL',NOTIFY=HWINS01,   00010000
//    MSGCLASS=Y,TIME=1,MSGLEVEL=(1,1)                                  00020000
/*ROUTE PRINT RMT237                                                    00030000
//*                                                                     00040000
//**********************************************************************00050000
//*                                                                    *00060000
//*       T  R  A  N  S  L  A  T  E    &    C  O  M  P  I  L  E        *00070000
//*        C  I  C  S    S A M P L E    P  R  O  G  R  A  M S          *00080000
//*                                                                    *00090000
//*  SET THE SYMBOLIC VARIABLES TO THE FOLLOWING VALUES:               *00100000
//*                                                                    *00110000
//*  SRCLIB   - THE DATASET NAME OF THE PDS WHERE PROGRAM RESIDES.     *00120000
//*  COPYLIB  - DATASET NAME OF THE PDS WHERE SYMBOLIC MAPS RESIDE     *00130000
//*             FROM THE MAPJCL.                                       *00140000
//*  LOADLIB  - DATASET NAME OF THE PDS WHERE CICS LOADS PROGRAMS      *00150000
//*             AND MAPSETS FROM.                                      *00160000
//*  CICSCOPY - DATASET NAME OF THE PDS WHERE DFHBMSCA, DFHAID,        *00170000
//*             LINK EDIT INCLUDE STATEMENT AND OTHER CICS             *00180000
//*             COPYBOOKS.                                             *00190000
//*  CICSLOAD - DATASET NAME WHERE THE TRANSLATOR, STUB PROGRAM,       *00200000
//*             AND OTHER CICS MODULES RESIDE.                         *00210000
//*  LECOPY   - THE DATASET NAME WHERE THE LANGUAGE ENVIRONMENT        *00220000
//*             COPYBOOKS AND SAMPLE PROGRAMS RESIDE.                  *00230000
//*  LELINK   - THE DATASET NAME WHERE THE LANGUAGE ENVIRONMENT        *00240000
//*             LINK ROUTINES RESIDE.                                  *00250000
//*                                                                     00260000
//*  CHANGE '#' TO THE CICS SAMPLE LIBRARY (FOR DFHDHTXO).              00270000
//*                                                                     00280000
//**********************************************************************00290000
//*                                                                     00300000
//SETVARS  SET TEAMID=,                                                 00310000
//             SRCLIB=HWINS01.CICSA.LIB,                                00320000
//             MEMBER=,                                                 00330000
//             COPYLIB=CICS.CLASS.MAPDSECT,                             00340000
//             LOADLIB=CICS.CLASS.LOADLIB,                              00350000
//             CICSCOPY=CICS.A640.SDFHCOB,                              00360000
//             CICSLOAD=CICS.A640.SDFHLOAD,                             00370000
//             LECOPY=SYS1.SCEESAMP,                                    00380000
//             LELINK=SYS1.SCEELKED                                     00390000
//*                                                                     00400000
//PRIVPROC JCLLIB ORDER=(&SRCLIB)                                       00410000
//*                                                                     00420000
//TRPGM00W EXEC COB3PROC,TEAMID=00,MEMBER=TRPGM00W                      00430001
//TRPGM71  EXEC COB3PROC,TEAMID=71,MEMBER=TRPGM71                       00440000
//TRPGM71W EXEC COB3PROC,TEAMID=71,MEMBER=TRPGM71W                      00450000
//TRPGM72  EXEC COB3PROC,TEAMID=72,MEMBER=TRPGM72,                      00460000
//         COND.LINK=((0,NE,TRANS),(4,LT,COBOL))                        00470000
//TRPGM73  EXEC COB3PROC,TEAMID=73,MEMBER=TRPGM73,                      00480000
//         COND.LINK=((0,NE,TRANS),(4,LT,COBOL))                        00490000
//TRPGM74  EXEC COB3PROC,TEAMID=74,MEMBER=TRPGM74                       00500000
//TRPGM75N EXEC COB3PROC,TEAMID=75,MEMBER=TRPGM75N                      00510000
//TRPGM75L EXEC COB3PROC,TEAMID=75,MEMBER=TRPGM75L                      00520000
//TRPGM75X EXEC COB3PROC,TEAMID=75,MEMBER=TRPGM75X                      00530000
//TRPGM75B EXEC COB3PROC,TEAMID=75,MEMBER=TRPGM75B                      00540000
//TRPGM75D EXEC COB3PROC,TEAMID=75,MEMBER=TRPGM75D                      00550000
//TRPGM76L EXEC COB3PROC,TEAMID=76,MEMBER=TRPGM76L                      00560000
//TRPGM76X EXEC COB3PROC,TEAMID=76,MEMBER=TRPGM76X                      00570000
//TRPGM76B EXEC COB3PROC,TEAMID=76,MEMBER=TRPGM76B                      00580000
//TRPGM76D EXEC COB3PROC,TEAMID=76,MEMBER=TRPGM76D                      00590000
//TRPGM81  EXEC COB3PROC,TEAMID=81,MEMBER=TRPGM81                       00600000
//TRPGM82  EXEC COB3PROC,TEAMID=82,MEMBER=TRPGM82                       00610000
//TRPGM83  EXEC COB3PROC,TEAMID=83,MEMBER=TRPGM83                       00620000
//TRPGM83D EXEC COB3PROC,TEAMID=83,MEMBER=TRPGM83D                      00630000
//TRPGM84  EXEC COB3PROC,TEAMID=84,MEMBER=TRPGM84                       00640000
//TRPGM85  EXEC COB3PROC,TEAMID=85,MEMBER=TRPGM85                       00650000
//TRPGM86  EXEC COB3PROC,TEAMID=86,MEMBER=TRPGM86                       00660000
//TRPGM87  EXEC COB3PROC,TEAMID=87,MEMBER=TRPGM87                       00670000
//TRPGM88  EXEC COB3PROC,TEAMID=88,MEMBER=TRPGM88                       00680000
//TRPGM93  EXEC COB3PROC,TEAMID=93,MEMBER=TRPGM93                       00690000
//TRPGM94  EXEC COB3PROC,TEAMID=94,MEMBER=TRPGM94                       00700000
//TRPGM95  EXEC COB3PROC,TEAMID=95,MEMBER=TRPGM95                       00710000
//         SET COPYLIB=CICS.A640.SDFHSAMP                               00720000
//TRPDOC00 EXEC COB3PROC,TEAMID=00,MEMBER=TRPDOC00                      00730000
//LINK.SYSLMOD DD DSN=&LOADLIB(TRPDOC00),DISP=SHR                       00740000
//                                                                      00750000