****************************************************************** * DCLGEN TABLE(ODWOWN01.LED_CR) * * LIBRARY(OAAMS.DWUNIT.DCLGEN(ODWTS222)) * * ACTION(REPLACE) * * LANGUAGE(COBOL) * * NAMES(TS222-) * * STRUCTURE(LED-CR) * * QUOTE * * DBCSDELIM(NO) * * COLSUFFIX(YES) * * ... IS THE DCLGEN COMMAND THAT MADE THE FOLLOWING STATEMENTS * ****************************************************************** EXEC SQL DECLARE LED_CR 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, LINE_NUM CHAR(2) NOT NULL, ACCEPTANCE_DATE CHAR(8) NOT NULL, FISC_YEAR CHAR(4) NOT NULL, FISC_MONTH CHAR(2) NOT NULL, FUND CHAR(4) NOT NULL, AGENCY CHAR(3) NOT NULL, ORGANIZATION CHAR(4) NOT NULL, SUB_ORG CHAR(2) NOT NULL, ACTIVITY CHAR(4) NOT NULL, FUNCTION CHAR(4) NOT NULL, APPR_UNIT CHAR(9) NOT NULL, BS_ACCOUNT CHAR(4) NOT NULL, OBJECT CHAR(4) NOT NULL, SUB_OBJECT CHAR(2) NOT NULL, REVENUE_SRC CHAR(4) NOT NULL, SUB_REV_SRC CHAR(2) NOT NULL, JOB_NUMBER CHAR(8) NOT NULL, REPORTING_CAT CHAR(4) NOT NULL, LINE_AMT DECIMAL(15, 2) 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, BANK_ACCOUNT_CODE CHAR(2) NOT NULL, LINE_DESC CHAR(30) NOT NULL, VEND_CUST_CODE CHAR(10) NOT NULL, VEND_CUST_ADDR_IND CHAR(1) NOT NULL, VEND_CUST_NAME CHAR(30) NOT NULL, BILLING_CODE CHAR(4) NOT NULL, ACCOUNT_TYPE CHAR(2) NOT NULL, DEBIT_CREDIT_IND CHAR(1) NOT NULL, LINE_ACTION CHAR(1) NOT NULL, DOC_ACTION CHAR(1) NOT NULL, DOC_DESC CHAR(12) NOT NULL, BUDGET_FISC_YEAR CHAR(4) NOT NULL, FISC_QUARTER CHAR(1) NOT NULL, FED_AID_NUM CHAR(12) NOT NULL, PROJECT_5 CHAR(5) NOT NULL, SUB_PROJECT CHAR(2) NOT NULL, PHASE CHAR(1) NOT NULL, BUDGET_OBJ_CLS CHAR(3) NOT NULL, RECORD_DATE CHAR(8) NOT NULL, APPR_ORG CHAR(4) NOT NULL, ALLOT_ORG CHAR(4) NOT NULL, EXP_BUDG_ORG CHAR(4) NOT NULL, REV_BUDG_ORG CHAR(4) NOT NULL ) END-EXEC. ****************************************************************** * COBOL DECLARATION FOR TABLE ODWOWN01.LED_CR * ****************************************************************** 01 LED-CR. * INT_LED_KEY 10 TS222-INT-LED-KEY PIC X(12). * TRANS_CODE 10 TS222-TRANS-CODE PIC X(2). * TRANS_NUM_AGCY 10 TS222-TRANS-NUM-AGCY PIC X(3). * TRANS_NUM_NUM 10 TS222-TRANS-NUM-NUM PIC X(11). * LINE_NUM 10 TS222-LINE-NUM PIC X(2). * ACCEPTANCE_DATE 10 TS222-ACCEPTANCE-DATE PIC X(8). * FISC_YEAR 10 TS222-FISC-YEAR PIC X(4). * FISC_MONTH 10 TS222-FISC-MONTH PIC X(2). * FUND 10 TS222-FUND PIC X(4). * AGENCY 10 TS222-AGENCY PIC X(3). * ORGANIZATION 10 TS222-ORGANIZATION PIC X(4). * SUB_ORG 10 TS222-SUB-ORG PIC X(2). * ACTIVITY 10 TS222-ACTIVITY PIC X(4). * FUNCTION 10 TS222-FUNCTION PIC X(4). * APPR_UNIT 10 TS222-APPR-UNIT PIC X(9). * BS_ACCOUNT 10 TS222-BS-ACCOUNT PIC X(4). * OBJECT 10 TS222-OBJECT PIC X(4). * SUB_OBJECT 10 TS222-SUB-OBJECT PIC X(2). * REVENUE_SRC 10 TS222-REVENUE-SRC PIC X(4). * SUB_REV_SRC 10 TS222-SUB-REV-SRC PIC X(2). * JOB_NUMBER 10 TS222-JOB-NUMBER PIC X(8). * REPORTING_CAT 10 TS222-REPORTING-CAT PIC X(4). * LINE_AMT 10 TS222-LINE-AMT PIC S9(13)V9(2) USAGE COMP-3. * REF_TRANS_CODE 10 TS222-REF-TRANS-CODE PIC X(2). * REF_TRANS_NUM_AGY 10 TS222-REF-TRANS-NUM-AGY PIC X(3). * REF_TRANS_NUM_NUM 10 TS222-REF-TRANS-NUM-NUM PIC X(11). * REF_TRANS_LINE_NUM 10 TS222-REF-TRANS-LINE-NUM PIC X(2). * BANK_ACCOUNT_CODE 10 TS222-BANK-ACCOUNT-CODE PIC X(2). * LINE_DESC 10 TS222-LINE-DESC PIC X(30). * VEND_CUST_CODE 10 TS222-VEND-CUST-CODE PIC X(10). * VEND_CUST_ADDR_IND 10 TS222-VEND-CUST-ADDR-IND PIC X(1). * VEND_CUST_NAME 10 TS222-VEND-CUST-NAME PIC X(30). * BILLING_CODE 10 TS222-BILLING-CODE PIC X(4). * ACCOUNT_TYPE 10 TS222-ACCOUNT-TYPE PIC X(2). * DEBIT_CREDIT_IND 10 TS222-DEBIT-CREDIT-IND PIC X(1). * LINE_ACTION 10 TS222-LINE-ACTION PIC X(1). * DOC_ACTION 10 TS222-DOC-ACTION PIC X(1). * DOC_DESC 10 TS222-DOC-DESC PIC X(12). * BUDGET_FISC_YEAR 10 TS222-BUDGET-FISC-YEAR PIC X(4). * FISC_QUARTER 10 TS222-FISC-QUARTER PIC X(1). * FED_AID_NUM 10 TS222-FED-AID-NUM PIC X(12). * PROJECT_5 10 TS222-PROJECT-5 PIC X(5). * SUB_PROJECT 10 TS222-SUB-PROJECT PIC X(2). * PHASE 10 TS222-PHASE PIC X(1). * BUDGET_OBJ_CLS 10 TS222-BUDGET-OBJ-CLS PIC X(3). * RECORD_DATE 10 TS222-RECORD-DATE PIC X(8). * APPR_ORG 10 TS222-APPR-ORG PIC X(4). * ALLOT_ORG 10 TS222-ALLOT-ORG PIC X(4). * EXP_BUDG_ORG 10 TS222-EXP-BUDG-ORG PIC X(4). * REV_BUDG_ORG 10 TS222-REV-BUDG-ORG PIC X(4). ****************************************************************** * THE NUMBER OF COLUMNS DESCRIBED BY THIS DECLARATION IS 50 * ******************************************************************