050-DISCONECTAR.
           call "sql_disconnect_db" using DB-HANDLE.


       conectar-template.
           move "template1" to nome-banco-dado.
           call "sql_connect_db" using
                     nome-banco-dado DB-HANDLE DB-STATUS.
           if DB-STATUS not = zeros
           display "Erro na coneccao do banco de dados!" 
                 line 23 position 1
            stop run.

       conectar-banco.
          call "sql_connect_db" using   
                    nome-banco-dado DB-HANDLE DB-STATUS.
          if DB-STATUS not = zeros
             display "Erro na coneccao do banco de dado!"
                line 24 position 01
             stop run.

       faca-comando.
            call "sql_exec_query" using
                     DB-HANDLE comando-sql QRY-HANDLE DB-STATUS.
 
       200-CHECK-STATUS.
           if (DB-STATUS not = 1 and DB-STATUS  not = 2)
              move spaces to DB-MESSAGE
              call "sql_status_message" using DB-HANDLE DB-MESSAGE
              display DB-MESSAGE line 24 position 01
              accept wx-pare.