******************************************************************
      * DCLGEN TABLE(FLIGHTS)                                          *
      *        LIBRARY(UTB00.FREQ.DCLGEN(FLIGHTS))                     *
      *        ACTION(REPLACE)                                         *
      *        LANGUAGE(COBOL)                                         *
      *        QUOTE                                                   *
      *        INDVAR(YES)                                             *
      * ... IS THE DCLGEN COMMAND THAT MADE THE FOLLOWING STATEMENTS   *
      ******************************************************************
           EXEC SQL DECLARE FLIGHTS TABLE
           ( FLIGHT_NUMBER                  CHAR(4) NOT NULL,
             CITY_PAIR                      CHAR(7) NOT NULL,
             AIRLINE_ID                     CHAR(2) NOT NULL
           ) END-EXEC.
      ******************************************************************
      * COBOL DECLARATION FOR TABLE FLIGHTS                            *
      ******************************************************************
       01  DCLFLIGHTS.
           10 FLIGHT-NUMBER        PIC X(4).
           10 CITY-PAIR            PIC X(7).
           10 AIRLINE-ID           PIC X(2).
      ******************************************************************
      * INDICATOR VARIABLE STRUCTURE                                   *
      ******************************************************************
       01  IFLIGHTS.
           10 INDSTRUC           PIC S9(4) USAGE COMP OCCURS 3 TIMES.
      ******************************************************************
      * THE NUMBER OF COLUMNS DESCRIBED BY THIS DECLARATION IS 3       *
      ******************************************************************