******************************************************************
      * DCLGEN TABLE(FLYERS)                                           *
      *        LIBRARY(UTB00.FREQ.DCLGEN(FLYERS))                      *
      *        ACTION(REPLACE)                                         *
      *        LANGUAGE(COBOL)                                         *
      *        QUOTE                                                   *
      *        INDVAR(YES)                                             *
      * ... IS THE DCLGEN COMMAND THAT MADE THE FOLLOWING STATEMENTS   *
      ******************************************************************
           EXEC SQL DECLARE FLYERS TABLE
           ( FLYER_NUMBER                   CHAR(10) NOT NULL,
             FLIGHT_NUMBER                  CHAR(4) NOT NULL,
             FLIGHT_DATE                    CHAR(10) NOT NULL,
             CLASS_OF_TRAVEL                CHAR(1) NOT NULL
           ) END-EXEC.
      ******************************************************************
      * COBOL DECLARATION FOR TABLE FLYERS                             *
      ******************************************************************
       01  dclflyers.
           10 flyer-number         pic x(10).
           10 flight-number        pic x(4).
           10 flight-date          pic x(10).
           10 class-of-travel      pic x(1).
      ******************************************************************
      * INDICATOR VARIABLE STRUCTURE                                   *
      ******************************************************************
       01  IFLYERS.
           10 INDSTRUC           PIC S9(4) USAGE COMP OCCURS 4 TIMES.
      ******************************************************************
      * THE NUMBER OF COLUMNS DESCRIBED BY THIS DECLARATION IS 4       *
      ******************************************************************