[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