03 PMT-ACCOUNT-INFO-SCREEN            REDEFINES MTIOAREA.
              05  KEY-FIELDS.
                 07  ACCOUNT-NUMBER                      PIC X(20).
              05  RESULT-FIELDS.
                 07  DESCRIPTION                         PIC X(30).
                 07  VENDOR-NUMBER.
                    09  VENDOR-NUM                       PIC X(10).
                    09  VENDOR-ADDR-IND                  PIC X(1).
                 07  PO-SER-CONT-REQ                     PIC X.
                 07  REFUNDABLE-DEPOSIT-X                PIC X(14).
                 07  LOCATION                            PIC X(25).
                 07  MAX-CONTRACT-AMT-X                  PIC X(14).
                 07  REMARKS                             PIC X(30).
                 07  AVERAGE-USAGE-X                     PIC X(14).
                 07  NUM-OF-INVOICES-X                   PIC X(14).
                 07  PREV-CDNI-X                         PIC X(14).
                    09  PREV-CDNI                        PIC S9(12)V99.
                 07  PRV-CONTRACT-PMTX                   PIC X(14).
                    09  PRV-CONTRACT-PMT                 PIC S9(12)V99.
              05  INFERRED-FIELD.
                 07  VENDOR-NAME                         PIC X(30).