000001       ******************************************************************
 000002       * DCLGEN TABLE(DCL.TABELA01_CONTA)                               *
 000003       *        LIBRARY(DES.DCL.V00.DCLGEN(TABELA01))                   *
 000004       *        ACTION(REPLACE)                                         *
 000005       *        LANGUAGE(COBOL)                                         *
 000006       *        STRUCTURE(TABELA01)                                     *
 000007       *        APOST                                                   *
 000008       * ... IS THE DCLGEN COMMAND THAT MADE THE FOLLOWING STATEMENTS   *
 000009       ******************************************************************
 000010            EXEC SQL DECLARE DCL.TABELA01_CONTA TABLE                  
 000011            ( NU_CONTA                       SMALLINT NOT NULL,          
 000012              NO_NOME                        CHAR(40) NOT NULL,          
 000013              TS_INI_VG_CONTA                TIMESTAMP NOT NULL,         
 000014              NO_ENDERECO                    CHAR(70) NOT NULL,          
 000015              NO_CIDADE                      CHAR(50)                   
 000016            ) END-EXEC.                                                  
 000017       ******************************************************************
 000018       * COBOL DECLARATION FOR TABLE DCL.TABELA01_CONTA                 *
 000019       ******************************************************************
 000020        01  EMPTB002.                                                    
 000021            10 NU-CONTA             PIC S9(4) USAGE COMP.                
 000022            10 NO-NOME              PIC X(40).                
 000023            10 TS-INI-VG-CONTA      PIC X(26).                           
 000024            10 NO-ENDERECO          PIC X(70).                           
 000025            10 NO-CIDADE            PIC X(50).                          
 000026       ******************************************************************
 000027       * THE NUMBER OF COLUMNS DESCRIBED BY THIS DECLARATION IS 5       *
 000028       ******************************************************************