******************************************************************
      * DCLGEN TABLE(CAD.CADTB002_MENSAGEM_APOIO)                      *
      *        LIBRARY(DES.CAD.V00.DCLGEN(CADTB002))                   *
      *        ACTION(REPLACE)                                         *
      *        LANGUAGE(COBOL)                                         *
      *        STRUCTURE(CADTB002)                                     *
      *        QUOTE                                                   *
      * ... IS THE DCLGEN COMMAND THAT MADE THE FOLLOWING STATEMENTS   *
      ******************************************************************
           EXEC SQL DECLARE CAD.CADTB002_MENSAGEM_APOIO TABLE           
           ( CO_MENSAGEM                    CHAR(7) NOT NULL,           
             TS_INCLUSAO                    TIMESTAMP NOT NULL,         
             NU_TP_MENSAGEM                 SMALLINT NOT NULL,          
             NU_USUARIO_LOGADO              INTEGER,                    
             DE_OBSERVACAO                  VARCHAR(1000),              
             DE_MENSAGEM                    VARCHAR(1000) NOT NULL,     
             DT_INICIO_VIGENCIA             DATE NOT NULL,              
             HH_INICIO_VIGENCIA             TIME NOT NULL,              
             DT_FIM_VIGENCIA                DATE NOT NULL,              
             HH_FIM_VIGENCIA                TIME NOT NULL,              
             IC_SITUACAO_VIGENCIA           CHAR(1) NOT NULL,           
             TS_ATIVACAO                    TIMESTAMP,                  
             TS_INATIVACAO                  TIMESTAMP,                  
             CO_IP_ESTACAO                  CHAR(40),                   
             CO_PROGRAMA                    CHAR(9) NOT NULL            
           ) END-EXEC.                                                  
      ******************************************************************
      * COBOL DECLARATION FOR TABLE CAD.CADTB002_MENSAGEM_APOIO        *
      ******************************************************************
       01  CADTB002.                                                    
           10 CO-MENSAGEM          PIC X(7).                            
           10 TS-INCLUSAO          PIC X(26).                           
           10 NU-TP-MENSAGEM       PIC S9(4) USAGE COMP.                
           10 NU-USUARIO-LOGADO    PIC S9(9) USAGE COMP.                
           10 DE-OBSERVACAO.                                            
              49 DE-OBSERVACAO-LEN                                      
                 PIC S9(4) USAGE COMP.                                  
              49 DE-OBSERVACAO-TEXT                                     
                 PIC X(1000).                                           
           10 DE-MENSAGEM.                                              
              49 DE-MENSAGEM-LEN   PIC S9(4) USAGE COMP.                
              49 DE-MENSAGEM-TEXT                                       
                 PIC X(1000).                                           
           10 DT-INICIO-VIGENCIA   PIC X(10).                           
           10 HH-INICIO-VIGENCIA   PIC X(8).                            
           10 DT-FIM-VIGENCIA      PIC X(10).                           
           10 HH-FIM-VIGENCIA      PIC X(8).                            
           10 IC-SITUACAO-VIGENCIA                                      
              PIC X(1).                                                 
           10 TS-ATIVACAO          PIC X(26).                           
           10 TS-INATIVACAO        PIC X(26).                           
           10 CO-IP-ESTACAO        PIC X(40).                           
           10 CO-PROGRAMA          PIC X(9).                            
      ******************************************************************
      * THE NUMBER OF COLUMNS DESCRIBED BY THIS DECLARATION IS 15      *
      ******************************************************************