How to print values of all my arguments automatically

Question

within a procedure, I am thinking of printing the values of all arguments for debugging.
is there a way to do this in general,
without having to print each one explicitly.
many of my procedures can have dozens of arguments.
all my arguments are simple, varchar2, number, date.
but if there are ways to print compound arguments such as record,
collection,cursor, etc. that would be a great trick too.
create procedure p(p1 in varchar2, p2 in varchar2) is
begin
dbms_output.put_line('p1=' || p1);
dbms_output.put_line('p2=' || p2);
--logic of this procedure here
end;
dbms_describe can give me a list of argument names, data types and modes (IN, OUT or IN OUT).
Thanks for any pointers!

Answer 1

One approach is to have an array of VARCHAR2's and then at the start of each procedure write your parameters into the array and call a procedure. The procedure checks if debugging is switched on and if so prints out the parameters. Switching debug on and off is probably best done with a user context.
e.g.
Create or replace package debug_pkg is
  param_tab is table of varchar2(4000) index by binary_integer;
  params param_tab;
  procedure set_debug(p_debug BOOLEAN);
  function is_debug_on return BOOLEAN;
  procedure print_params;
elsewhere
create or replace procedure process_overdue (p_cust_id IN NUMBER, p_start_date IN DATE, p_invoice_no IN VARCHAR2) IS
BEGIN
  debug_pkg.params(1) := 'PROCEDURE process_overdue';
  debug_pkg.params(2) := to_char(p_cust_id);
  debug_pkg.params(3) := to_char(p_start_date);
  debug_pkg.params(4) := p_invoice_no;
  debug_pkg.print_params;
...