-- Created on 2010/11/04 by WANGNAN
declare
-- Local
VARiables here
i integer;
TY
PE t_table IS TABLE OF V
ArchAR2(10 ) INDEX BY VARCHAR2 (2);
v_t_table t_table;
TYPE t_pg3 IS TABLE OF asis.PG3_AGENTCD_CONVERSION% ROWTYPE;
v_pg3_table t_pg3;
c_pg3_vendor com.cRef;
v_str VARCHAR2( 250);
be
gin --
test statements here
OPEN c_pg3_vendor FOR SELECT *
From asis.PG3_AGENTCD_CONVERSION;
FETCH c_pg3_vendor BULK COLLECT INTO v_pg3_table;
FOR i IN 1
.. v_pg3_table.count LOOP
v_t_table(v_pg3_table(i).ASIS_AGENT_CD) := v_pg3_table(i).TOBE_VENDOR_CD;
END LOO
p; v_str := v_t_table.
First;
WHILE v_str is NOT NULL LOOP
dbms_output.put_line(v_str || ' : ' ||v_t_table(v_str));
v_str := v_t_table.next(v_str);
END LOOP;
EXCEPTION WHEN OTHERS THEN
dbms_output.put_line(
SQLerrm);
END;