******************************************************************
      * DCLGEN TABLE(LED_ENCUMBRANCES)                                 *
      *        LIBRARY(OAAMS.DWUNIT.DCLGEN(ODWTS079))                  *
      *        ACTION(REPLACE)                                         *
      *        LANGUAGE(COBOL)                                         *
      *        NAMES(TS079-)                                           *
      *        STRUCTURE(LED-ENCUMBRANCES)                             *
      *        QUOTE                                                   *
      *        DBCSDELIM(NO)                                           *
      *        COLSUFFIX(YES)                                          *
      * ... IS THE DCLGEN COMMAND THAT MADE THE FOLLOWING STATEMENTS   *
      ******************************************************************
           EXEC SQL DECLARE LED_ENCUMBRANCES TABLE
           ( INT_LED_KEY                    CHAR(12) 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,
             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,
             ENCUMBERED_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,
             PRE_ENC_TR_CODE                CHAR(2) NOT NULL,
             PRE_ENC_TR_NUM_AGY             CHAR(3) NOT NULL,
             PRE_ENC_TR_NUM_NUM             CHAR(11) NOT NULL,
             PRE_ENC_TR_LN_NUM              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,
             VEND_CUST_CODE                 CHAR(10) NOT NULL,
             VEND_CUST_ADDR_IND             CHAR(1) NOT NULL,
             VEND_CUST_NAME                 CHAR(30) NOT NULL,
             DEBIT_CREDIT_IND               CHAR(1) NOT NULL
           ) END-EXEC.
      ******************************************************************
      * COBOL DECLARATION FOR TABLE LED_ENCUMBRANCES                   *
      ******************************************************************
       01  LED-ENCUMBRANCES.
      *                       INT_LED_KEY
           10 TS079-INT-LED-KEY    PIC X(12).
      *                       ENC_TR_CODE
           10 TS079-ENC-TR-CODE    PIC X(2).
      *                       ENC_TR_NUM_AGY
           10 TS079-ENC-TR-NUM-AGY  PIC X(3).
      *                       ENC_TR_NUM_NUM
           10 TS079-ENC-TR-NUM-NUM  PIC X(11).
      *                       LINE_NUM
           10 TS079-LINE-NUM       PIC X(2).
      *                       ACCEPTANCE_DATE
           10 TS079-ACCEPTANCE-DATE  PIC X(8).
      *                       FISC_YEAR
           10 TS079-FISC-YEAR      PIC X(4).
      *                       FISC_QUARTER
           10 TS079-FISC-QUARTER   PIC X(1).
      *                       FISC_MONTH
           10 TS079-FISC-MONTH     PIC X(2).
      *                       BUDGET_FISC_YEAR
           10 TS079-BUDGET-FISC-YEAR  PIC X(4).
      *                       FUND
           10 TS079-FUND           PIC X(4).
      *                       AGENCY
           10 TS079-AGENCY         PIC X(3).
      *                       ORGANIZATION
           10 TS079-ORGANIZATION   PIC X(4).
      *                       SUB_ORG
           10 TS079-SUB-ORG        PIC X(2).
      *                       ACTIVITY
           10 TS079-ACTIVITY       PIC X(4).
      *                       FUNCTION
           10 TS079-FUNCTION       PIC X(4).
      *                       APPR_UNIT
           10 TS079-APPR-UNIT      PIC X(9).
      *                       ACCOUNT_TYPE
           10 TS079-ACCOUNT-TYPE   PIC X(2).
      *                       BS_ACCOUNT
           10 TS079-BS-ACCOUNT     PIC X(4).
      *                       OBJECT
           10 TS079-OBJECT         PIC X(4).
      *                       SUB_OBJECT
           10 TS079-SUB-OBJECT     PIC X(2).
      *                       JOB_NUMBER
           10 TS079-JOB-NUMBER     PIC X(8).
      *                       REPORTING_CAT
           10 TS079-REPORTING-CAT  PIC X(4).
      *                       ENCUMBERED_AMT
           10 TS079-ENCUMBERED-AMT  PIC S9(13)V9(2) USAGE COMP-3.
      *                       APPR_ORG
           10 TS079-APPR-ORG       PIC X(4).
      *                       ALLOT_ORG
           10 TS079-ALLOT-ORG      PIC X(4).
      *                       EXP_BUDG_ORG
           10 TS079-EXP-BUDG-ORG   PIC X(4).
      *                       FED_AID_NUM
           10 TS079-FED-AID-NUM    PIC X(12).
      *                       PROJECT_5
           10 TS079-PROJECT-5      PIC X(5).
      *                       SUB_PROJECT
           10 TS079-SUB-PROJECT    PIC X(2).
      *                       PHASE
           10 TS079-PHASE          PIC X(1).
      *                       BUDGET_OBJ_CLS
           10 TS079-BUDGET-OBJ-CLS  PIC X(3).
      *                       PRE_ENC_TR_CODE
           10 TS079-PRE-ENC-TR-CODE  PIC X(2).
      *                       PRE_ENC_TR_NUM_AGY
           10 TS079-PRE-ENC-TR-NUM-AGY  PIC X(3).
      *                       PRE_ENC_TR_NUM_NUM
           10 TS079-PRE-ENC-TR-NUM-NUM  PIC X(11).
      *                       PRE_ENC_TR_LN_NUM
           10 TS079-PRE-ENC-TR-LN-NUM  PIC X(2).
      *                       LINE_ACTION
           10 TS079-LINE-ACTION    PIC X(1).
      *                       LINE_DESC
           10 TS079-LINE-DESC      PIC X(30).
      *                       DOC_ACTION
           10 TS079-DOC-ACTION     PIC X(1).
      *                       DOC_DESC
           10 TS079-DOC-DESC       PIC X(12).
      *                       ORDER_TYP
           10 TS079-ORDER-TYP      PIC X(1).
      *                       RECORD_DATE
           10 TS079-RECORD-DATE    PIC X(8).
      *                       VEND_CUST_CODE
           10 TS079-VEND-CUST-CODE  PIC X(10).
      *                       VEND_CUST_ADDR_IND
           10 TS079-VEND-CUST-ADDR-IND  PIC X(1).
      *                       VEND_CUST_NAME
           10 TS079-VEND-CUST-NAME  PIC X(30).
      *                       DEBIT_CREDIT_IND
           10 TS079-DEBIT-CREDIT-IND  PIC X(1).
      ******************************************************************
      * THE NUMBER OF COLUMNS DESCRIBED BY THIS DECLARATION IS 46      *
      ******************************************************************