03 POOL-ACCUM-TABLE                   REDEFINES MTIOAREA.     00000001
                 10  PACC-KEY-HEADER-FIELDS.                            00000002
                  15  GROUP-NO                        PIC X(05).        00000003
                  15  STEP-NO                         PIC X(06).        00000004
                  15  POOL-BASE-IND                   PIC X(01).        00000005
                  15  FUND                            PIC X(04).        00000006
                  15  AGENCY                          PIC X(03).        00000007
                  15  XORGANIZATION                   PIC X(04).        00000008
                  15  SUB-ORG                         PIC X(02).        00000009
                  15  ACTIVITY                        PIC X(04).        00000010
                  15  XFUNCTION                       PIC X(04).        00000011
                  15  OBJ-REV-IND                     PIC X(01).        00000012
                  15  OBJ-REV-CODE                    PIC X(04).        00000013
                  15  SUB-OBJ-REV                     PIC X(02).        00000014
                  15  JOB-NUMBER                      PIC X(08).        00000015
                  15  REPORTING-CATEGORY              PIC X(04).        00000016
                  15  PROJECT-DATA                    PIC X(08).        00000017
                  15  APPR-UNIT                       PIC X(09).        00000018
                  15  ACCOUNT-TYPE                    PIC X(02).        00000019
                  15  POOL-SEQUENCE-NO                PIC X(06).        00000020
                 10  PACC-NON-KEY-HEADER-FIELDS.                        00000021
                  15  REF-STEP-NO                     PIC X(06).        00000022
                  15  FWD-REF-STEP-NO                 PIC X(06).        00000023
                  15  OFF-FUND                        PIC X(04).        00000024
                  15  OFF-AGENCY                      PIC X(03).        00000025
                  15  OFF-XORGANIZATION               PIC X(04).        00000026
                  15  OFF-SUB-ORG                     PIC X(02).        00000027
                  15  OFF-ACTIVITY                    PIC X(04).        00000028
                  15  OFF-OBJ-REV-IND                 PIC X(01).        00000029
                  15  OFF-OBJ-REV-CODE                PIC X(04).        00000030
                  15  OFF-SUB-OBJ-REV                 PIC X(02).        00000031
                  15  OFF-JOB-NUMBER                  PIC X(08).        00000032
                  15  OFF-FUNCTION                    PIC X(04).        00000033
                  15  OFF-REPT-CATG                   PIC X(04).        00000034
                  15  OFF-PROJECT                     PIC X(08).        00000035
                  15  OFF-APPR-UNIT                   PIC X(09).        00000036
                  15  OFF-OPTION                      PIC X(01).        00000037
                  15  ACTIVE-FLAG                     PIC X(01).        00000038
                  15  PERCENT-X                       PIC X(10).        00000039
                  15  ACCUMULATED-AMT                 PIC S9(14).       00000040
                  15  ALLOCATED-AMT                   PIC S9(14).       00000041
                 10  PACC-INFERRED-FIELDS.                              00000050
                  15  REF-POOL-SEQ-NO                 PIC X(06).        00000100