03 WAREHOUSE-TABLE                    REDEFINES MTIOAREA.     00000001
              05 DOCD-IOAREA.                                           00000002
                 10  WHSE-KEY-FIELDS.                                   00000003
                  15  WAREHOUSE                       PIC X(04).        00000004
                 10  WHSE-RESULT-FIELDS.                                00000005
                  15  INVENTORY-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  LOCATION                        PIC X(20).        00000011
                  15  DESCRIPTION-30                  PIC X(30).        00000012
                  15  PARENT-WAREHOUSE                PIC X(04).        00000013
                  15  RETURN-PERCENTX.                                  00000014
                   20  RETURN-PERCENT                 PIC S9(03).       00000015
                  15  RETURN-AMOUNTX.                                   00000016
                   20  RETURN-AMOUNT                  PIC S9(14).       00000017
                  15  RETURN-FLAG                     PIC X(01).        00000018
                  15  NUM-ALT-ORDERSX.                                  00000019
                   20  NUM-ALT-ORDERS                 PIC S9(02).       00000020
                  15  DEFAULT-OBJECT                  PIC X(04).        00000021
                  15  DEF-REVENUE-SOURCE              PIC X(04).        00000022
                  15  DEF-BS-ACCOUNT                  PIC X(04).        00000023
                  15  COGS-EXP-ACCOUNT                PIC X(04).        00000024
                  15  REPORTING-CATEGORY              PIC X(04).        00000025
                  15  PRINTER-ID                      PIC X(12).        00000026
                  15  SR-RETENTIONX.                                    00000027
                   20  SR-RETENTION                   PIC S9(03).       00000028
                  15  OC-RETENTIONX.                                    00000029
                   20  OC-RETENTION                   PIC S9(03).       00000030
                  15  JOBNAME                         PIC X(08).        00000031
                  15  BACKORDERING-IND                PIC X(01).        00000032
                  15  TR-RETENTIONX.                                    00000033
                   20  TR-RETENTION                   PIC S9(03).       00000034
                  15  XFUNCTION                       PIC X(04).        00000035
                  15  CONSUMPTION-IND                 PIC X(01).        00000036
                  15  APPR-UNIT                       PIC X(09).        00000037
                  15  XFER-REORDER                    PIC X(01).        00000040
                  15  DEFAULT-SUB-OBJECT              PIC X(02).        00000100