****************************************************************** * DCLGEN TABLE(ODWOWN01.LED_COMMODITY) * * LIBRARY(OAAMS.DWUNIT.DCLGEN(ODWTS080)) * * ACTION(REPLACE) * * LANGUAGE(COBOL) * * NAMES(TS080-) * * STRUCTURE(LED-COMMODITY) * * QUOTE * * DBCSDELIM(NO) * * COLSUFFIX(YES) * * ... IS THE DCLGEN COMMAND THAT MADE THE FOLLOWING STATEMENTS * ****************************************************************** EXEC SQL DECLARE LED_COMMODITY TABLE ( INT_LED_KEY CHAR(12) NOT NULL, TRANS_CODE CHAR(2) NOT NULL, TRANS_NUM_AGCY CHAR(3) NOT NULL, TRANS_NUM_NUM CHAR(11) NOT NULL, COMMODITY_LINE_NUM CHAR(3) NOT NULL, ACCEPTANCE_DATE CHAR(8) NOT NULL, FISC_YEAR CHAR(4) NOT NULL, FISC_QUARTER CHAR(1) NOT NULL, FISC_MONTH CHAR(2) NOT NULL, BUDGET_FISC_YEAR CHAR(4) NOT NULL, DOC_ACTION CHAR(1) NOT NULL, REQUISITION_TYP CHAR(1) NOT NULL, VENDOR_NUMBER CHAR(10) NOT NULL, VENDOR_ADDR_IND CHAR(1) NOT NULL, RESPONSIBLE_AGCY CHAR(3) NOT NULL, RESPONSIBLE_ORG CHAR(4) NOT NULL, TAX_AMT DECIMAL(15, 2) NOT NULL, FREIGHT_AMT DECIMAL(15, 2) NOT NULL, COMMODITY_CODE CHAR(14) NOT NULL, QUANTITY DECIMAL(12, 3) NOT NULL, UNIT_OF_MEASURE CHAR(4) NOT NULL, UNIT_COST DECIMAL(14, 6) NOT NULL, EXTENDED_COST DECIMAL(15, 2) NOT NULL, SPECIAL_CONDITION CHAR(2) NOT NULL, PARTIAL_FINAL_IND CHAR(1) NOT NULL, REF_TRANS_CODE CHAR(2) NOT NULL, REF_TRANS_NUM_AGY CHAR(3) NOT NULL, REF_TRANS_NUM_NUM CHAR(11) NOT NULL, REF_TRANS_COMM_LN CHAR(3) NOT NULL, PRICE_AGR_NUM CHAR(11) NOT NULL, BUYER_CODE CHAR(2) NOT NULL, WAREHOUSE_CODE CHAR(4) NOT NULL, ITEM_CODE CHAR(3) NOT NULL, BID_NUMBER CHAR(10) NOT NULL, BID_LINE_NUM CHAR(3) NOT NULL, ORIGINAL_UNIT_COST DECIMAL(14, 6) NOT NULL, DELIVERY_DATE CHAR(8) NOT NULL, RECORD_DATE CHAR(8) NOT NULL, SHIP_ADDRESS_CODE CHAR(3) NOT NULL, CONFIRM_ORDER CHAR(1) NOT NULL, FOB_POINT CHAR(1) NOT NULL, DISCOUNT_CODE CHAR(1) NOT NULL, DISCOUNT_TYP CHAR(1) NOT NULL, DISCOUNT_PCT DECIMAL(7, 2) NOT NULL, DISCOUNT_AMT DECIMAL(15, 2) NOT NULL, PA_LINE_NUMBER CHAR(3) NOT NULL ) END-EXEC. ****************************************************************** * COBOL DECLARATION FOR TABLE ODWOWN01.LED_COMMODITY * ****************************************************************** 01 LED-COMMODITY. * INT_LED_KEY 10 TS080-INT-LED-KEY PIC X(12). * TRANS_CODE 10 TS080-TRANS-CODE PIC X(2). * TRANS_NUM_AGCY 10 TS080-TRANS-NUM-AGCY PIC X(3). * TRANS_NUM_NUM 10 TS080-TRANS-NUM-NUM PIC X(11). * COMMODITY_LINE_NUM 10 TS080-COMMODITY-LINE-NUM PIC X(3). * ACCEPTANCE_DATE 10 TS080-ACCEPTANCE-DATE PIC X(8). * FISC_YEAR 10 TS080-FISC-YEAR PIC X(4). * FISC_QUARTER 10 TS080-FISC-QUARTER PIC X(1). * FISC_MONTH 10 TS080-FISC-MONTH PIC X(2). * BUDGET_FISC_YEAR 10 TS080-BUDGET-FISC-YEAR PIC X(4). * DOC_ACTION 10 TS080-DOC-ACTION PIC X(1). * REQUISITION_TYP 10 TS080-REQUISITION-TYP PIC X(1). * VENDOR_NUMBER 10 TS080-VENDOR-NUMBER PIC X(10). * VENDOR_ADDR_IND 10 TS080-VENDOR-ADDR-IND PIC X(1). * RESPONSIBLE_AGCY 10 TS080-RESPONSIBLE-AGCY PIC X(3). * RESPONSIBLE_ORG 10 TS080-RESPONSIBLE-ORG PIC X(4). * TAX_AMT 10 TS080-TAX-AMT PIC S9(13)V9(2) USAGE COMP-3. * FREIGHT_AMT 10 TS080-FREIGHT-AMT PIC S9(13)V9(2) USAGE COMP-3. * COMMODITY_CODE 10 TS080-COMMODITY-CODE PIC X(14). * QUANTITY 10 TS080-QUANTITY PIC S9(9)V9(3) USAGE COMP-3. * UNIT_OF_MEASURE 10 TS080-UNIT-OF-MEASURE PIC X(4). * UNIT_COST 10 TS080-UNIT-COST PIC S9(8)V9(6) USAGE COMP-3. * EXTENDED_COST 10 TS080-EXTENDED-COST PIC S9(13)V9(2) USAGE COMP-3. * SPECIAL_CONDITION 10 TS080-SPECIAL-CONDITION PIC X(2). * PARTIAL_FINAL_IND 10 TS080-PARTIAL-FINAL-IND PIC X(1). * REF_TRANS_CODE 10 TS080-REF-TRANS-CODE PIC X(2). * REF_TRANS_NUM_AGY 10 TS080-REF-TRANS-NUM-AGY PIC X(3). * REF_TRANS_NUM_NUM 10 TS080-REF-TRANS-NUM-NUM PIC X(11). * REF_TRANS_COMM_LN 10 TS080-REF-TRANS-COMM-LN PIC X(3). * PRICE_AGR_NUM 10 TS080-PRICE-AGR-NUM PIC X(11). * BUYER_CODE 10 TS080-BUYER-CODE PIC X(2). * WAREHOUSE_CODE 10 TS080-WAREHOUSE-CODE PIC X(4). * ITEM_CODE 10 TS080-ITEM-CODE PIC X(3). * BID_NUMBER 10 TS080-BID-NUMBER PIC X(10). * BID_LINE_NUM 10 TS080-BID-LINE-NUM PIC X(3). * ORIGINAL_UNIT_COST 10 TS080-ORIGINAL-UNIT-COST PIC S9(8)V9(6) USAGE COMP-3. * DELIVERY_DATE 10 TS080-DELIVERY-DATE PIC X(8). * RECORD_DATE 10 TS080-RECORD-DATE PIC X(8). * SHIP_ADDRESS_CODE 10 TS080-SHIP-ADDRESS-CODE PIC X(3). * CONFIRM_ORDER 10 TS080-CONFIRM-ORDER PIC X(1). * FOB_POINT 10 TS080-FOB-POINT PIC X(1). * DISCOUNT_CODE 10 TS080-DISCOUNT-CODE PIC X(1). * DISCOUNT_TYP 10 TS080-DISCOUNT-TYP PIC X(1). * DISCOUNT_PCT 10 TS080-DISCOUNT-PCT PIC S9(5)V9(2) USAGE COMP-3. * DISCOUNT_AMT 10 TS080-DISCOUNT-AMT PIC S9(13)V9(2) USAGE COMP-3. * PA_LINE_NUMBER 10 TS080-PA-LINE-NUMBER PIC X(3). ****************************************************************** * THE NUMBER OF COLUMNS DESCRIBED BY THIS DECLARATION IS 46 * ******************************************************************