000100 ID DIVISION.                                                     00010000
000200 PROGRAM-ID.     TRPGMxx.                                         00020000
000300*AUTHOR.                                                          00030000
000400*INSTALLATION.                                                    00040000
000500*DATE-WRITTEN.                                                    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.                                                         00110000
001200*                                                                 00120000
001300 DATA DIVISION.                                                   00130000
001400 WORKING-STORAGE SECTION.                                         00140000
001500 01.                                                              00150000
001600                                                                  00160000
001700 LINKAGE SECTION.                                                 00170000
001800 01  dfhcommarea.                                                 00180000
001900                                                                  00190000
002000 PROCEDURE DIVISION.                                              00200000
002100 Main.                                                            00210000
002200                                                                  00220000
002300 Receive-Trans-Input.                                             00230000
002400                                                                  00240000
002500 Process-Data.                                                    00250000
002600                                                                  00260000
002700 Send-Result.                                                     00270000
002800                                                                  00280000
002900 Process-Exit.                                                    00290000
003000     EXEC CICS RETURN END-EXEC.                                   00300000
003100*    Dummy GOBACK.                                                00310000
003200     GOBACK.                                                      00320000