createorreplaceprocedure sp_test_for is type tbl_cmndict istableof cmn_dict%rowtype indexby binary_integer; cmndicts tbl_cmndict; i int:=1 ; e cmn_dict%rowtype ; begin for tmprow in ( select*from cmn_dict where dicid_ ='1009'orderby diccode_ ) loop cmndicts(i) := tmprow ; i :=i+1 ; end loop; for i in1..cmndicts.count loop e := cmndicts(i); dbms_output.put_line( 'dicid_ :'|| e.dicid_ ||' diccode_ : '||e.diccode_ ||' dicname_ :'|| e.dicname_ ); end loop ; end ;