0 
create or replace package XXX_MWA_LOV_TEST AS
    TYPE t_ref_csr IS REF CURSOR;
    PROCEDURE XXX_USERS_LOV (p_user_name IN VARCHAR2,x_users OUT NOCOPY t_ref_csr);
end XXX_MWA_LOV_TEST;

XXX_USERS_LOVSQL*Plus でプロシージャを実行するには?

このコードを試しましたが、構文エラーが発生しました:

SQL> EXECUTE XXX_MWA_LOV_TEST.XXX_USERS_LOV('%',:my_p_out);

手続き本体：

create or replace package body XXX_MWA_LOV_TEST AS
  PROCEDURE XXX_USERS_LOV (x_users OUT NOCOPY t_ref_csr,p_user_name IN VARCHAR2) IS
  BEGIN
    OPEN x_users FOR select user_id,user_name,description 
      from fnd_user
      where user_name like p_user_name;
    DBMS_OUTPUT.PUT_LINE('TESTING DATA');
    EXCEPTION
      WHEN OTHERS THEN
        DBMS_OUTPUT.PUT_LINE('ERROR IN USER LOV '|| SQLERRM);
  END XXX_USERS_LOV;

end XXX_MWA_LOV_TEST;
4

1 に答える 1

0

まず第一に、パラメータの順序は仕様とパッケージ本体で同じでなければなりません。

次のように ref カーソルを呼び出すことができます。

 declare 
   v_cursor xxx_mwa_lov_test.t_ref_csr;
   var1 the_type_you_need;
   var2 the_type_you_need;
   ...
 begin
   xxx_mwa_lov_test.xxx_users_lov(v_cursor,'username...');

   loop
      fetch v_cursor into var1, var2...;
      exit when v_cursor%notfound;
      ... do what you want with the vars...
   end loop;
end;
/
于 2013-05-23T08:28:07.320 に答える