****************************************************************** * DCLGEN TABLE(LED_EXPENDITURES) * * LIBRARY(OAAMS.DWUNIT.DCLGEN(ODWTS078)) * * ACTION(REPLACE) * * LANGUAGE(COBOL) * * NAMES(TS078-) * * STRUCTURE(LED-EXPENDITURES) * * QUOTE * * DBCSDELIM(NO) * * COLSUFFIX(YES) * * ... IS THE DCLGEN COMMAND THAT MADE THE FOLLOWING STATEMENTS * ****************************************************************** EXEC SQL DECLARE LED_EXPENDITURES TABLE ( INT_LED_KEY CHAR(12) NOT NULL, EXP_TR_CODE CHAR(2) NOT NULL, EXP_TR_NUM_AGY CHAR(3) NOT NULL, EXP_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, 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, EXPENDED_AMT DECIMAL(15, 2) NOT NULL, APPR_ORG CHAR(4) NOT NULL, ALLOT_ORG CHAR(4) NOT NULL, EXP_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, BUDGET_OBJ_CLS CHAR(3) NOT NULL, ENC_TR_CODE CHAR(2) NOT NULL, ENC_TR_NUM_AGY CHAR(3) NOT NULL, ENC_TR_NUM_NUM CHAR(11) NOT NULL, ENC_TR_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, ORDER_TYP CHAR(1) NOT NULL, QUANTITY DECIMAL(12, 3) 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, DOC_DESC_INV_NUM CHAR(12) NOT NULL, DEBIT_CREDIT_IND CHAR(1) NOT NULL, PO_COMM_LN_NUM CHAR(3) NOT NULL ) END-EXEC. ****************************************************************** * COBOL DECLARATION FOR TABLE LED_EXPENDITURES * ****************************************************************** 01 LED-EXPENDITURES. * INT_LED_KEY 10 TS078-INT-LED-KEY PIC X(12). * EXP_TR_CODE 10 TS078-EXP-TR-CODE PIC X(2). * EXP_TR_NUM_AGY 10 TS078-EXP-TR-NUM-AGY PIC X(3). * EXP_TR_NUM_NUM 10 TS078-EXP-TR-NUM-NUM PIC X(11). * LINE_NUM 10 TS078-LINE-NUM PIC X(2). * ACCEPTANCE_DATE 10 TS078-ACCEPTANCE-DATE PIC X(8). * FISC_YEAR 10 TS078-FISC-YEAR PIC X(4). * FISC_QUARTER 10 TS078-FISC-QUARTER PIC X(1). * FISC_MONTH 10 TS078-FISC-MONTH PIC X(2). * BUDGET_FISC_YEAR 10 TS078-BUDGET-FISC-YEAR PIC X(4). * FUND 10 TS078-FUND PIC X(4). * AGENCY 10 TS078-AGENCY PIC X(3). * ORGANIZATION 10 TS078-ORGANIZATION PIC X(4). * SUB_ORG 10 TS078-SUB-ORG PIC X(2). * ACTIVITY 10 TS078-ACTIVITY PIC X(4). * FUNCTION 10 TS078-FUNCTION PIC X(4). * APPR_UNIT 10 TS078-APPR-UNIT PIC X(9). * ACCOUNT_TYPE 10 TS078-ACCOUNT-TYPE PIC X(2). * BS_ACCOUNT 10 TS078-BS-ACCOUNT PIC X(4). * OBJECT 10 TS078-OBJECT PIC X(4). * SUB_OBJECT 10 TS078-SUB-OBJECT PIC X(2). * JOB_NUMBER 10 TS078-JOB-NUMBER PIC X(8). * REPORTING_CAT 10 TS078-REPORTING-CAT PIC X(4). * EXPENDED_AMT 10 TS078-EXPENDED-AMT PIC S9(13)V9(2) USAGE COMP-3. * APPR_ORG 10 TS078-APPR-ORG PIC X(4). * ALLOT_ORG 10 TS078-ALLOT-ORG PIC X(4). * EXP_BUDG_ORG 10 TS078-EXP-BUDG-ORG PIC X(4). * FED_AID_NUM 10 TS078-FED-AID-NUM PIC X(12). * PROJECT_5 10 TS078-PROJECT-5 PIC X(5). * SUB_PROJECT 10 TS078-SUB-PROJECT PIC X(2). * PHASE 10 TS078-PHASE PIC X(1). * BUDGET_OBJ_CLS 10 TS078-BUDGET-OBJ-CLS PIC X(3). * ENC_TR_CODE 10 TS078-ENC-TR-CODE PIC X(2). * ENC_TR_NUM_AGY 10 TS078-ENC-TR-NUM-AGY PIC X(3). * ENC_TR_NUM_NUM 10 TS078-ENC-TR-NUM-NUM PIC X(11). * ENC_TR_LINE_NUM 10 TS078-ENC-TR-LINE-NUM PIC X(2). * BANK_ACCOUNT_CODE 10 TS078-BANK-ACCOUNT-CODE PIC X(2). * LINE_ACTION 10 TS078-LINE-ACTION PIC X(1). * LINE_DESC 10 TS078-LINE-DESC PIC X(30). * DOC_ACTION 10 TS078-DOC-ACTION PIC X(1). * ORDER_TYP 10 TS078-ORDER-TYP PIC X(1). * QUANTITY 10 TS078-QUANTITY PIC S9(9)V9(3) USAGE COMP-3. * RECORD_DATE 10 TS078-RECORD-DATE PIC X(8). * INTRA_GOV_REF_FUND 10 TS078-INTRA-GOV-REF-FUND PIC X(4). * INTRA_GOV_REF_AGCY 10 TS078-INTRA-GOV-REF-AGCY PIC X(3). * VEND_CUST_CODE 10 TS078-VEND-CUST-CODE PIC X(10). * VEND_CUST_ADDR_IND 10 TS078-VEND-CUST-ADDR-IND PIC X(1). * VEND_CUST_NAME 10 TS078-VEND-CUST-NAME PIC X(30). * DOC_DESC_INV_NUM 10 TS078-DOC-DESC-INV-NUM PIC X(12). * DEBIT_CREDIT_IND 10 TS078-DEBIT-CREDIT-IND PIC X(1). * PO_COMM_LN_NUM 10 TS078-PO-COMM-LN-NUM PIC X(3). ****************************************************************** * THE NUMBER OF COLUMNS DESCRIBED BY THIS DECLARATION IS 51 * ******************************************************************