******************************************************************
      * DCLGEN TABLE(CAD.CADTBA32_IMAGEM)                              *
      *        LIBRARY(DES.CAD.V00.DCLGEN(CADTBA32))                   *
      *        ACTION(REPLACE)                                         *
      *        LANGUAGE(COBOL)                                         *
      *        STRUCTURE(CADTBA32)                                     *
      *        QUOTE                                                   *
      * ... IS THE DCLGEN COMMAND THAT MADE THE FOLLOWING STATEMENTS   *
      ******************************************************************
           EXEC SQL DECLARE CAD.CADTBA32_IMAGEM TABLE                   
           ( NU_IMAGEM                      INTEGER NOT NULL,           
             DE_IMAGEM                      BLOB(50000000) NOT NULL     
           ) END-EXEC.                                                  
      ******************************************************************
      * COBOL DECLARATION FOR TABLE CAD.CADTBA32_IMAGEM                *
      ******************************************************************
       01  CADTBA32.                                                    
           10 NU-IMAGEM            PIC S9(9) USAGE COMP.                
           10 DE-IMAGEM            USAGE SQL TYPE IS BLOB-LOCATOR.      
      ******************************************************************
      * THE NUMBER OF COLUMNS DESCRIBED BY THIS DECLARATION IS 2       *
      ******************************************************************