create or replace procedure chk(
<b>  table_name  in  all_tables.table_name%type,
  as_date     in  tbas_mbr_trn_hdr.as_at_date%type,
  inst_code   in  tbas_mbr_trn_hdr.inst_code%type)</b>
is
  type col_type is ref cursor;
  col_rt    col_type;
  it_descr  tbas_mbr_trn_hdr.item_description%type;
  amt       number(15,2);
  squery    varchar2(2000);
begin
<b>  squery := 'select t1.item_description, t2.amount' ||
            '  from tbas_mbr_trn_hdr t1, ' || table_name || ' t2' ||
            ' where t1.mt_cr_trn_id = t2.mt_cr_trn_id' ||
            '   and t1.as_at_date = :b1' ||
            '   and t1.inst_code = :b2';</b>
 
  open col_rt
   for squery
   <b>using as_date, inst_code</b>;
 
  dbms_output.put_line('------------------');
  dbms_output.put_line(squery);
 
  loop
    fetch col_rt into it_descr, amt;
    exit when col_rt%notfound;
    dbms_output.put_line( 'Description: ' || it_descr || ', Amt: ' || amt);
  end loop;
 
  <b>close col_rt;</b>
end;
/