create or replace procedure ptest is begin declare cursor cur_s is select stock_code ,stock_name from stkcode; v_no varchar2(6); v_name varchar2(8); begin open cur_s; loop fetch cur_s into v_no,v_name; exit when cur_s % notfound; dbms_output.putline(v_no); end loop; close cur_s; end; end ptest;