CREATE OR REPLACE PACKAGE pkg_args AS
TYPE ref_args IS ref cursor return user_arguments%rowtype; 
PROCEDURE get_args (i_proc_name IN VARCHAR2,i_pkg_name IN VARCHAR2,refargs IN OUT ref_args); 
END pkg_args; 
/ 

CREATE OR REPLACE PACKAGE BODY pkg_args AS
PROCEDURE get_args (i_proc_name IN VARCHAR2,i_pkg_name IN VARCHAR2,refargs IN OUT ref_args) AS
BEGIN 
OPEN refargs FOR 
  select * 
    from user_arguments
   where object_name = i_proc_name
     and package_name = i_pkg_name;   
END; 
END pkg_args; 
/ 

declare
  cur  pkg_args.ref_args;
  val  user_arguments%rowtype;
begin
  pkg_args.GET_ARGS('GET_ARGS', 'PKG_ARGS', cur);
  loop
    fetch cur into val;
    exit when cur%notfound;
    dbms_output.put_line( val.argument_name);
    dbms_output.put_line( val.data_type);
  end loop;
  close cur;
end;