000100 PROCESS NAME                                                     00010000
000200 ID DIVISION.                                                     00020000
000300 PROGRAM-ID.  TROPEN.                                             00030000
000400                                                                  00040000
000500 ENVIRONMENT DIVISION.                                            00050000
000600 INPUT-OUTPUT SECTION.                                            00060000
000700 FILE-CONTROL.                                                    00070000
000800     SELECT trvsam ASSIGN TO TRVSAM                               00080000
000900                   ORGANIZATION IS INDEXED                        00090000
001000                   ACCESS MODE  IS RANDOM                         00100000
001100                   RECORD KEY   IS trvsam-key                     00110000
001200                   FILE STATUS  IS trvsam-status,                 00120000
001300                                   trvsam-status2.                00130000
001400                                                                  00140000
001500 DATA DIVISION.                                                   00150000
001600 FILE SECTION.                                                    00160000
001700 FD  trvsam.                                                      00170000
001800 01  trvsam-record.                                               00180000
001900     05  trvsam-key         PIC X(6).                             00190000
002000     05                     PIC X(74).                            00200000
002100                                                                  00210000
002200 WORKING-STORAGE SECTION.                                         00220000
002300 77  response               PIC X.                                00230000
002400 77  trvsam-status          PIC XX.                               00240000
002500 01  trvsam-status2.                                              00250000
002600     05  trvsam-status2-rc  PIC S9(4) BINARY.                     00260000
002700     05  trvsam-status2-fc  PIC S9(4) BINARY.                     00270000
002800     05  trvsam-status2-rea PIC S9(4) BINARY.                     00280000
002900     EJECT                                                        00290000
003000 PROCEDURE DIVISION.                                              00300000
003100 A000-START.                                                      00310000
003200     MOVE ZERO TO RETURN-CODE.                                    00320000
003300                                                                  00330000
003400     OPEN I-O trvsam.                                             00340000
003500                                                                  00350000
003600     IF trvsam-status = ZERO                                      00360000
003700          DISPLAY 'Program TROPEN OPEN successful.'               00370000
003800          DISPLAY 'Press ENTER to CLOSE.'                         00380000
003900          ACCEPT response FROM SYSIN                              00390000
004000     ELSE                                                         00400000
004100          DISPLAY 'Program TROPEN OPEN failed.'                   00410000
004200          DISPLAY 'COBOL status: ', trvsam-status, '.'            00420000
004300          DISPLAY 'VSAM status:  ', trvsam-status2-rc,  '.'       00430000
004400          DISPLAY '              ', trvsam-status2-fc,  '.'       00440000
004500          DISPLAY '              ', trvsam-status2-rea, '.'       00450000
004600          MOVE trvsam-status2-rc TO RETURN-CODE                   00460000
004700     END-IF.                                                      00470000
004800                                                                  00480000
004900     CLOSE trvsam.                                                00490000
005000                                                                  00500000
005100     IF trvsam-status = ZERO                                      00510000
005200     THEN DISPLAY 'Program TROPEN CLOSE successful.'              00520000
005300     ELSE DISPLAY 'Program TROPEN CLOSE unsuccessful.'            00530000
005400          DISPLAY 'COBOL status: ', trvsam-status, '.'            00540000
005500          DISPLAY 'VSAM status:  ', trvsam-status2-rc, '.'        00550000
005600          DISPLAY '              ', trvsam-status2-fc,  '.'       00560000
005700          DISPLAY '              ', trvsam-status2-rea, '.'       00570000
005800          MOVE trvsam-status2-rc TO RETURN-CODE                   00580000
005900     END-IF.                                                      00590000
006000                                                                  00600000
006100     GOBACK.                                                      00610000