000100 ID DIVISION. 00010000 000200 PROGRAM-ID. TRPGM76. 00020000 000300*AUTHOR. Kenneth W. Caldwell. 00030000 000400*INSTALLATION. Train-Right. 00040000 000500*DATE-WRITTEN. January 15, 2011. 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 program LINK's to program TRPGM75. 00110000 001200* It is a Non-Conversational program. 00120000 001300* 00130000 001400 DATA DIVISION. 00140000 001500 WORKING-STORAGE SECTION. 00150000 001600 01. 00160000 001700 05 input-msg PIC X(12) VALUE 'TR76 TR00 08'. 00170000 001800* 05 input-msg PIC X(9) VALUE 'TR76 TR00'. 00180000 001900* 05 input-msg PIC X(4) VALUE 'TR76'. 00190000 002000* 05 input-msg PIC X(4) VALUE 'TRxx'. 00200000 002100 00210000 002200 LINKAGE SECTION. 00220000 002300 01 dfhcommarea. 00230000 002400 COPY TRRECORD REPLACING ==01== BY ==10== 00240000 002500 ==05== BY ==15== 00250000 002600 ==10== BY ==20==. 00260000 002700 00270000 002800 PROCEDURE DIVISION. 00280000 002900 Main. 00290000 003000 EXEC CICS GETMAIN SET(ADDRESS OF dfhcommarea) 00300000 003100 FLENGTH(LENGTH OF dfhcommarea) 00310000 003200 END-EXEC. 00320000 003300 00330000 003400*Receive-Trans-Input. 00340000 003500 00350000 003600 Process-Data. 00360000 003700 EXEC CICS LINK PROGRAM('TRPGM75') 00370000 003800 INPUTMSG(input-msg) 00380000 003900 INPUTMSGLEN(LENGTH OF input-msg) 00390000 004000 COMMAREA(tr-record) 00400000 004100 END-EXEC. 00410000 004200 00420000 004300*Send-Result. 00430000 004400 00440000 004500 Process-Exit. 00450000 004600 EXEC CICS RETURN END-EXEC. 00460000 004700* Dummy GOBACK. 00470000 004800 GOBACK. 00480000