create or replace procedure p_update_03
as
type balance is ref cursor;
balanceDaylly balance;
dealer_code VARCHAR2(70);
begin
open balanceDaylly for
select d.vin
from t_dms_03 d where d.vin in ('E3004185','E8011988','E8011992');
loop
fetch balanceDaylly into dealer_code;
exit when balanceDaylly%notfound;
dbms_output.put_line(dealer_code);
end loop;
end;
--执行
begin
p_update_03;
end;
--输出
E8011988
E3004185
E8011992
E8011992
E3004185
E8011988
E8011992