03 ALT-PASM-TABLE                     REDEFINES MTIOAREA.     00000001
                 10  PASM-KEY-FIELDS.                                   00000002
                  15  PA-NUMBER                       PIC X(11).        00000003
                 10  PASM-RESULT-FIELDS.                                00000004
                  15  DESCRIPTION-60                  PIC X(60).        00000005
                  15  START-DATE.                                       00000006
                   20  START-YEAR.                                      00000007
                    25  START-YEAR-CC                 PIC X(02).        00000008
                    25  START-YEAR-YY                 PIC X(02).        00000009
                   20  START-MONTH                    PIC X(02).        00000010
                   20  START-DAY                      PIC X(02).        00000011
                  15  END-DATE.                                         00000012
                   20  END-YEAR.                                        00000013
                    25  END-YEAR-CC                   PIC X(02).        00000014
                    25  END-YEAR-YY                   PIC X(02).        00000015
                   20  END-MONTH                      PIC X(02).        00000016
                   20  END-DAY                        PIC X(02).        00000017
                  15  AUTHORIZED-AMOUNT               PIC S9(14).       00000018
                  15  ENCUMBERED-AMOUNT               PIC S9(14).       00000019
                  15  CLOSED-AMOUNT                   PIC S9(14).       00000020
                  15  EXPENDED-AMOUNT                 PIC S9(14).       00000021
                  15  NUMBER-OF-ORDERS                PIC S9(05).       00000022
                  15  BUYER-CODE                      PIC X(02).        00000023
                  15  RESTRICT-IND                    PIC X(01).        00000024
                  15  FOB-POINT                       PIC X(01).        00000025
                  15  LAG-DAYS                        PIC X(03).        00000026
                  15  RENEWAL-DAYS                    PIC X(03).        00000027
                  15  RENEWAL-FLAG                    PIC X(01).        00000028
                  15  PG-IND                          PIC X(01).        00000029
                  15  TAX-CODE                        PIC X(03).        00000030
                  15  DOCUMENT-USAGE                  PIC X(01).        00000040
                  15  PA-MOD-NUMBER                   PIC X(03).        00000100