//TR$I01AM JOB 'TRAIN-RIGHT',MSGCLASS=H,CLASS=S,                        00010000
// NOTIFY=&SYSUID                                                       00020000
//*                                                                     00030000
//**********************************************************************00040000
//*                                                                    *00050000
//*        A  S  S  E  M  B  L  E        M  A  P  S  E  T              *00060000
//*                                                                    *00070000
//*  SET THE SYMBOLIC VARIABLES BELOW TO THE FOLLOWING:                *00080000
//*                                                                    *00090000
//*  TEAMID  - YOUR TEAMID ASSIGNED BY YOUR INSTRUCTOR.                *00100000
//*  SRCLIB  - DATASET NAME OF THE PDS WHERE THE BMS MACROS RESIDE.    *00110000
//*  MEMBER  - MEMBER NAME OF THE BMS MACROS TO ASSEMBLE               *00120000
//*  WEBLIB  - DATASET NAME OF THE PDS WHERE HTML TEMPLATES RESIDE.    *00130000
//*  LOADLIB - DATASET NAME OF THE PDS WHERE CICS LOADS PROGRAMS       *00140000
//*            AND MAPSETS FROM.                                       *00150000
//*  COPYLIB - DATASET NAME OF THE PDS WHERE SYMBOLIC MAPS RESIDE      *00160000
//*            FOR THE COMPILE JCL.                                    *00170000
//*  MACLIB  - DATASET NAME WHERE THE CICS SYTEM MACROS RESIDE.        *00180000
//*  COBRJOB - MEMBER NAME FOR THE COBOL COMPILE USING THESE MAPS.     *00190000
//*                                                                    *00200000
//**********************************************************************00210000
//*                                                                     00220000
//SETVARS  SET TEAMID=,                                                 00230000
//             SRCLIB=TR$I01.CICSA.LIB,                                 00240000
//             MEMBER=,                                                 00250000
//             WEBLIB=TR$I01.CICSKWC.WEBLIB,                            00260000
//             LOADLIB=TR$I01.CICSKWC.LOADLIB,                          00270000
//             COPYLIB=TR$I01.CICSKWC.MAPDSECT,                         00280000
//             MACLIB=DFH410.CICS.SDFHMAC,                              00290001
//             COBRJOB=COBRIBM                                          00300000
//*                                                                     00310000
//PRIVPROC JCLLIB ORDER=(&SRCLIB)                                       00320000
//*                                                                     00330000
//TRMAP00X EXEC MAPSPROC,TEAMID=00,MEMBER=TRMAP00X                      00340000
//TRMAP74  EXEC MAPSPROC,TEAMID=74,MEMBER=TRMAP74                       00350000
//*                                                                     00360000
//COB3     EXEC PGM=IEBGENER                                            00370000
//SYSIN    DD DUMMY                                                     00380000
//SYSPRINT DD SYSOUT=*                                                  00390000
//SYSUT1   DD DSN=&SRCLIB(&COBRJOB),DISP=SHR                            00400000
//SYSUT2   DD SYSOUT=(*,INTRDR)                                         00410000
//                                                                      00420000