***************************************************************** * * * TABLE: INVENTORY-TABLE * * * * KEY: WAREHOUSE * * STOCK-ITEM * ***************************************************************** 01 MTI-LOG. 03 LOGREC-PREFIX. 05 LOGREC-RECLEN PIC S9(04) COMP. 05 LOGREC-TABNUM PIC X(4). 05 LOGREC-ACTION PIC X. 88 LOGREC-ACTION-ADD VALUE 'A'. 88 LOGREC-ACTION-CHANGE VALUE 'C'. 88 LOGREC-ACTION-DELETE VALUE 'D'. 05 LOGREC-DATE. 07 LOGREC-CC PIC XX. 07 LOGREC-YY PIC XX. 07 LOGREC-MM PIC XX. 07 LOGREC-DD PIC XX. 05 LOGREC-TIME. 07 LOGREC-TIME-HH PIC XX. 07 LOGREC-TIME-MM PIC XX. 07 LOGREC-TIME-SS PIC XX. 05 LOGREC-TABID PIC X(4). 05 LOGREC-TYPE PIC X. 03 INVENTORY-TABLE REDEFINES MTIOAREA. 05 DOCD-IOAREA. 10 INVN-KEY-FIELDS. 15 WAREHOUSE PIC X(04). 15 STOCK-ITEM. 20 STOCK-NUMBER PIC X(14). 20 STOCK-SUFFIX PIC X(03). 10 INVN-RESULT-FIELDS. 15 STOCK-GROUP PIC X(02). 15 PRIMARY-BIN PIC X(05). 15 ON-HAND-QTYX. 20 ON-HAND-QTY PIC S9(12). 15 BACKORDERED-QTYX. 20 BACKORDERED-QTY PIC S9(12). 15 RESERVED-QTYX. 20 RESERVED-QTY PIC S9(12). 15 RELEASED-QTYX. 20 RELEASED-QTY PIC S9(12). 15 ISSUED-QTY-CURR-MONTHS. 20 ISSUED-JANX. 25 ISSUED-JAN PIC S9(12). 20 ISSUED-FEBX. 25 ISSUED-FEB PIC S9(12). 20 ISSUED-MARX. 25 ISSUED-MAR PIC S9(12). 20 ISSUED-APRX. 25 ISSUED-APR PIC S9(12). 20 ISSUED-MAYX. 25 ISSUED-MAY PIC S9(12). 20 ISSUED-JUNX. 25 ISSUED-JUN PIC S9(12). 20 ISSUED-JULX. 25 ISSUED-JUL PIC S9(12). 20 ISSUED-AUGX. 25 ISSUED-AUG PIC S9(12). 20 ISSUED-SEPX. 25 ISSUED-SEP PIC S9(12). 20 ISSUED-OCTX. 25 ISSUED-OCT PIC S9(12). 20 ISSUED-NOVX. 25 ISSUED-NOV PIC S9(12). 20 ISSUED-DECX. 25 ISSUED-DEC PIC S9(12). 15 ISSUED-QTY-PREV1-MONTHS. 20 ISSUED-JAN-1X. 25 ISSUED-JAN-1 PIC S9(12). 20 ISSUED-FEB-1X. 25 ISSUED-FEB-1 PIC S9(12). 20 ISSUED-MAR-1X. 25 ISSUED-MAR-1 PIC S9(12). 20 ISSUED-APR-1X. 25 ISSUED-APR-1 PIC S9(12). 20 ISSUED-MAY-1X. 25 ISSUED-MAY-1 PIC S9(12). 20 ISSUED-JUN-1X. 25 ISSUED-JUN-1 PIC S9(12). 20 ISSUED-JUL-1X. 25 ISSUED-JUL-1 PIC S9(12). 20 ISSUED-AUG-1X. 25 ISSUED-AUG-1 PIC S9(12). 20 ISSUED-SEP-1X. 25 ISSUED-SEP-1 PIC S9(12). 20 ISSUED-OCT-1X. 25 ISSUED-OCT-1 PIC S9(12). 20 ISSUED-NOV-1X. 25 ISSUED-NOV-1 PIC S9(12). 20 ISSUED-DEC-1X. 25 ISSUED-DEC-1 PIC S9(12). 15 ISSUED-QTY-PREV2-MONTHS. 20 ISSUED-JAN-2X. 25 ISSUED-JAN-2 PIC S9(12). 20 ISSUED-FEB-2X. 25 ISSUED-FEB-2 PIC S9(12). 20 ISSUED-MAR-2X. 25 ISSUED-MAR-2 PIC S9(12). 20 ISSUED-APR-2X. 25 ISSUED-APR-2 PIC S9(12). 20 ISSUED-MAY-2X. 25 ISSUED-MAY-2 PIC S9(12). 20 ISSUED-JUN-2X. 25 ISSUED-JUN-2 PIC S9(12). 20 ISSUED-JUL-2X. 25 ISSUED-JUL-2 PIC S9(12). 20 ISSUED-AUG-2X. 25 ISSUED-AUG-2 PIC S9(12). 20 ISSUED-SEP-2X. 25 ISSUED-SEP-2 PIC S9(12). 20 ISSUED-OCT-2X. 25 ISSUED-OCT-2 PIC S9(12). 20 ISSUED-NOV-2X. 25 ISSUED-NOV-2 PIC S9(12). 20 ISSUED-DEC-2X. 25 ISSUED-DEC-2 PIC S9(12). 15 ISSUED-QTY-PREV3X. 20 ISSUED-QTY-PREV3 PIC S9(12). 15 ISSUED-QTY-PREV4X. 20 ISSUED-QTY-PREV4 PIC S9(12). 15 ISSUED-QTY-PREV5X. 20 ISSUED-QTY-PREV5 PIC S9(12). 15 PI-STATUS PIC X(01). 15 LAST-PI-DATE. 20 LAST-PI-YEAR. 25 LAST-PI-YEAR-CC PIC X(02). 25 LAST-PI-YEAR-YY PIC X(02). 20 LAST-PI-MONTH PIC X(02). 20 LAST-PI-DAY PIC X(02). 15 LAST-PI-COUNTX. 20 LAST-PI-COUNT PIC S9(12). 15 DESCRIPTION-30 PIC X(30). 15 ISSUE-UNIT PIC X(04). 15 PURCH-UNIT PIC X(04). 15 UNIT-MULTIPLIERX. 20 UNIT-MULTIPLIER PIC S9(05). 15 SMALL-UNIT PIC X(01). 15 VENDOR-CODE-R PIC X(11). 20 VENDOR-NUMBER PIC X(10). 20 VENDOR-ADDR-IND PIC X(01). 15 UNIT-COSTX. 20 UNIT-COST PIC S9(14). 15 COSTING-METHOD PIC X(01). 15 REQ-LEAD-TIMEX. 20 REQ-LEAD-TIME PIC S9(03). 15 VENDOR-LEAD-TIMEX. 20 VENDOR-LEAD-TIME PIC S9(03). 15 SURCHARGE-MAXX. 20 SURCHARGE-MAX PIC S9(14). 15 PRICE-METHOD PIC X(01). 15 SAFETY-STOCK-QTYX. 20 SAFETY-STOCK-QTY PIC S9(12). 15 ORDER-UP-TO-QTYX. 20 ORDER-UP-TO-QTY PIC S9(12). 15 REORDER-LEVELX. 20 REORDER-LEVEL PIC S9(12). 15 REORDER-QTYX. 20 REORDER-QTY PIC S9(12). 15 ABC-CLASS PIC X(05). 15 PARENT-ITEM-FLAG PIC X(01). 15 FORECAST-CURR-MONTHS. 20 FORECAST-CURR-JANX. 25 FORECAST-CURR-JAN PIC S9(12). 20 FORECAST-CURR-FEBX. 25 FORECAST-CURR-FEB PIC S9(12). 20 FORECAST-CURR-MARX. 25 FORECAST-CURR-MAR PIC S9(12). 20 FORECAST-CURR-APRX. 25 FORECAST-CURR-APR PIC S9(12). 20 FORECAST-CURR-MAYX. 25 FORECAST-CURR-MAY PIC S9(12). 20 FORECAST-CURR-JUNX. 25 FORECAST-CURR-JUN PIC S9(12). 20 FORECAST-CURR-JULX. 25 FORECAST-CURR-JUL PIC S9(12). 20 FORECAST-CURR-AUGX. 25 FORECAST-CURR-AUG PIC S9(12). 20 FORECAST-CURR-SEPX. 25 FORECAST-CURR-SEP PIC S9(12). 20 FORECAST-CURR-OCTX. 25 FORECAST-CURR-OCT PIC S9(12). 20 FORECAST-CURR-NOVX. 25 FORECAST-CURR-NOV PIC S9(12). 20 FORECAST-CURR-DECX. 25 FORECAST-CURR-DEC PIC S9(12). 15 FORECAST-PREV-MONTHS. 20 FORECAST-PREV-JANX. 25 FORECAST-PREV-JAN PIC S9(12). 20 FORECAST-PREV-FEBX. 25 FORECAST-PREV-FEB PIC S9(12). 20 FORECAST-PREV-MARX. 25 FORECAST-PREV-MAR PIC S9(12). 20 FORECAST-PREV-APRX. 25 FORECAST-PREV-APR PIC S9(12). 20 FORECAST-PREV-MAYX. 25 FORECAST-PREV-MAY PIC S9(12). 20 FORECAST-PREV-JUNX. 25 FORECAST-PREV-JUN PIC S9(12). 20 FORECAST-PREV-JULX. 25 FORECAST-PREV-JUL PIC S9(12). 20 FORECAST-PREV-AUGX. 25 FORECAST-PREV-AUG PIC S9(12). 20 FORECAST-PREV-SEPX. 25 FORECAST-PREV-SEP PIC S9(12). 20 FORECAST-PREV-OCTX. 25 FORECAST-PREV-OCT PIC S9(12). 20 FORECAST-PREV-NOVX. 25 FORECAST-PREV-NOV PIC S9(12). 20 FORECAST-PREV-DECX. 25 FORECAST-PREV-DEC PIC S9(12). 15 ISSUE-MINX. 20 ISSUE-MIN PIC S9(12). 15 ISSUE-MAXX. 20 ISSUE-MAX PIC S9(12). 15 IN-TRANSFER-QTYX. 20 IN-TRANSFER-QTY PIC S9(12). 15 STANDARD-PRICEX. 20 STANDARD-PRICE PIC S9(14). 15 PERC-SURCHARGEX. 20 PERC-SURCHARGE PIC S9(3). 15 FIX-SURCHARGEX. 20 FIX-SURCHARGE PIC S9(14). 15 OBJECT PIC X(04). 15 REVENUE-SOURCE PIC X(04). 15 BS-ACCOUNT PIC X(04). 15 ON-ORDER-QTYX. 20 ON-ORDER-QTY PIC S9(12). 15 MANUAL-REORDER-FLAG PIC X(01). 15 EXTENDED-COSTX. 20 EXTEND-COST-AMT PIC S9(14). 15 IN-KITS-QTYX. 20 IN-KITS-QTY PIC S9(12). 15 EXPECTED-DELIVERY-DATE. 20 DELIVERY-YEAR. 25 DELIVERY-YEAR-CC PIC X(02). 25 DELIVERY-YEAR-YY PIC X(02). 20 DELIVERY-MONTH PIC X(02). 20 DELIVERY-DAY PIC X(02). 15 LAST-ORDERED-DATE. 20 LAST-ORDERED-YEAR. 25 LAST-ORDERED-YEAR-CC PIC X(02). 25 LAST-ORDERED-YEAR-YY PIC X(02). 20 LAST-ORDERED-MONTH PIC X(02). 20 LAST-ORDERED-DAY PIC X(02). 15 LAST-ISSUED-DATE. 20 LAST-ISSUED-YEAR. 25 LAST-ISSUED-YEAR-CC PIC X(02). 25 LAST-ISSUED-YEAR-YY PIC X(02). 20 LAST-ISSUED-MONTH PIC X(02). 20 LAST-ISSUED-DAY PIC X(02). 15 NEW-ITEM-DATE. 20 NEW-ITEM-YEAR. 25 NEW-ITEM-YEAR-CC PIC X(02). 25 NEW-ITEM-YEAR-YY PIC X(02). 20 NEW-ITEM-MONTH PIC X(02). 20 NEW-ITEM-DAY PIC X(02). 15 ACTIVATION-IND PIC X(01). 15 DESCRIPTION-60 PIC X(60). 15 BIN1-NUMBER PIC X(05). 15 BIN2-NUMBER PIC X(05). 15 DELETION-IND PIC X(01). 15 REQUISITIONED-AMOUNTX. 20 REQUISITIONED-AMOUNT PIC S9(12). 15 QTY-PER-ISSUEX. 20 QTY-PER-ISSUE PIC S9(12). 15 LAST-XFER-DATE. 20 LAST-XFER-YEAR. 25 LAST-XFER-CC PIC X(02). 25 LAST-XFER-YY PIC X(02). 20 LAST-XFER-MONTH PIC X(02). 20 LAST-XFER-DAY PIC X(02). 15 SUB-OBJECT PIC X(02). 10 INVN-INFERRED-FIELDS. 15 ADJ-LEAD-TIMEX. 20 ADJ-LEAD-TIME PIC S9(03). 15 UNIT-PRICEX. 20 UNIT-PRICE PIC S9(14). 15 AVAILABLE-QTYX. 20 AVAILABLE-QTY PIC S9(12). 03 FILLER PIC X(746).