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