03 ALLOTMENT-TABLE                    REDEFINES MTIOAREA.     00000001
              05  DOCH-IOAREA.                                          00000002
                 10  ALLT-KEY-FIELDS.                                   00000003
                  15  FISC-YEAR.                                        00000004
                   20  FISC-YEAR-CC                   PIC X(02).        00000005
                   20  FISC-YEAR-YY                   PIC X(02).        00000006
                  15  FUND                            PIC X(04).        00000007
                  15  AGENCY                          PIC X(03).        00000008
                  15  XORGANIZATION                   PIC X(04).        00000009
                  15  APPR-UNIT                       PIC X(09).        00000010
              05  DOCD-IOAREA.                                          00000011
                  15  ALLOTMENT-PERIOD.                                 00000012
                   20  ALLOTMENT-PERIOD-CC            PIC X(02).        00000013
                   20  ALLOTMENT-PERIOD-YYQMM         PIC X(05).        00000014
                 10  ALLT-RESULT-FIELDS.                                00000015
                  15  ALLOTMENT-AMT                   PIC S9(14).       00000016
                  15  PRE-ENCUMBERED-AMT              PIC S9(14).       00000017
                  15  ENCUMBERED-AMT                  PIC S9(14).       00000018
                  15  EXPENDED-AMT                    PIC S9(14).       00000019
                 10  CALCULATED-FIELDS.                                 00000020
                  15  UNCOMMITTED-AMT                 PIC S9(14).       00000030
                  15  UNEXPENDED-AMT                  PIC S9(14).       00000100