03  PSHD-RECORD                         REDEFINES MTIOAREA.    00000001
              05  PSHD-RECORD-KEY.                                      00000002
                   07  RECEIVABLE-NUMBER.                               00000003
                       09  RECEIV-NUMBER-AGY          PIC X(03).        00000004
                       09  RECEIV-NUMBER-NUM          PIC X(11).        00000005
                   07  PSHD-LINE-RECORD-KEY.                            00000006
                       09  RE-DUE-DATE.                                 00000007
                           11  RE-DUE-DATE-YR.                          00000008
                               13  RE-DUE-DATE-YR-CC  PIC X(02).        00000009
                               13  RE-DUE-DATE-YR-YY  PIC X(02).        00000010
                           11  RE-DUE-DATE-MNTH       PIC X(02).        00000011
                           11  RE-DUE-DATE-DAY        PIC X(02).        00000012
              05  PSHD-RESULT-FIELDS.                                   00000020
                   07  AMOUNT-DUE                     PIC S9(14).       00000100