create or replace procedure p_leontest (
  --v_did     LEONPACK.V6;
  msg1   in   varchar2(100);
  res    out   number(4);
)
as
begin
   res := LEONPACK.fnc_DoUpdate (P01, :msg1);
   exception
   when others then
     rollback;
end;你再试试!