33 lines
1.1 KiB
COBOL
33 lines
1.1 KiB
COBOL
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.
|
|
|