我觉得这个程序很繁琐，用什么可以简化？


以下是程序：
----------------------------------------
set serveroutput on
set  verify offdeclare
v_store_no number(2):='&店号';
v_ord_no number(6):='&订单号';
v_suppl_no number(5):='&供应商号';c1 orders.suppl_no%type;
c2 orders.ord_no%type;
c3 orders.store_no%type;
c4 orders.status%type;c5 sup_tel_inv.ENTER_DATE%type;
c6 sup_tel_inv.PAY_IND%type;
c7 sup_tel_inv.SND_FLAG%type;c8 ord_ref.REF_NO%type;
c9 ord_ref.STATUS%type;
c10 ord_ref.ERR_CD%type;
c11 fin_orders.BUYER_UID%type;
c12 fin_orders.STATUS%type;
c13 fin_orders.ORD_TYPE%type;
c14 fin_orders.ORD_DATE%type;c15 bal_ic_total.flag%type;
c16 bal_ic_total.checkflag%type;cursor i1 is select suppl_no,ord_no,store_no,status from orders where store_no in (v_store_no) and ord_no in (v_ord_no);cursor i2 is select ENTER_DATE,PAY_IND,SND_FLAG from sup_tel_inv where store_no in (v_store_no) and ord_no in (v_ord_no) and
suppl_no in (v_suppl_no);cursor i3 is select REF_NO,STATUS,ERR_CD from ord_ref where store_no in (v_store_no) and ord_no in (v_ord_no);cursor i4 is select BUYER_UID,STATUS,ORD_TYPE,ORD_DATE from fin_orders where store_no in (v_store_no) and ord_no in
(v_ord_no) and suppl_no in (v_suppl_no);cursor i5 is select flag,checkflag from bal_ic_total where store_no in (v_store_no) and ord_no in (v_ord_no) and suppl_no in(v_suppl_no);beginopen i1;
fetch i1 into c1,c2,c3,c4;
dbms_output.put_line('********在orders表中查询的信息********');
dbms_output.put_line('供应商号:'|| to_char(c1));
dbms_output.put_line('定单号:'|| to_char(c2));
dbms_output.put_line('店号:'|| to_char(c3));
dbms_output.put_line('orders.status:'|| to_char(c4));
close i1;open i2;
fetch i2 into c5,c6,c7;
dbms_output.put_line('********在sup_tel_inv表中查询的信息********');
dbms_output.put_line('ENTER_DATE:'|| to_char(c5));
dbms_output.put_line('PAY_IND:'|| to_char(c6));
dbms_output.put_line('SND_FLAG:'|| to_char(c7));
close i2;open i3;
fetch i3 into c8,c9,c10;
dbms_output.put_line('********在ord_ref表中查询的信息********');
dbms_output.put_line('REF_NO:'|| to_char(c8));
dbms_output.put_line('ord_ref.STATUS:'|| to_char(c9));
dbms_output.put_line('ERR_CD:'|| to_char(c10));
close i3;open i4;
fetch i4 into c11,c12,c13,c14;
dbms_output.put_line('********在fin_orders表中查询的信息********');
dbms_output.put_line('BUYER_UID:'|| c11);
dbms_output.put_line('fin_orders.STATUS:'|| to_char(c12));
dbms_output.put_line('ORD_TYPE:'|| to_char(c13));
dbms_output.put_line('ORD_DATE:'|| to_char(c14));
close i4;open i5;
fetch i5 into c15,c16;
dbms_output.put_line('********在bal_ic_total表中查询的信息********');
dbms_output.put_line('flag:'|| to_char(c15));
dbms_output.put_line('checkflag:'|| to_char(c16));end;
/----------------------------------------------------------这个程序用到了dbms_output.put_line，如果不用这个包，用其他的能改写的简单点么？另外用dbms_output.put_line显示的结果很不好看