./ $HWDC 06.00 11/02/03 11/02/03 20:29 19 19 0 TXT HWDC.CAHWNET.GOV:32756/CICS/CWBA/DFHWBTTA/transid (156.96.1.194) CICS Unit - 464-4230 Curt Belts Lynne Sprague Vicki ciclas (applid - on request) ciwebt (applid) neww (newcopy for doctemplates) BMS Bridge uses A suffix (trmap00a, tryesnma) cics.r640.html hwins01.cicsweb.lib word(cics),numproc(pfd),trunc(bin) ./ $IBM 01.01 13/11/17 13/11/17 12:26 33 33 2 TXT IBM Innovation Center CICS Web URL's 00010000 00020000 CICS/TS 4.2 Port: 3000 00030000 CICS/TS 4.1 Port: 3041 00040000 00050000 CICS Verification URL: 00060000 http://192.86.32.94:3000/cics/cwba/dfh$wb1a 00070000 00080000 CICS Web Aware URL: 00090000 http://192.86.32.94:3000/cics/cwba/program?query-string 00100000 00110000 CICS 3270 Bridge URL: 00120000 http://192.86.32.94:3000/cics/cwba/dfhwbtta/transid 00130000 00140000 CICS Image URL: 00150000 http://192.86.32.94:3000/cics/dfhwbimg/image-name 00160000 00170000 (To display any other image shown below requires a Web Aware program 00180001 sending a binary document defined to CICS. See program TRPGM84.) 00190000 00200000 image-name: 00210000 00211001 CICS.GIF The CICS logo 00220000 MASTHEAD.GIF The CICS logo with the text 'CICS Web Interface' 00230000 BACKGROUND1.GIF A background containing the characters 'CICS' 00240000 BACKGROUND2.GIF A background containing the characters 'CWI' 00250000 TEXTURE1.JPEG A textured background 00260000 TEXTURE2.JPEG A textured background 00270000 TEXTURE3.JPEG A textured background 00280000 TEXTURE4.JPEG A textured background 00290000 TEXTURE5.JPEG A textured background 00300000 TEXTURE6.JPEG A textured background 00310000 00320000 ./ $README 01.04 13/11/20 13/11/20 10:43 89 89 3 TXT Train-Right - Advanced CICS Programming Concepts. 00010000 Dataset notes. 00020000 00030000 Members: 00040000 00050000 TRCOMM - Copybook Commarea for program TRPGM00 and TRYESNO. 00060000 TRRECORD - Copybook Record layout for TRVSAM and TRLOCK files. 00070000 TBLREC - Copybook layout for TRTABLE constant data table program. 00080000 00090000 TRPGMSKL - Non-Conversational skeleton program. 00100000 TRPGMSWC - Web-aware program skeleton using the COMMAREA. 00110000 TRPGMSWS - Web-aware program skeleton using WEB commands. 00120000 TRPGMSWF - Web-aware program skeleton using HTML Forms. 00130000 00140000 TRPGM00W - Special version from Basic CICS Command Level COBOL. 00150004 Allows any team id to be entered. 00160000 00180000 TRPGM71 - Non-Conversational version of Rock, Paper, Scissors. 00190000 00200000 TRPGM71W - Web Interface version of TRPGM71. 00210000 Can be executed as 3270 application or on Web Browser 00220000 by checking eibtrnid for 'CWBA' 00230000 User choice provided by a querystring on URL. 00240000 00250000 TRPGM72 - Conversational version of Rock, Paper, Scissors. 00260000 00270000 TRPGM73 - Psuedo-Conversational version of Rock, Paper, Scissors. 00280000 00290000 TRPGM74 - Psuedo-Conversational Map version of Rock, Paper, Scissors. 00300000 Can also be run as 3270 Web Bridge program. 00310000 TRMAP74 - BMS map for above. 00320000 TRMAP74A - Unmodified Web Document Template of above. 00330000 TRMAP74B - Modified Web Document Template of above. 00340000 00350000 TRPGM75N - Workshop program. Main Non-Conversational VSAM display. 00360000 TRPGM75L - Workshop program. Main or LINK. 00370000 TRPGM75X - Workshop program. Main or LINK or XCTL. 00380000 TRPGM75B - Workshop program. Main or LINK or XCTL. BMS ACCUM. 00390000 TRPGM75D - Workshop program. Main or LINK or XCTL or DPL. BMS ACCUM. 00400000 00410000 TRPGM76L - Workshop program. LINK to TRPGM75. 00420000 TRPGM76X - Workshop program. LINK or XCTL to TRPGM75. 00430000 TRPGM76B - Workshop program. LINK or XCTL to TRPGM75. BMS ACCUM. 00440000 TRPGM76D - Workshop program. LINK or XCTL or DPL to TRPGM75. BMS ACCUM. 00450000 00460000 TRPGM81 - Simple Web Interface program. 00470000 Displays HTTP Request Header from COMMAREA. 00480000 Generates HTTP Result Header and HTML in the COMMAREA. 00490000 00500000 TRPGM82 - Web Interface program using Web commands. 00510000 Displays HTTP Request Header data from various commands. 00520000 Generates HTTP Result Header and HTML with DOCUMENT INSERT. 00530000 00540000 TRPGM83 - Web Interface version of Rock, Paper, Scissors. 00550000 Uses HTML Form and can route HTTP request to TRPGM81 & 82. 00560000 TRHTML83 - HTML Form for above. 00570000 TRPGM83D - Uses several DOCUMENT commands to build HTML. 00580000 Uses HTML Form and can route HTTP request to TRPGM81 & 82. 00590000 00600000 TRHTML81 - HTML for beginning of document. 00610000 TRHTML82 - HTML Form only. 00620000 TRHTML84 - HTML for end of document. 00630000 00640000 TRPGM84 - Displays a JPEG DOCUMENT image. 00650000 TRLOGO Binary Document Template. 00651001 Note: JPEG image must be FTP'd then copied to loadlib. 00652001 00660000 TRPGM85 - Workshop program. Simple Web Interface for VSAM. 00670000 TRHTML80 - HTML for beginning of document in COBOL format. 00680000 TRHTML85 - HTML document for TRTABLE in COBOL format. 00690000 TRHTML86 - HTML document for above in COBOL format. 00700000 00710000 TRPGM86 - Workshop program. Uses query string for VSAM. 00720000 00730000 TRPGM87 - Workshop program. Uses TRPDOC00. 00740000 00750000 TRPDOC00 - Document exit program. HTML form for for VSAM. 00760000 TRHTML87 - HTML form for VSAM. 00770000 00780000 TRHTML89 - HTML table for VSAM in COBOL format. 00790000 00800000 TRPGM88 - Document utility program. In work. 00810000 TRPGM89 - Utility program. In work. 00820000 00830000 TRPGM93 - Asynchronous program. 00840000 00850000 TRPGM94 - Distributed Transaction program. Front-end. 00860000 TRPGM95 - Distributed Transaction program. back-end. 00870000 00880000 ./ $TODO 01.01 13/11/21 13/11/21 18:25 6 6 0 TXT BMS Web macros: DFHMDX - Add additional attributes to maps/mapsets templates. DFHWBOUT - Add additional HTML to a map definition. If coded before any DFHMDF, appears in section. ./ COBDEZHI 01.00 11/02/03 11/02/03 20:29 39 39 0 JCL //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 ./ COBPROC 01.01 12/05/03 12/05/03 14:15 63 63 1 PROC //****************************************************************** 00010000 //* * 00020000 //* T R A N S L A T E & C O M P I L E * 00030000 //* C I C S P R O G R A M * 00040000 //* * 00050000 //* SET THE SYMBOLIC PARAMETERS TO THE FOLLOWING VALUES: * 00060000 //* * 00070000 //* TEAMID - YOUR 2 DIGIT TEAM ID ASSIGNED BY YOUR INSTRUCTOR. * 00080000 //* SRCLIB - THE DATASET NAME OF THE PDS WHERE PROGRAM RESIDES. * 00090000 //* MEMBER - MEMBER NAME OF THE PROGRAM TO TRANSLATE/COMPILE. * 00100000 //* COPYLIB - DATASET NAME OF THE PDS WHERE SYMBOLIC MAPS RESIDE * 00110000 //* FROM THE MAPJCL. * 00120000 //* LOADLIB - DATASET NAME OF THE PDS WHERE CICS LOADS PROGRAMS * 00130000 //* AND MAPSETS FROM. * 00140000 //* CICSCOPY - DATASET NAME OF THE PDS WHERE DFHBMSCA, DFHAID, * 00150000 //* LINK EDIT INCLUDE STATEMENT AND OTHER CICS * 00160000 //* COPYBOOKS. * 00170000 //* CICSLOD - DATASET NAME WHERE THE TRANSLATOR, STUB PROGRAM, * 00180000 //* AND OTHER CICS MODULES RESIDE. * 00190000 //* COB2COMP - DATASET NAME WHERE THE COBOL II COMPILER RESIDES. * 00200000 //* COB2LIB - DATASET NAME WHERE THE COBOL II SYSTEM ROUTINES * 00210000 //* RESIDE. * 00220000 //****************************************************************** 00230000 //COBPROC PROC 00240000 //* 00250000 //TRANS EXEC PGM=DFHECP1$, 00260000 // PARM=(DEBUG,EDF,'FLAG(W)',SPIE,NONUM, 00270000 // OPTIONS,APOST,NOSEQ,SOURCE,'SPACE(1)',VBREF) 00280000 //*STEPLIB DD DSN=&CICSLOD,DISP=SHR 00290000 //SYSPRINT DD SYSOUT=* 00300000 //SYSIN DD DSN=&SRCLIB(&MEMBER),DISP=SHR 00310000 //SYSPUNCH DD UNIT=SYSDA,SPACE=(CYL,(1,1)),DISP=(,PASS) 00320000 //* 00330000 //COBOL EXEC PGM=IGYCRCTL, 00340000 // PARM=(NOOPT,XREF,LIB,NONUM,RENT,NODYNAM,OFFSET, 00350001 // NOSEQ,MAP,'DATA(24)',APOST,NAME), 00360000 // COND=(0,NE,TRANS) 00370000 //*STEPLIB DD DSN=&COB2COM,DISP=SHR 00380000 //SYSLIB DD DSN=&CICSCPY,DISP=SHR 00390000 // DD DSN=©LIB,DISP=SHR 00400000 // DD DSN=&SRCLIB,DISP=SHR 00410000 //SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(1,1)) 00420000 //SYSUT2 DD UNIT=SYSDA,SPACE=(CYL,(1,1)) 00430000 //SYSUT3 DD UNIT=SYSDA,SPACE=(CYL,(1,1)) 00440000 //SYSUT4 DD UNIT=SYSDA,SPACE=(CYL,(1,1)) 00450000 //SYSUT5 DD UNIT=SYSDA,SPACE=(CYL,(1,1)) 00460000 //SYSUT6 DD UNIT=SYSDA,SPACE=(CYL,(1,1)) 00470000 //SYSUT7 DD UNIT=SYSDA,SPACE=(CYL,(1,1)) 00480000 //SYSPRINT DD SYSOUT=* 00490000 //SYSIN DD DSN=*.TRANS.SYSPUNCH,DISP=(OLD,DELETE) 00500000 //SYSLIN DD UNIT=SYSDA,SPACE=(CYL,(1,1)),DISP=(,PASS) 00510000 //* 00520000 //LINK EXEC PGM=IEWL, 00530000 // PARM='LIST,XREF,MAP', 00540000 // COND=((0,NE,TRANS),(0,NE,COBOL)) 00550000 //SYSLIB DD DSN=&CICSLOD,DISP=SHR 00560000 // DD DSN=&COB2LIB,DISP=SHR 00570000 //SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(1,1)) 00580000 //SYSPRINT DD SYSOUT=* 00590000 //SYSLIN DD DSN=&CICSCPY(DFHEILIC),DISP=SHR 00600000 // DD DSN=*.COBOL.SYSLIN,DISP=(OLD,DELETE) 00610000 //SYSLMOD DD DSN=&LOADLIB(TRPGM&TEAMID),DISP=SHR 00620000 // PEND 00630000 ./ COBRHWDC 06.01 13/11/20 13/11/20 10:42 75 75 1 JCL //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 ./ COBRIBM 06.02 13/11/20 13/11/20 10:42 74 74 4 JCL //TR$I01AC 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 S A M P L E P R O G R A M S *00070000 //* *00080000 //* SET THE SYMBOLIC VARIABLES TO THE FOLLOWING VALUES: *00090000 //* *00100000 //* SRCLIB - THE DATASET NAME OF THE PDS WHERE PROGRAM RESIDES. *00110000 //* COPYLIB - DATASET NAME OF THE PDS WHERE SYMBOLIC MAPS RESIDE *00120000 //* FROM THE MAPJCL. *00130000 //* LOADLIB - DATASET NAME OF THE PDS WHERE CICS LOADS PROGRAMS *00140000 //* AND MAPSETS FROM. *00150000 //* CICSCOPY - DATASET NAME OF THE PDS WHERE DFHBMSCA, DFHAID, *00160000 //* LINK EDIT INCLUDE STATEMENT AND OTHER CICS *00170000 //* COPYBOOKS. *00180000 //* CICSLOAD - DATASET NAME WHERE THE TRANSLATOR, STUB PROGRAM, *00190000 //* AND OTHER CICS MODULES RESIDE. *00200000 //* LECOPY - THE DATASET NAME WHERE THE LANGUAGE ENVIRONMENT *00210000 //* COPYBOOKS AND SAMPLE PROGRAMS RESIDE. *00220000 //* LELINK - THE DATASET NAME WHERE THE LANGUAGE ENVIRONMENT *00230000 //* LINK ROUTINES RESIDE. *00240000 //* 00250000 //* CHANGE '#' TO THE CICS SAMPLE LIBRARY (FOR DFHDHTXO). 00260000 //* 00270000 //**********************************************************************00280000 //* 00290000 //SETVARS SET TEAMID=, 00300000 // SRCLIB=TR$I01.CICSA.LIB, 00310000 // MEMBER=, 00320000 // COPYLIB=TR$I01.CICSKWC.MAPDSECT, 00330000 // LOADLIB=TR$I01.CICSKWC.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 //TRPGM00W EXEC COB3PROC,TEAMID=00,MEMBER=TRPGM00W 00420002 //TRPGM71 EXEC COB3PROC,TEAMID=71,MEMBER=TRPGM71 00430000 //TRPGM71W EXEC COB3PROC,TEAMID=71,MEMBER=TRPGM71W 00440000 //TRPGM72 EXEC COB3PROC,TEAMID=72,MEMBER=TRPGM72, 00450000 // COND.LINK=((0,NE,TRANS),(4,LT,COBOL)) 00460000 //TRPGM73 EXEC COB3PROC,TEAMID=73,MEMBER=TRPGM73, 00470000 // COND.LINK=((0,NE,TRANS),(4,LT,COBOL)) 00480000 //TRPGM74 EXEC COB3PROC,TEAMID=74,MEMBER=TRPGM74 00490000 //TRPGM75N EXEC COB3PROC,TEAMID=75,MEMBER=TRPGM75N 00500000 //TRPGM75L EXEC COB3PROC,TEAMID=75,MEMBER=TRPGM75L 00510000 //TRPGM75X EXEC COB3PROC,TEAMID=75,MEMBER=TRPGM75X 00520000 //TRPGM75B EXEC COB3PROC,TEAMID=75,MEMBER=TRPGM75B 00530000 //TRPGM75D EXEC COB3PROC,TEAMID=75,MEMBER=TRPGM75D 00540000 //TRPGM76L EXEC COB3PROC,TEAMID=76,MEMBER=TRPGM76L 00550000 //TRPGM76X EXEC COB3PROC,TEAMID=76,MEMBER=TRPGM76X 00560000 //TRPGM76B EXEC COB3PROC,TEAMID=76,MEMBER=TRPGM76B 00570000 //TRPGM76D EXEC COB3PROC,TEAMID=76,MEMBER=TRPGM76D 00580000 //TRPGM81 EXEC COB3PROC,TEAMID=81,MEMBER=TRPGM81 00590000 //TRPGM82 EXEC COB3PROC,TEAMID=82,MEMBER=TRPGM82 00600000 //TRPGM83 EXEC COB3PROC,TEAMID=83,MEMBER=TRPGM83 00610000 //TRPGM83D EXEC COB3PROC,TEAMID=83,MEMBER=TRPGM83D 00620000 //TRPGM84 EXEC COB3PROC,TEAMID=84,MEMBER=TRPGM84 00630000 //TRPGM85 EXEC COB3PROC,TEAMID=85,MEMBER=TRPGM85 00640000 //TRPGM86 EXEC COB3PROC,TEAMID=86,MEMBER=TRPGM86 00650000 //TRPGM87 EXEC COB3PROC,TEAMID=87,MEMBER=TRPGM87 00660000 //TRPGM88 EXEC COB3PROC,TEAMID=88,MEMBER=TRPGM88 00670000 //TRPGM93 EXEC COB3PROC,TEAMID=93,MEMBER=TRPGM93 00680000 //TRPGM94 EXEC COB3PROC,TEAMID=94,MEMBER=TRPGM94 00690000 //TRPGM95 EXEC COB3PROC,TEAMID=95,MEMBER=TRPGM95 00700000 // SET COPYLIB=DFH410.CICS.SDFHSAMP 00710001 //TRPDOC00 EXEC COB3PROC,TEAMID=00,MEMBER=TRPDOC00 00720000 //LINK.SYSLMOD DD DSN=&LOADLIB(TRPDOC00),DISP=SHR 00730000 // 00740000 ./ COBRJOB 06.01 13/11/20 13/11/20 10:42 72 72 1 JCL //* COPY YOUR JOBCARD HERE 00010000 //**********************************************************************00020000 //* *00030000 //* T R A N S L A T E & C O M P I L E *00040000 //* C I C S S A M P L E P R O G R A M S *00050000 //* *00060000 //* SET THE SYMBOLIC VARIABLES TO THE FOLLOWING VALUES: *00070000 //* *00080000 //* SRCLIB - THE DATASET NAME OF THE PDS WHERE PROGRAM RESIDES. *00090000 //* COPYLIB - DATASET NAME OF THE PDS WHERE SYMBOLIC MAPS RESIDE *00100000 //* FROM THE MAPJCL. *00110000 //* LOADLIB - DATASET NAME OF THE PDS WHERE CICS LOADS PROGRAMS *00120000 //* AND MAPSETS FROM. *00130000 //* CICSCOPY - DATASET NAME OF THE PDS WHERE DFHBMSCA, DFHAID, *00140000 //* LINK EDIT INCLUDE STATEMENT AND OTHER CICS *00150000 //* COPYBOOKS. *00160000 //* CICSLOAD - DATASET NAME WHERE THE TRANSLATOR, STUB PROGRAM, *00170000 //* AND OTHER CICS MODULES RESIDE. *00180000 //* LECOPY - THE DATASET NAME WHERE THE LANGUAGE ENVIRONMENT *00190000 //* COPYBOOKS AND SAMPLE PROGRAMS RESIDE. *00200000 //* LELINK - THE DATASET NAME WHERE THE LANGUAGE ENVIRONMENT *00210000 //* LINK ROUTINES RESIDE. *00220000 //* 00230000 //* CHANGE '#' TO THE CICS SAMPLE LIBRARY (FOR DFHDHTXO). 00240000 //* 00250000 //**********************************************************************00260000 //* 00270000 //SETVARS SET TEAMID=, 00280000 // SRCLIB=, 00290000 // MEMBER=, 00300000 // COPYLIB=, 00310000 // LOADLIB=, 00320000 // CICSCOPY=, 00330000 // CICSLOAD=, 00340000 // LECOPY=, 00350000 // LELINK= 00360000 //* 00370000 //PRIVPROC JCLLIB ORDER=(&SRCLIB) 00380000 //* 00390000 //TRPGM00W EXEC COB3PROC,TEAMID=00,MEMBER=TRPGM00W 00400001 //TRPGM71 EXEC COB3PROC,TEAMID=71,MEMBER=TRPGM71 00410000 //TRPGM71W EXEC COB3PROC,TEAMID=71,MEMBER=TRPGM71W 00420000 //TRPGM72 EXEC COB3PROC,TEAMID=72,MEMBER=TRPGM72, 00430000 // COND.LINK=((0,NE,TRANS),(4,LT,COBOL)) 00440000 //TRPGM73 EXEC COB3PROC,TEAMID=73,MEMBER=TRPGM73, 00450000 // COND.LINK=((0,NE,TRANS),(4,LT,COBOL)) 00460000 //TRPGM74 EXEC COB3PROC,TEAMID=74,MEMBER=TRPGM74 00470000 //TRPGM75N EXEC COB3PROC,TEAMID=75,MEMBER=TRPGM75N 00480000 //TRPGM75L EXEC COB3PROC,TEAMID=75,MEMBER=TRPGM75L 00490000 //TRPGM75X EXEC COB3PROC,TEAMID=75,MEMBER=TRPGM75X 00500000 //TRPGM75B EXEC COB3PROC,TEAMID=75,MEMBER=TRPGM75B 00510000 //TRPGM75D EXEC COB3PROC,TEAMID=75,MEMBER=TRPGM75D 00520000 //TRPGM76L EXEC COB3PROC,TEAMID=76,MEMBER=TRPGM76L 00530000 //TRPGM76X EXEC COB3PROC,TEAMID=76,MEMBER=TRPGM76X 00540000 //TRPGM76B EXEC COB3PROC,TEAMID=76,MEMBER=TRPGM76B 00550000 //TRPGM76D EXEC COB3PROC,TEAMID=76,MEMBER=TRPGM76D 00560000 //TRPGM81 EXEC COB3PROC,TEAMID=81,MEMBER=TRPGM81 00570000 //TRPGM82 EXEC COB3PROC,TEAMID=82,MEMBER=TRPGM82 00580000 //TRPGM83 EXEC COB3PROC,TEAMID=83,MEMBER=TRPGM83 00590000 //TRPGM83D EXEC COB3PROC,TEAMID=83,MEMBER=TRPGM83D 00600000 //TRPGM84 EXEC COB3PROC,TEAMID=84,MEMBER=TRPGM84 00610000 //TRPGM85 EXEC COB3PROC,TEAMID=85,MEMBER=TRPGM85 00620000 //TRPGM86 EXEC COB3PROC,TEAMID=86,MEMBER=TRPGM86 00630000 //TRPGM87 EXEC COB3PROC,TEAMID=87,MEMBER=TRPGM87 00640000 //TRPGM88 EXEC COB3PROC,TEAMID=88,MEMBER=TRPGM88 00650000 //TRPGM93 EXEC COB3PROC,TEAMID=93,MEMBER=TRPGM93 00660000 //TRPGM94 EXEC COB3PROC,TEAMID=94,MEMBER=TRPGM94 00670000 //TRPGM95 EXEC COB3PROC,TEAMID=95,MEMBER=TRPGM95 00680000 // SET COPYLIB=# 00690000 //TRPDOC00 EXEC COB3PROC,TEAMID=00,MEMBER=TRPDOC00 00700000 //LINK.SYSLMOD DD DSN=&LOADLIB(TRPDOC00),DISP=SHR 00710000 // 00720000 ./ COB3HWDC 06.00 11/02/04 11/02/04 13:42 41 41 0 JCL //* COPY YOUR JOBCARD HERE 00010000 //**********************************************************************00020000 //* *00030000 //* T R A N S L A T E & C O M P I L E *00040000 //* C I C S P R O G R A M *00050000 //* *00060000 //* SET THE SYMBOLIC VARIABLES TO THE FOLLOWING VALUES: *00070000 //* *00080000 //* TEAMID - YOUR TEAMID ASSIGNED BY YOUR INSTRUCTOR. *00090000 //* SRCLIB - THE DATASET NAME OF THE PDS WHERE PROGRAM RESIDES. *00100000 //* MEMBER - MEMBER NAME OF THE PROGRAM TO TRANSLATE/COMPILE. *00110000 //* COPYLIB - DATASET NAME OF THE PDS WHERE SYMBOLIC MAPS RESIDE *00120000 //* FROM THE MAPJCL. *00130000 //* LOADLIB - DATASET NAME OF THE PDS WHERE CICS LOADS PROGRAMS *00140000 //* AND MAPSETS FROM. *00150000 //* CICSCOPY - DATASET NAME OF THE PDS WHERE DFHBMSCA, DFHAID, *00160000 //* LINK EDIT INCLUDE STATEMENT AND OTHER CICS *00170000 //* COPYBOOKS. *00180000 //* CICSLOAD - DATASET NAME WHERE THE TRANSLATOR, STUB PROGRAM, *00190000 //* AND OTHER CICS MODULES RESIDE. *00200000 //* LECOPY - THE DATASET NAME WHERE THE LANGUAGE ENVIRONMENT *00210000 //* COPYBOOKS AND SAMPLE PROGRAMS RESIDE. *00220000 //* LELINK - THE DATASET NAME WHERE THE LANGUAGE ENVIRONMENT *00230000 //* LINK ROUTINES RESIDE. *00240000 //* 00250000 //**********************************************************************00260000 //* 00270000 //SETVARS SET TEAMID=, 00280000 // SRCLIB=, 00290000 // MEMBER=, 00300000 // COPYLIB=CICS.CLASS.MAPDSECT, 00310000 // LOADLIB=CICS.CLASS.LOADLIB, 00320000 // CICSCOPY=CICS.A640.SDFHCOB, 00330000 // CICSLOAD=CICS.A640.SDFHLOAD, 00340000 // LECOPY=SYS1.SCEESAMP, 00350000 // LELINK=SYS1.SCEELKED 00360000 //* 00370000 //PRIVPROC JCLLIB ORDER=(&SRCLIB) 00380000 //* 00390000 //TRPGMXX EXEC COB3PROC 00400000 // 00410000 ./ COB3IBM 06.01 12/05/03 12/05/03 12:22 43 43 2 JCL //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 ./ COB3JOB 06.00 10/12/24 10/12/24 15:28 41 41 0 JCL //* COPY YOUR JOBCARD HERE //********************************************************************** //* * //* T R A N S L A T E & C O M P I L E * //* C I C S P R O G R A M * //* * //* SET THE SYMBOLIC VARIABLES TO THE FOLLOWING VALUES: * //* * //* TEAMID - YOUR TEAMID ASSIGNED BY YOUR INSTRUCTOR. * //* SRCLIB - THE DATASET NAME OF THE PDS WHERE PROGRAM RESIDES. * //* MEMBER - MEMBER NAME OF THE PROGRAM TO TRANSLATE/COMPILE. * //* COPYLIB - DATASET NAME OF THE PDS WHERE SYMBOLIC MAPS RESIDE * //* FROM THE MAPJCL. * //* LOADLIB - DATASET NAME OF THE PDS WHERE CICS LOADS PROGRAMS * //* AND MAPSETS FROM. * //* CICSCOPY - DATASET NAME OF THE PDS WHERE DFHBMSCA, DFHAID, * //* LINK EDIT INCLUDE STATEMENT AND OTHER CICS * //* COPYBOOKS. * //* CICSLOAD - DATASET NAME WHERE THE TRANSLATOR, STUB PROGRAM, * //* AND OTHER CICS MODULES RESIDE. * //* LECOPY - THE DATASET NAME WHERE THE LANGUAGE ENVIRONMENT * //* COPYBOOKS AND SAMPLE PROGRAMS RESIDE. * //* LELINK - THE DATASET NAME WHERE THE LANGUAGE ENVIRONMENT * //* LINK ROUTINES RESIDE. * //* //********************************************************************** //* //SETVARS SET TEAMID=, // SRCLIB=, // MEMBER=, // COPYLIB=, // LOADLIB=, // CICSCOPY=, // CICSLOAD=, // LECOPY=, // LELINK= //* //PRIVPROC JCLLIB ORDER=(&SRCLIB) //* //TRPGMXX EXEC COB3PROC // ./ COB3PROC 06.00 12/05/03 12/05/03 14:15 67 67 0 PROC //**********************************************************************00010000 //* *00020000 //* T R A N S L A T E & C O M P I L E *00030000 //* C I C S P R O G R A M *00040000 //* *00050000 //* SET THE SYMBOLIC VARIABLES TO THE FOLLOWING VALUES: *00060000 //* *00070000 //* TEAMID - YOUR TEAMID ASSIGNED BY YOUR INSTRUCTOR. *00080000 //* SRCLIB - THE DATASET NAME OF THE PDS WHERE PROGRAM RESIDES. *00090000 //* MEMBER - MEMBER NAME OF THE PROGRAM TO TRANSLATE/COMPILE. *00100000 //* COPYLIB - DATASET NAME OF THE PDS WHERE SYMBOLIC MAPS RESIDE *00110000 //* FROM THE MAPJCL. *00120000 //* LOADLIB - DATASET NAME OF THE PDS WHERE CICS LOADS PROGRAMS *00130000 //* AND MAPSETS FROM. *00140000 //* CICSCOPY - DATASET NAME OF THE PDS WHERE DFHBMSCA, DFHAID, *00150000 //* LINK EDIT INCLUDE STATEMENT AND OTHER CICS *00160000 //* COPYBOOKS. *00170000 //* CICSLOAD - DATASET NAME WHERE THE TRANSLATOR, STUB PROGRAM, *00180000 //* AND OTHER CICS MODULES RESIDE. *00190000 //* LECOPY - THE DATASET NAME WHERE THE LANGUAGE ENVIRONMENT *00200000 //* COPYBOOKS AND SAMPLE PROGRAMS RESIDE. *00210000 //* LELINK - THE DATASET NAME WHERE THE LANGUAGE ENVIRONMENT *00220000 //* LINK ROUTINES RESIDE. *00230000 //* 00240000 //**********************************************************************00250000 //* 00260000 //COB3PROC PROC 00270000 //* 00280000 //TRANS EXEC PGM=DFHECP1$, 00290000 // PARM=(COBOL3,DEBUG,EDF,'FLAG(W)',SPIE,NONUM, 00300000 // OPTIONS,APOST,NOSEQ,SOURCE,'SPACE(1)',VBREF) 00310000 //STEPLIB DD DSN=&CICSLOAD,DISP=SHR 00320000 //SYSPRINT DD SYSOUT=* 00330000 //SYSIN DD DSN=&SRCLIB(&MEMBER),DISP=SHR 00340000 //SYSPUNCH DD UNIT=SYSDA,SPACE=(CYL,(1,1)),DISP=(,PASS) 00350000 //* 00360000 //COBOL EXEC PGM=IGYCRCTL, 00370000 // PARM=(NOOPT,XREF,LIB,NONUM,RENT,NODYNAM,OFFSET, 00380000 // NOSEQ,MAP,'DATA(24)',APOST), 00390000 // COND=(0,NE,TRANS) 00400000 //*STEPLIB DD DSN=&COBCOMP,DISP=SHR 00410000 //SYSLIB DD DSN=&CICSCOPY,DISP=SHR 00420000 // DD DSN=©LIB,DISP=SHR 00430000 // DD DSN=&SRCLIB,DISP=SHR 00440000 // DD DSN=&LECOPY,DISP=SHR 00450000 //SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(1,1)) 00460000 //SYSUT2 DD UNIT=SYSDA,SPACE=(CYL,(1,1)) 00470000 //SYSUT3 DD UNIT=SYSDA,SPACE=(CYL,(1,1)) 00480000 //SYSUT4 DD UNIT=SYSDA,SPACE=(CYL,(1,1)) 00490000 //SYSUT5 DD UNIT=SYSDA,SPACE=(CYL,(1,1)) 00500000 //SYSUT6 DD UNIT=SYSDA,SPACE=(CYL,(1,1)) 00510000 //SYSUT7 DD UNIT=SYSDA,SPACE=(CYL,(1,1)) 00520000 //SYSPRINT DD SYSOUT=* 00530000 //SYSIN DD DSN=*.TRANS.SYSPUNCH,DISP=(OLD,DELETE) 00540000 //SYSLIN DD UNIT=SYSDA,SPACE=(CYL,(1,1)),DISP=(,PASS) 00550000 //* 00560000 //LINK EXEC PGM=IEWL, 00570000 // PARM='LIST,XREF,MAP', 00580000 // COND=((0,NE,TRANS),(0,NE,COBOL)) 00590000 //SYSLIB DD DSN=&CICSLOAD,DISP=SHR 00600000 // DD DSN=&LELINK,DISP=SHR 00610000 //SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(1,1)) 00620000 //SYSPRINT DD SYSOUT=* 00630000 //SYSLIN DD DSN=&CICSCOPY(DFHEILIC),DISP=SHR 00640000 // DD DSN=*.COBOL.SYSLIN,DISP=(OLD,DELETE) 00650000 //SYSLMOD DD DSN=&LOADLIB(TRPGM&TEAMID),DISP=SHR 00660000 // PEND 00670000 ./ MAPRHWDC 06.00 11/02/19 11/02/19 13:18 43 43 0 JCL //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 //* A S S E M B L E M A P S E T *00070000 //* *00080000 //* SET THE SYMBOLIC VARIABLES BELOW TO THE FOLLOWING: *00090000 //* *00100000 //* TEAMID - YOUR TEAMID ASSIGNED BY YOUR INSTRUCTOR. *00110000 //* SRCLIB - DATASET NAME OF THE PDS WHERE THE BMS MACROS RESIDE. *00120000 //* MEMBER - MEMBER NAME OF THE BMS MACROS TO ASSEMBLE *00130000 //* WEBLIB - DATASET NAME OF THE PDS WHERE HTML TEMPLATES RESIDE. *00140000 //* LOADLIB - DATASET NAME OF THE PDS WHERE CICS LOADS PROGRAMS *00150000 //* AND MAPSETS FROM. *00160000 //* COPYLIB - DATASET NAME OF THE PDS WHERE SYMBOLIC MAPS RESIDE *00170000 //* FOR THE COMPILE JCL. *00180000 //* MACLIB - DATASET NAME WHERE THE CICS SYTEM MACROS RESIDE. *00190000 //* COBRJOB - MEMBER NAME FOR THE COBOL COMPILE USING THESE MAPS. *00200000 //* *00210000 //**********************************************************************00220000 //* 00230000 //SETVARS SET TEAMID=, 00240000 // SRCLIB=HWINS01.CICSA.LIB, 00250000 // MEMBER=, 00260000 // WEBLIB=HWINS01.CICSA.WEBLIB, 00270000 // LOADLIB=CICS.CLASS.LOADLIB, 00280000 // COPYLIB=CICS.CLASS.MAPDSECT, 00290000 // MACLIB=CICS.A640.SDFHMAC, 00300000 // COBRJOB=COBRHWDC 00310000 //* 00320000 //PRIVPROC JCLLIB ORDER=(&SRCLIB) 00330000 //* 00340000 //TRMAP00X EXEC MAPSPROC,TEAMID=00,MEMBER=TRMAP00X 00350000 //TRMAP74 EXEC MAPSPROC,TEAMID=74,MEMBER=TRMAP74 00360000 //* 00370000 //COB3 EXEC PGM=IEBGENER 00380000 //SYSIN DD DUMMY 00390000 //SYSPRINT DD SYSOUT=* 00400000 //SYSUT1 DD DSN=&SRCLIB(&COBRJOB),DISP=SHR 00410000 //SYSUT2 DD SYSOUT=(*,INTRDR) 00420000 // 00430000 ./ MAPRIBM 06.01 12/05/03 12/05/03 12:22 42 42 1 JCL //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 ./ MAPRJOB 06.01 12/05/03 12/05/03 12:22 40 40 1 JCL //* 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 ./ MAPSHWDC 06.00 10/12/24 10/12/24 15:37 31 31 0 JCL //* 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 //* *00170000 //**********************************************************************00180000 //* 00190000 //SETVARS SET TEAMID=, 00200000 // SRCLIB=, 00210000 // MEMBER=, 00220000 // WEBLIB=, 00230000 // LOADLIB=CICS.CLASS.LOADLIB, 00240000 // COPYLIB=CICS.CLASS.MAPDSECT, 00250000 // MACLIB=CICS.A640.SDFHMAC 00260000 //* 00270000 //PRIVPROC JCLLIB ORDER=(&SRCLIB) 00280000 //* 00290000 //TRMAPXX EXEC MAPSPROC 00300000 // 00310000 ./ MAPSIBM 06.01 12/05/03 12/05/03 12:22 33 33 1 JCL //TR$I01CM 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 //* *00190000 //**********************************************************************00200000 //* 00210000 //SETVARS SET TEAMID=, 00220000 // SRCLIB=, 00230000 // MEMBER=, 00240000 // WEBLIB=TR$I01.STUDENT.WEBLIB, 00250000 // LOADLIB=TR$I01.STUDENT.LOADLIB, 00260000 // COPYLIB=TR$I01.STUDENT.MAPDSECT, 00270000 // MACLIB=DFH410.CICS.SDFHMAC 00280001 //* 00290000 //PRIVPROC JCLLIB ORDER=(&SRCLIB) 00300000 //* 00310000 //TRMAP00 EXEC MAPSPROC 00320000 // 00330000 ./ MAPSJOB 06.00 10/12/24 10/12/24 15:37 31 31 0 JCL //* 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 //* *00170000 //**********************************************************************00180000 //* 00190000 //SETVARS SET TEAMID=, 00200000 // SRCLIB=, 00210000 // MEMBER=, 00220000 // WEBLIB=, 00230000 // LOADLIB=, 00240000 // COPYLIB=, 00250000 // MACLIB= 00260000 //* 00270000 //PRIVPROC JCLLIB ORDER=(&SRCLIB) 00280000 //* 00290000 //TRMAPXX EXEC MAPSPROC 00300000 // 00310000 ./ MAPSPROC 06.00 12/05/03 12/05/03 14:15 63 63 0 PROC //**********************************************************************00010000 //* *00020000 //* A S S E M B L E M A P S E T *00030000 //* *00040000 //* SET THE SYMBOLIC VARIABLES BELOW TO THE FOLLOWING: *00050000 //* *00060000 //* TEAMID - YOUR TEAMID ASSIGNED BY YOUR INSTRUCTOR. *00070000 //* SRCLIB - DATASET NAME OF THE PDS WHERE THE BMS MACROS RESIDE. *00080000 //* MEMBER - MEMBER NAME OF THE BMS MACROS TO ASSEMBLE *00090000 //* LOADLIB - DATASET NAME OF THE PDS WHERE CICS LOADS PROGRAMS *00100000 //* AND MAPSETS FROM. *00110000 //* COPYLIB - DATASET NAME OF THE PDS WHERE SYMBOLIC MAPS RESIDE *00120000 //* FOR THE COMPILE JCL. *00130000 //* MACLIB - DATASET NAME WHERE THE CICS SYTEM MACROS RESIDE. *00140000 //* WEBLIB - DATASET NAME OF THE PDS WHERE HTML TEMPLATES RESIDE. *00150000 //* *00160000 //**********************************************************************00170000 //* 00180000 //MAPSPROC PROC 00190000 //* 00200000 //MAP EXEC PGM=ASMA90, 00210000 // PARM='SYSPARM(MAP),DECK,NOOBJECT' 00220000 //SYSLIB DD DSN=&MACLIB,DISP=SHR 00230000 // DD DSN=SYS1.MACLIB,DISP=SHR 00240000 //SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(1,1)) 00250000 //SYSUT2 DD UNIT=SYSDA,SPACE=(CYL,(1,1)) 00260000 //SYSUT3 DD UNIT=SYSDA,SPACE=(CYL,(1,1)) 00270000 //SYSPRINT DD SYSOUT=* 00280000 //SYSIN DD DSN=&SRCLIB(&MEMBER),DISP=SHR 00290000 //SYSPUNCH DD UNIT=SYSDA,SPACE=(CYL,(1,1)),DISP=(,PASS) 00300000 //* 00310000 //LINK EXEC PGM=IEWL, 00320000 // PARM='LIST,LET,XREF', 00330000 // COND=(0,NE,MAP) 00340000 //SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(1,1)) 00350000 //SYSPRINT DD SYSOUT=* 00360000 //SYSLMOD DD DSN=&LOADLIB(TRMAP&TEAMID),DISP=SHR 00370000 //SYSLIN DD DSN=*.MAP.SYSPUNCH,DISP=(OLD,DELETE) 00380000 //* 00390000 //DSECT EXEC PGM=ASMA90, 00400000 // PARM='SYSPARM(DSECT),DECK,NOOBJECT', 00410000 // COND=(0,NE,MAP) 00420000 //SYSLIB DD DSN=&MACLIB,DISP=SHR 00430000 // DD DSN=SYS1.MACLIB,DISP=SHR 00440000 //SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(1,1)) 00450000 //SYSUT2 DD UNIT=SYSDA,SPACE=(CYL,(1,1)) 00460000 //SYSUT3 DD UNIT=SYSDA,SPACE=(CYL,(1,1)) 00470000 //SYSPRINT DD SYSOUT=* 00480000 //SYSIN DD DSN=&SRCLIB(&MEMBER),DISP=SHR 00490000 //SYSPUNCH DD DSN=©LIB(TRMAP&TEAMID),DISP=SHR 00500000 //* 00510000 //HTML EXEC PGM=ASMA90, 00520000 // PARM='SYSPARM(TEMPLATE),DECK,NOOBJECT', 00530000 // COND=(0,NE,MAP) 00540000 //SYSLIB DD DSN=&MACLIB,DISP=SHR 00550000 // DD DSN=SYS1.MACLIB,DISP=SHR 00560000 //SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(1,1)) 00570000 //SYSUT2 DD UNIT=SYSDA,SPACE=(CYL,(1,1)) 00580000 //SYSUT3 DD UNIT=SYSDA,SPACE=(CYL,(1,1)) 00590000 //SYSPRINT DD SYSOUT=* 00600000 //SYSIN DD DSN=&SRCLIB(&MEMBER),DISP=SHR 00610000 //SYSPUNCH DD DSN=&WEBLIB(TRMAP&TEAMID.A),DISP=SHR 00620000 // PEND 00630000 ./ TBLREC 06.00 13/10/17 13/10/17 18:21 7 7 0 COPY 000100 01 tr-table. 00010000 000200 05 tr-table-entries OCCURS 0 TO 100 TIMES 00020000 000300 DEPENDING ON ws-length 00030000 000400 ASCENDING KEY IS tr-table-num 00040000 000500 INDEXED BY tr-index. 00050000 000600 10 tr-table-num PIC XX. 00060000 000700 10 tr-table-data PIC X(8). 00070000 ./ TRCOMM 06.02 13/10/17 13/10/17 18:17 47 47 3 COPY 000100* 00010000 000200* This commarea is for program TRPGMxx. 00020000 000300* commarea is 106 bytes long. 00030000 000400* 00040000 000500 05 save-area. 00050000 000600 10 save-sub PIC S9(4) BINARY. 00060000 000700 10 save-areas OCCURS 5. 00070000 000800 15 save-cursor PIC S9(4) BINARY. 00080000 000900 15 save-action PIC X. 00090000 001000 15 save-attribute PIC X. 00100000 001100 15 save-key PIC X(6). 00110000 001200 10 scroll-key PIC X(6). 00120000 001300 88 scroll-end VALUE HIGH-VALUES. 00130000 001400* 00140000 001500* This area is for confirming an add operation 00150000 001600* and for transferring control to program TRYESNO. 00160000 001700* 00170000 001800* Set normal true for normal execution of your pgm. 00180000 001900* add true for processing an add action. 00190000 002000* change true for processing a change action. 00200000 002100* xctl true when TRYESNO xctl back to your pgm. 00210000 002200 05 pgm-xctl-ind PIC X. 00220000 002300 88 pgm-normal VALUE 'N'. 00230000 002400 88 pgm-add-return VALUE 'A'. 00240000 002500 88 pgm-change-return VALUE 'C'. 00250000 002600 88 pgm-xctl-return VALUE 'X'. 00260000 002700* 00270000 002800* This area is for transferring control to program TRYESNO. 00280000 002900* 00290000 003000* Set your program name here (to XCTL back from TRYESNO). 00300000 003100 05 pgm-xctl-from PIC X(8). 00310000 003200* 00320000 003300* This message appears in the confirmation map. 00330000 003400 05 pgm-message PIC X(35). 00340000 003500* 00350000 003600* This is the result of TRYESNO. 00360000 003700 05 pgm-yes-no PIC X(3). 00370000 003800 88 pgm-yes VALUE 'YES'. 00380000 003900 88 pgm-no VALUE 'NO '. 00390000 004000 88 pgm-cancel VALUE SPACES. 00400000 004100 88 pgm-none VALUE LOW-VALUES. 00410000 004200* 00420000 004300* Used by TRYESNO only. 00430000 004400 05 pgm-reserved PIC X. 00440000 004500 88 pgm-reserved-xctl VALUE 'X'. 00450001 004600 88 pgm-reserved-tran VALUE 'T'. 00460001 004700 88 pgm-reserved-none VALUE LOW-VALUES. 00470002 ./ TRHTML80 01.00 11/02/16 11/02/16 19:02 7 7 0 HTML '' '' 'Train-Right Advanced CICS Programming Concepts' '' '' '' '

Train-Right CICS WEB COBOL -

' ./ TRHTML81 01.00 11/02/01 11/02/01 18:26 6 6 0 HTML Train-Right Advanced CICS Programming Concepts

Train-Right CICS WEB COBOL - &tr-pgm;

./ TRHTML82 01.00 11/02/13 11/02/13 17:26 41 41 0 HTML
Choice: Rock Paper Scissors
Wins:
Losses:

&tr-msg;

TRPGM81 TRPGM82 TRPGM83
./ TRHTML83 01.00 11/02/14 11/02/14 08:11 49 49 0 HTML Train-Right Advanced CICS Programming Concepts

Train-Right CICS WEB COBOL - TRPGM83 & TRHTML83

Choice: Rock Paper Scissors
Wins:
Losses:

&tr-msg;

TRPGM81 TRPGM82 TRPGM83
./ TRHTML84 01.00 11/01/30 11/01/30 19:30 1 1 0 HTML ./ TRHTML85 01.00 11/02/28 11/02/28 14:32 6 6 0 HTML '' '' tr-table-num(tr-index) '' tr-table-data(tr-index) '' ./ TRHTML86 01.00 11/02/16 11/02/16 18:59 2 2 0 HTML '' '' ./ TRHTML87 01.00 11/02/13 11/02/13 17:26 36 36 0 HTML
Teamid:
Key:

&tr-msg;

&tr-record;

./ TRHTML88 01.00 11/02/28 11/02/28 14:32 7 7 0 HTML
Enter a graphic file name (.gif or .jpeg):

./ TRHTML89 01.00 11/02/16 11/02/16 18:59 10 10 0 HTML '' '' '' '
' tr-key-team '' tr-key-num '
' tr-data '
' ./ TRMAP74 01.00 11/02/10 11/02/10 12:57 54 54 0 BMS PRINT NOGEN 00010000 TRMAP74 DFHMSD TYPE=&SYSPARM,CTRL=(FREEKB,FRSET),CURSLOC=NO, *00020000 LANG=COBOL,MODE=INOUT,STORAGE=AUTO,TIOAPFX=YES, *00030000 MAPATTS=(COLOR,HILIGHT),DSATTS=(COLOR,HILIGHT) 00040000 TRMAP74 DFHMDI SIZE=(24,80),LINE=01,COLUMN=01 00050000 DFHMDF POS=(01,01),LENGTH=007,ATTRB=ASKIP, CONSTANT*00060000 COLOR=BLUE, *00070000 INITIAL='TRMAP74' 00080000 DFHMDF POS=(01,27),LENGTH=025,ATTRB=ASKIP, CONSTANT*00090000 COLOR=BLUE, *00100000 INITIAL='Train-Right Advanced CICS' 00110000 DFHMDF POS=(01,60),LENGTH=011,ATTRB=ASKIP, CONSTANT*00120000 COLOR=BLUE, *00130000 INITIAL='Task# ....:' 00140000 TASKN DFHMDF POS=(01,72),LENGTH=007,ATTRB=(ASKIP,NUM), OUTPUT*00150000 JUSTIFY=(RIGHT,ZERO),PICIN='9(007)',PICOUT='9(007)', *00160000 COLOR=RED 00170000 DFHMDF POS=(02,60),LENGTH=011,ATTRB=ASKIP, CONSTANT*00180000 COLOR=BLUE, *00190000 INITIAL='Termid ...:' 00200000 TERMID DFHMDF POS=(02,72),LENGTH=004,ATTRB=ASKIP,COLOR=RED OUTPUT 00210000 DFHMDF POS=(04,01),LENGTH=043,ATTRB=ASKIP, CONSTANT*00220000 COLOR=GREEN, *00230000 INITIAL='Type in a response. Then press a valid key.' 00240000 DFHMDF POS=(06,02),LENGTH=010,ATTRB=ASKIP, CONSTANT*00250000 COLOR=GREEN, *00260000 INITIAL='Choice ...' 00270000 CHOICE DFHMDF POS=(06,13),LENGTH=001,ATTRB=(UNPROT,IC), CHAR*00280000 COLOR=TURQUOISE,HILIGHT=UNDERLINE 00290000 DFHMDF POS=(06,15),LENGTH=000,ATTRB=ASKIP STOP BYTE 00300000 DFHMDF POS=(06,19),LENGTH=024,ATTRB=ASKIP, CONSTANT*00310000 COLOR=GREEN, *00320000 INITIAL='Rock, Scissors or Paper.' 00330000 DFHMDF POS=(08,03),LENGTH=010,ATTRB=ASKIP, CONSTANT*00340000 COLOR=GREEN, *00350000 INITIAL='Wins ....:' 00360000 WINS DFHMDF POS=(08,14),LENGTH=006,ATTRB=(ASKIP,NUM), OUTPUT*00370000 JUSTIFY=(RIGHT,ZERO),PICOUT='ZZ,ZZ9', *00380000 COLOR=NEUTRAL 00390000 DFHMDF POS=(09,03),LENGTH=010,ATTRB=ASKIP, CONSTANT*00400000 COLOR=GREEN, *00410000 INITIAL='Losses ..:' 00420000 LOSSES DFHMDF POS=(09,14),LENGTH=006,ATTRB=(ASKIP,NUM), OUTPUT*00430000 JUSTIFY=(RIGHT,ZERO),PICOUT='ZZ,ZZ9', *00440000 COLOR=NEUTRAL 00450000 MSG DFHMDF POS=(22,01),LENGTH=079,ATTRB=ASKIP,COLOR=RED OUTPUT 00460000 DFHMDF POS=(23,02),LENGTH=033,ATTRB=ASKIP, CONSTANT*00470000 COLOR=BLUE, *00480000 INITIAL='Enter=Process Clear=Reset Scores' 00490000 DFHMDF POS=(23,37),LENGTH=008,ATTRB=ASKIP, CONSTANT*00500000 COLOR=BLUE, *00510000 INITIAL='PF3=Exit' 00520000 DFHMSD TYPE=FINAL 00530000 END 00540000 ./ TRMAP74A 01.02 13/10/18 13/10/18 12:39 204 204 0 HTML CICS Web Support BMS screen emulation

CICS Web Support BMS screen emulation

TRMAP74 Train-Right Advanced CICS Task# ....: &F010720007_PRE;&F010720007_TASKN;&F010720007_SUF;
Termid ...: &F020720004_PRE;&F020720004_TERMID;&F020720004_SUF;
Type in a response. Then press a valid key.
Choice ... &F060130001_PRE;&F060130001_CHOICE;&F060130001_SUF; Rock, Scissors or Paper.
Wins ....: &F080140006_PRE;&F080140006_WINS;&F080140006_SUF;
Losses ..: &F090140006_PRE;&F090140006_LOSSES;&F090140006_SUF;
&F220010079_PRE;&F220010079_MSG;&F220010079_SUF;
Enter=Process Clear=Reset Scores PF3=Exit



./ TRMAP74B 01.02 13/10/18 13/10/18 12:39 166 166 0 HTML Train-Right Advanced CICS Programming Concepts

CICS Web Support BMS screen emulation

Train-Right CICS WEB COBOL - TRPGM74 & TRMAP74B

TRMAP74 Train-Right Advanced CICS Task# ...: &F010720007_PRE;&F010720007_TASKN;&F010720007_SUF;
Termid ..: &F020720004_PRE;&F020720004_TERMID;&F020720004_SUF;
Type in a response. Then press a valid key.
Choice ... &F060130001_PRE;&F060130001_CHOICE;&F060130001_SUF; Rock, Scissors or Paper.
Wins ....: &F080140006_PRE;&F080140006_WINS;&F080140006_SUF;
Losses ..: &F090140006_PRE;&F090140006_LOSSES;&F090140006_SUF;
&F220010079_PRE;&F220010079_MSG;&F220010079_SUF;

./ TRPDOC00 01.01 12/05/03 12/05/03 14:16 111 111 1 COBOL 000100 ID DIVISION. 00010000 000200 PROGRAM-ID. TRPDOC00. 00020000 000300*AUTHOR. Kenneth W. Caldwell. 00030000 000400*INSTALLATION. Train-Right. 00040000 000500*DATE-WRITTEN. May 18, 2007. 00050000 000600*DATE-COMPILED. 00060000 000700* 00070000 000800*SECURITY. This program is for students of Train-Right 00080000 000900* courses ONLY!. 00090000 001000* 00100000 001100*REMARKS. This is a DOCUMENT EXIT program. 00110000 001200* It builds a document for use by another program. 00120000 001300* It uses the result buffer passed from CICS to 00130000 001400* build and return the document. 00140000 001500* 00150000 001600 DATA DIVISION. 00160000 001700 WORKING-STORAGE SECTION. 00170000 001800 01. 00180000 001900 05 ws-length PIC S9(8) BINARY. 00190000 002000 05 doc-token PIC X(16). 00200000 002100 05 doc-pulldown PIC X(12) VALUE 'tr-pulldown='. 00210000 002200 05 doc-symbollist PIC X(400). 00220000 002300 05 doc-symbollist-length PIC S9(8) BINARY. 00230000 002400 00240000 002500 LINKAGE SECTION. 00250000 002600* Data passed to the DOCUMENT exit program. 00260000 002700 COPY DFHDHTXO. 00270000 002800* Data area passed to the DOCUMENT exit program for result. 00280000 002900 01 doc-buffer. 00290000 003000 05 PIC X OCCURS 0 TO 32767 TIMES 00300000 003100 DEPENDING ON dhtx-buffer-len. 00310000 003200 00320000 003300 01 doc-name PIC X(48). 00330000 003400 00340000 003500 COPY TBLREC. 00350000 003600 00360000 003700 PROCEDURE DIVISION. 00370000 003800 Main. 00380000 003900* Initialize DOCUMENT exit data area. 00390000 004000 EXEC CICS ADDRESS COMMAREA(ADDRESS OF dhtx-plist) END-EXEC. 00400000 004100 MOVE ZERO TO dhtx-message-len, 00410000 004200 dhtx-return-code, 00420000 004300 dhtx-template-len 00430000 004400* dhtx-cache-response. 00440001 004500 MOVE '1' TO dhtx-append-crlf. 00450000 004600 SET dhtx-message-ptr TO NULL. 00460000 004700 SET ADDRESS OF doc-buffer TO dhtx-buffer-ptr. 00470000 004800 SET ADDRESS OF doc-name TO dhtx-template-name-ptr. 00480000 004900 00490000 005000*Receive-Trans-Input. 00500000 005100 00510000 005200 Process-Data. 00520000 005300 EXEC CICS LOAD PROGRAM('TRTABLE') 00530000 005400 SET(ADDRESS OF tr-table) 00540000 005500 FLENGTH(ws-length) 00550000 005600 END-EXEC. 00560000 005700 00570000 005800 DIVIDE ws-length BY LENGTH OF tr-table-entries 00580000 005900 GIVING ws-length 00590000 006000 END-DIVIDE. 00600000 006100 00610000 006200 MOVE +1 TO doc-symbollist-length. 00620000 006300 STRING doc-pulldown 00630000 006400 '