03  RETX-RECORD                         REDEFINES MTIOAREA.    00000001
              05  RETX-RECORD-KEY.                                      00000002
                   07  RECEIVABLE-NUMBER.                               00000003
                       09  RECEIV-NUMBER-AGY            PIC X(03).      00000004
                       09  RECEIV-NUMBER-NUM            PIC X(11).      00000005
                   07  RECEIVABLE-LINE-NUM              PIC X(02).      00000006
                   07  RETX-LINE-RECORD-KEY.                            00000007
                       09  TEXT-LINE-NUM                PIC X(03).      00000008
              05  RETX-RESULT-FIELDS.                                   00000010
                   07  RETX-TEXT                        PIC X(70).      00000100