03 OPEN-TR-HEADER-TABLE REDEFINES MTIOAREA. 10 OTRH-KEY-FIELDS. 15 TRANS-ID. 20 TRANS-CODE PIC X(02). 20 TRANS-NUMBER. 25 TRANS-NUMBER-AGENCY PIC X(03). 25 TRANS-NUMBER-NUMBER PIC X(11). 10 OTRH-RESULT-FIELDS. 15 TRANS-DATE. 20 TRANS-YEAR. 25 TRANS-YEAR-CC PIC X(02). 25 TRANS-YEAR-YY PIC X(02). 20 TRANS-MONTH PIC X(02). 20 TRANS-DAY PIC X(02). 15 ISSUE-WHSE PIC X(04). 15 RECEIVE-WHSE PIC X(04). 15 RECEIVED-BY PIC X(20). 15 ISSUED-DATE. 20 ISSUED-YEAR. 25 ISSUED-YEAR-CC PIC X(02). 25 ISSUED-YEAR-YY PIC X(02). 20 ISSUED-MONTH PIC X(02). 20 ISSUED-DAY PIC X(02). 15 COMMENTS-ISSUED PIC X(30). 15 COMMENTS-RECEIVED PIC X(30). 15 ISSUED-BY PIC X(20). 15 TOTAL-COMM-LINES PIC S9(03). 15 CLOSED-COMM-LINES PIC S9(03). 15 CLOSED-DATE. 20 CLOSED-YEAR. 25 CLOSED-YEAR-CC PIC X(02). 25 CLOSED-YEAR-YY PIC X(02). 20 CLOSED-MONTH PIC X(02). 20 CLOSED-DAY PIC X(02). 15 RECEIVED-DATE. 20 RECEIVED-YEAR. 25 RECEIVED-YEAR-CC PIC X(02). 25 RECEIVED-YEAR-YY PIC X(02). 20 RECEIVED-MONTH PIC X(02). 20 RECEIVED-DAY PIC X(02). 15 DELIVERY-DATE. 20 DELIVERY-YEAR. 25 DELIVERY-YEAR-CC PIC X(02). 25 DELIVERY-YEAR-YY PIC X(02). 20 DELIVERY-MONTH PIC X(02). 20 DELIVERY-DAY PIC X(02).