******************************************************************
      * DCLGEN TABLE(ODWOWN01.LED_F_A_DISP)                            *
      *        LIBRARY(OAAMS.DWUNIT.DCLGEN(ODWTS248))                  *
      *        ACTION(REPLACE)                                         *
      *        LANGUAGE(COBOL)                                         *
      *        NAMES(TS248-)                                           *
      *        STRUCTURE(LED-F-A-DISP)                                 *
      *        QUOTE                                                   *
      *        DBCSDELIM(NO)                                           *
      *        COLSUFFIX(YES)                                          *
      * ... IS THE DCLGEN COMMAND THAT MADE THE FOLLOWING STATEMENTS   *
      ******************************************************************
           EXEC SQL DECLARE LED_F_A_DISP TABLE
           ( INT_LED_KEY                    CHAR(12) NOT NULL,
             TRANS_CODE                     CHAR(2) NOT NULL,
             TRANS_NUM_NUM                  CHAR(11) NOT NULL,
             RECORD_DATE                    CHAR(8) NOT NULL,
             F_A_TYP                        CHAR(1) NOT NULL,
             FIXED_ASSET_NUM                CHAR(15) NOT NULL,
             F_A_BETTERMENT_NUM             CHAR(2) NOT NULL,
             F_A_LOC                        CHAR(4) NOT NULL,
             FUND                           CHAR(4) NOT NULL,
             AGENCY                         CHAR(3) NOT NULL,
             ORGANIZATION                   CHAR(4) NOT NULL,
             ACTIVITY                       CHAR(4) NOT NULL,
             OBJECT                         CHAR(4) NOT NULL,
             DISPOSITION_AUTH               CHAR(15) NOT NULL,
             DISPOSITION_METHOD             CHAR(1) NOT NULL,
             ASSETS_AMT                     DECIMAL(15, 2) NOT NULL,
             ACCUM_DEPR                     DECIMAL(15, 2) NOT NULL,
             NUM_DISPOSAL_UNITS             CHAR(8) NOT NULL,
             NUM_REMAIN_UNITS               CHAR(8) NOT NULL,
             DISPOSITION_DATE               CHAR(8) NOT NULL,
             SALVAGE_VALUE                  DECIMAL(15, 2) NOT NULL,
             F_A_SELLING_PRICE              DECIMAL(15, 2) NOT NULL
           ) END-EXEC.
      ******************************************************************
      * COBOL DECLARATION FOR TABLE ODWOWN01.LED_F_A_DISP              *
      ******************************************************************
       01  LED-F-A-DISP.
      *                       INT_LED_KEY
           10 TS248-INT-LED-KEY    PIC X(12).
      *                       TRANS_CODE
           10 TS248-TRANS-CODE     PIC X(2).
      *                       TRANS_NUM_NUM
           10 TS248-TRANS-NUM-NUM  PIC X(11).
      *                       RECORD_DATE
           10 TS248-RECORD-DATE    PIC X(8).
      *                       F_A_TYP
           10 TS248-F-A-TYP        PIC X(1).
      *                       FIXED_ASSET_NUM
           10 TS248-FIXED-ASSET-NUM  PIC X(15).
      *                       F_A_BETTERMENT_NUM
           10 TS248-F-A-BETTERMENT-NUM  PIC X(2).
      *                       F_A_LOC
           10 TS248-F-A-LOC        PIC X(4).
      *                       FUND
           10 TS248-FUND           PIC X(4).
      *                       AGENCY
           10 TS248-AGENCY         PIC X(3).
      *                       ORGANIZATION
           10 TS248-ORGANIZATION   PIC X(4).
      *                       ACTIVITY
           10 TS248-ACTIVITY       PIC X(4).
      *                       OBJECT
           10 TS248-OBJECT         PIC X(4).
      *                       DISPOSITION_AUTH
           10 TS248-DISPOSITION-AUTH  PIC X(15).
      *                       DISPOSITION_METHOD
           10 TS248-DISPOSITION-METHOD  PIC X(1).
      *                       ASSETS_AMT
           10 TS248-ASSETS-AMT     PIC S9(13)V9(2) USAGE COMP-3.
      *                       ACCUM_DEPR
           10 TS248-ACCUM-DEPR     PIC S9(13)V9(2) USAGE COMP-3.
      *                       NUM_DISPOSAL_UNITS
           10 TS248-NUM-DISPOSAL-UNITS  PIC X(8).
      *                       NUM_REMAIN_UNITS
           10 TS248-NUM-REMAIN-UNITS  PIC X(8).
      *                       DISPOSITION_DATE
           10 TS248-DISPOSITION-DATE  PIC X(8).
      *                       SALVAGE_VALUE
           10 TS248-SALVAGE-VALUE  PIC S9(13)V9(2) USAGE COMP-3.
      *                       F_A_SELLING_PRICE
           10 TS248-F-A-SELLING-PRICE  PIC S9(13)V9(2) USAGE COMP-3.
      ******************************************************************
      * THE NUMBER OF COLUMNS DESCRIBED BY THIS DECLARATION IS 22      *
      ******************************************************************