[firebase-br] retorno no sqlstate
Phulano (G)
phulanosz em gmail.com
Ter Fev 26 14:23:26 -03 2008
soh tenho o codigo do erro ..
utilizo o fb versao 2 e driver odbc tbm versao 2, trabalho com o
power-cobol da fujitsu
mas uso o seguinte comando
EXEC SQL
INSERT
INTO S_PRD (s_prd eh o nome da tabela q preciso gravar, o
nome do banco eh bpamag.gdb)
( prd_uid,
prd_cmp,
prd_cnsmed
prd_cbo,
prd_flh,
prd_seq,
prd_pa,
prd_cnspac,
prd_dtnasc
prd_sexo,
prd_ibge,
prd_dtaten,
prd_cid,
prd_idade,
prd_qt_p,
prd_caten,
prd_naut,
prd_org,
prd_mvm,
prd_flpa,
prd_flcbo,
prd_flca,
prd_flida,
prd_flqt,
prd_fler,
prd_flmun,
prd_flcid,
prd_raca)
VALUES
(:wk_uid,
:wk_cmp,
:wk_cnsmed,
:wk_cbo,
:wk_flh,
:wk_seq,
:wk_pa,
:wk_cnspac,
:wk_nmpac,
:wk_dtnasc,
:wk_sexo,
:wk_ibge,
:wk_dtaten,
:wk_cid,
:wk_idade,
:wk_qt_p,
:wk_caten,
:wk_naut,
:wk_org,
:wk_mvm,
:wk_flpa,
:wk_flcbo,
:wk_flca,
:wk_flida,
:wk_flqt,
:wk_fler,
:wk_flmun,
:wk_flcid,
:wk_raca)
END-EXEC.
If SqlState = '00000' OR '01000' then
CONTINUE
ELSE
invoke pow-self "CloseForm"
EXIT PROGRAM
end-if
EXEC SQL
COMMIT
END-EXEC.
OseasTormen escreveu:
> Cara, poderia postar o erro completo pra gente tentar te ajudar?
>
>
Posso nao lembrar, mas esquecer... Jamais
Se reclamamos da vida.... Porque o medo de morrer ?
Mais detalhes sobre a lista de discussão lista