******************************************************************
      * DCLGEN TABLE(MILEAGES)                                         *
      *        LIBRARY(UTB00.FREQ.DCLGEN(MILEAGES))                    *
      *        ACTION(REPLACE)                                         *
      *        LANGUAGE(COBOL)                                         *
      *        QUOTE                                                   *
      *        INDVAR(YES)                                             *
      * ... IS THE DCLGEN COMMAND THAT MADE THE FOLLOWING STATEMENTS   *
      ******************************************************************
           EXEC SQL DECLARE MILEAGES TABLE
           ( CITY_PAIR                      CHAR(7) NOT NULL,
             MILEAGE                        DECIMAL(5, 0) NOT NULL
           ) END-EXEC.
      ******************************************************************
      * COBOL DECLARATION FOR TABLE MILEAGES                           *
      ******************************************************************
       01  DCLMILEAGES.
           10 CITY-PAIR            PIC X(7).
           10 MILEAGE              PIC S9(5)V USAGE COMP-3.
      ******************************************************************
      * INDICATOR VARIABLE STRUCTURE                                   *
      ******************************************************************
       01  IMILEAGES.
           10 INDSTRUC           PIC S9(4) USAGE COMP OCCURS 2 TIMES.
      ******************************************************************
      * THE NUMBER OF COLUMNS DESCRIBED BY THIS DECLARATION IS 2       *
      ******************************************************************