******************************************************************
      * DCLGEN TABLE(AIRLINES)                                         *
      *        LIBRARY(UTB00.FREQ.DCLGEN(AIRLINES))                    *
      *        ACTION(REPLACE)                                         *
      *        LANGUAGE(COBOL)                                         *
      *        QUOTE                                                   *
      *        INDVAR(YES)                                             *
      * ... IS THE DCLGEN COMMAND THAT MADE THE FOLLOWING STATEMENTS   *
      ******************************************************************
           EXEC SQL DECLARE AIRLINES TABLE
           ( AIRLINE_ID                     CHAR(2) NOT NULL,
             AIRLINE_NAME                   CHAR(25) NOT NULL
           ) END-EXEC.
      ******************************************************************
      * COBOL DECLARATION FOR TABLE AIRLINES                           *
      ******************************************************************
       01  DCLAIRLINES.
           10 AIRLINE-ID           PIC X(2).
           10 AIRLINE-NAME         PIC X(25).
      ******************************************************************
      * INDICATOR VARIABLE STRUCTURE                                   *
      ******************************************************************
       01  IAIRLINES.
           10 INDSTRUC           PIC S9(4) USAGE COMP OCCURS 2 TIMES.
      ******************************************************************
      * THE NUMBER OF COLUMNS DESCRIBED BY THIS DECLARATION IS 2       *
      ******************************************************************