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