01 MTI-LOG. 03 LOGREC-PREFIX. 05 LOGREC-RECLEN PIC S9(04) COMP. 05 LOGREC-TABNUM PIC X(4). 05 LOGREC-ACTION PIC X. 88 LOGREC-ACTION-ADD VALUE 'A'. 88 LOGREC-ACTION-CHANGE VALUE 'C'. 88 LOGREC-ACTION-DELETE VALUE 'D'. 05 LOGREC-DATE. 07 LOGREC-CC PIC XX. 07 LOGREC-YY PIC XX. 07 LOGREC-MM PIC XX. 07 LOGREC-DD PIC XX. 05 LOGREC-TIME. 07 LOGREC-TIME-HH PIC XX. 07 LOGREC-TIME-MM PIC XX. 07 LOGREC-TIME-SS PIC XX. 05 LOGREC-TABID PIC X(4). 05 LOGREC-TYPE PIC X. 03 ALT-RXTX-TABLE REDEFINES MTIOAREA. 10 RXTX-KEY-HEADER-FIELDS. 15 TRANS-CODE PIC X(02). 15 RQ-NUMBER. 20 RQ-NUMBER-AGENCY PIC X(03). 20 RQ-NUMBER-NUMBER PIC X(11). 15 COMM-LINE-NUMBER PIC X(03). 15 RQ-TEXT-TABLE-DETAIL. 20 RXTX-KEY-LINE-FIELDS. 25 TEXT-LINE-NUMBER PIC X(03). 20 RXTX-RESULT-FIELDS. 25 TEXT-LINE PIC X(70). 25 LINE-STATUS PIC X(01). 03 FILLER PIC X(1907).