CREATE OR REPLACE PROCEDURE testp(p_value IN VARCHAR2)
       IS
    TYPE ref_cursor_type IS REF CURSOR; --定义一个动态游标
    users ref_cursor_type;   --定义游标类型
    user Users%ROWTYPE; --定义变量类型
    vsql VARCHAR2(255);
BEGIN
  vsql := 'select * from Users'; --要查询的sql字符串，可拼接起来
  OPEN users FOR vsql;  --打开游标
  LOOP
    FETCH users INTO users; --循环遍历users列表给user，user为临时对象
    exit when bills%notfound; 
    -- user相当于表对象可以直接拿来用
    --比如要打印user对象里面的name
    dbms_outpt.put_line(user.name);
  end loop;
  CLOSE bills;
END;