Execute procedure error (Native SQL)

Question

Hi experts,
I create a procedure
  EXEC SQL.
    create or replace procedure update_zsmadiprinc
    is begin
                          ( p_codigo         in  number(5),
                            p_ano            in  varchar2(4),
                            p_doc_vlr_princ in  varchar2(10)
                            p_subrc       out number ) is begin
      update T_INTERF_RESSARC_FORNEC_R3
      set   ano_doc              = p_ano,
            NUM_DOC_VALOR_PRINC  = p_doc_vlr_princ,
      where cod_interf_ressarc_fornec_r3 = p_codigo;
      if sql%found then
        p_subrc := 0;
      else
        p_subrc := 4;
      end if;
    end;
  ENDEXEC.
and execute it
  EXEC SQL.
    execute procedure update_zsmadiprinc
                     (in  :wa-cod_interf,
                      in  :wa-ano_doc,
                      in  :wa-num_doc_valor_princ,
                      out :vg_subrc)
  ENDEXEC.
But when i execute the procedure, shows dump error:
Database error text........: "ORA-06550: line 1, column 7:#PLS-00905: object
UPDATE_ZSMADIPRINC is invalid#ORA-06550: line 1, column 7:#PL/SQL:   
Statement ignored#"                                                        
Triggering SQL statement...: "CLOSE "                                       
Internal call code.........: "[DBDS/NEW DSQL]"                              
Please check the entries in the system log (Transaction SM21).              
I comment all source, and the error is the same.
When i create the procedure, no erros are show.
I changed the name of the procedure, the type of parameters, and now i comment all and the error always is the same!!!! Can you help me!!! I need to finish this urgently!
Thanks in advance
Message was edited by:
        RP

Answer 1

It is not possible to create a procedure, then, i just execute sql direct.
thanks