****************************************************************** * DCLGEN TABLE(LED_INVENTORY) * * LIBRARY(OAAMS.DWUNIT.DCLGEN(ODWTS071)) * * ACTION(REPLACE) * * LANGUAGE(COBOL) * * NAMES(TS071-) * * STRUCTURE(LED-INVENTORY) * * QUOTE * * DBCSDELIM(NO) * * COLSUFFIX(YES) * * ... IS THE DCLGEN COMMAND THAT MADE THE FOLLOWING STATEMENTS * ****************************************************************** EXEC SQL DECLARE LED_INVENTORY 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, BUDGET_FISC_YEAR CHAR(4) NOT NULL, FISC_YEAR CHAR(4) NOT NULL, FISC_QUARTER CHAR(1) NOT NULL, FISC_MONTH CHAR(2) NOT NULL, DOC_ACTION CHAR(1) NOT NULL, REQUESTING_AGENCY CHAR(3) NOT NULL, REQUESTING_ORG CHAR(4) NOT NULL, REQUESTED_BY CHAR(20) NOT NULL, UNIT_PRICE DECIMAL(14, 6) NOT NULL, UNIT_COST DECIMAL(14, 6) NOT NULL, RETURN_CHARGE DECIMAL(15, 2) NOT NULL, USER_ID CHAR(4) NOT NULL, TERMINAL_ID CHAR(8) NOT NULL, WAREHOUSE_CODE CHAR(4) NOT NULL, STOCK_ITEM_NUM CHAR(14) NOT NULL, STOCK_ITEM_SUFFIX CHAR(3) NOT NULL, QUANTITY DECIMAL(12, 3) NOT NULL, ISSUE_UNIT_OF_MEAS CHAR(4) NOT NULL, RETURN_CODE CHAR(6) 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_LINE_NUM CHAR(2) NOT NULL, FUND CHAR(4) NOT NULL, AGENCY CHAR(3) NOT NULL, ORGANIZATION CHAR(4) NOT NULL, ACTIVITY CHAR(4) NOT NULL, OBJECT CHAR(4) NOT NULL, ACCOUNT_TYPE CHAR(2) NOT NULL, SUB_ORG CHAR(2) NOT NULL, APPR_UNIT CHAR(9) NOT NULL, SUB_OBJECT CHAR(2) NOT NULL, JOB_NUMBER CHAR(8) NOT NULL, DELIVERY_DATE CHAR(8) NOT NULL, RECORD_DATE CHAR(8) NOT NULL, FUNCTION CHAR(4) NOT NULL, COST_CATEGORY CHAR(3) NOT NULL, JOB_TYP CHAR(4) NOT NULL, REPORTING_CAT CHAR(4) NOT NULL ) END-EXEC. ****************************************************************** * COBOL DECLARATION FOR TABLE LED_INVENTORY * ****************************************************************** 01 LED-INVENTORY. * INT_LED_KEY 10 TS071-INT-LED-KEY PIC X(12). * TRANS_CODE 10 TS071-TRANS-CODE PIC X(2). * TRANS_NUM_AGCY 10 TS071-TRANS-NUM-AGCY PIC X(3). * TRANS_NUM_NUM 10 TS071-TRANS-NUM-NUM PIC X(11). * COMMODITY_LINE_NUM 10 TS071-COMMODITY-LINE-NUM PIC X(3). * ACCEPTANCE_DATE 10 TS071-ACCEPTANCE-DATE PIC X(8). * BUDGET_FISC_YEAR 10 TS071-BUDGET-FISC-YEAR PIC X(4). * FISC_YEAR 10 TS071-FISC-YEAR PIC X(4). * FISC_QUARTER 10 TS071-FISC-QUARTER PIC X(1). * FISC_MONTH 10 TS071-FISC-MONTH PIC X(2). * DOC_ACTION 10 TS071-DOC-ACTION PIC X(1). * REQUESTING_AGENCY 10 TS071-REQUESTING-AGENCY PIC X(3). * REQUESTING_ORG 10 TS071-REQUESTING-ORG PIC X(4). * REQUESTED_BY 10 TS071-REQUESTED-BY PIC X(20). * UNIT_PRICE 10 TS071-UNIT-PRICE PIC S9(8)V9(6) USAGE COMP-3. * UNIT_COST 10 TS071-UNIT-COST PIC S9(8)V9(6) USAGE COMP-3. * RETURN_CHARGE 10 TS071-RETURN-CHARGE PIC S9(13)V9(2) USAGE COMP-3. * USER_ID 10 TS071-USER-ID PIC X(4). * TERMINAL_ID 10 TS071-TERMINAL-ID PIC X(8). * WAREHOUSE_CODE 10 TS071-WAREHOUSE-CODE PIC X(4). * STOCK_ITEM_NUM 10 TS071-STOCK-ITEM-NUM PIC X(14). * STOCK_ITEM_SUFFIX 10 TS071-STOCK-ITEM-SUFFIX PIC X(3). * QUANTITY 10 TS071-QUANTITY PIC S9(9)V9(3) USAGE COMP-3. * ISSUE_UNIT_OF_MEAS 10 TS071-ISSUE-UNIT-OF-MEAS PIC X(4). * RETURN_CODE 10 TS071-RETURN-CODE PIC X(6). * REF_TRANS_CODE 10 TS071-REF-TRANS-CODE PIC X(2). * REF_TRANS_NUM_AGY 10 TS071-REF-TRANS-NUM-AGY PIC X(3). * REF_TRANS_NUM_NUM 10 TS071-REF-TRANS-NUM-NUM PIC X(11). * REF_TRANS_LINE_NUM 10 TS071-REF-TRANS-LINE-NUM PIC X(2). * FUND 10 TS071-FUND PIC X(4). * AGENCY 10 TS071-AGENCY PIC X(3). * ORGANIZATION 10 TS071-ORGANIZATION PIC X(4). * ACTIVITY 10 TS071-ACTIVITY PIC X(4). * OBJECT 10 TS071-OBJECT PIC X(4). * ACCOUNT_TYPE 10 TS071-ACCOUNT-TYPE PIC X(2). * SUB_ORG 10 TS071-SUB-ORG PIC X(2). * APPR_UNIT 10 TS071-APPR-UNIT PIC X(9). * SUB_OBJECT 10 TS071-SUB-OBJECT PIC X(2). * JOB_NUMBER 10 TS071-JOB-NUMBER PIC X(8). * DELIVERY_DATE 10 TS071-DELIVERY-DATE PIC X(8). * RECORD_DATE 10 TS071-RECORD-DATE PIC X(8). * FUNCTION 10 TS071-FUNCTION PIC X(4). * COST_CATEGORY 10 TS071-COST-CATEGORY PIC X(3). * JOB_TYP 10 TS071-JOB-TYP PIC X(4). * REPORTING_CAT 10 TS071-REPORTING-CAT PIC X(4). ****************************************************************** * THE NUMBER OF COLUMNS DESCRIBED BY THIS DECLARATION IS 45 * ******************************************************************