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