ORACLE编写存储过程游标循环

CREATE OR REPLACE PROCEDURE USER_APPRAISE
/**
 * 三天未评价默认五星好评
 */
 AS
   vs_interval_days number;  --间隔天数
   vs_appraise_time varchar(8);  --开启默认评价的时间
   vs_appraise_id   varchar(11); --评价表主键
   l_str            varchar(50);
 BEGIN
    vs_interval_days := 3;
    ---系统参数,开启默认评价的时间
    SELECT nvl(c.Runtime_Value,to_char(sysdate,'yyyyMMdd')) INTO vs_appraise_time FROM sys_paraminfo c
    WHERE c.Param_Id = 'apprarise' AND c.isvalid = '1';

    ---查询未评价的用户信息
    FOR cur IN ( SELECT a.appointment_id,a.customer_id,a.customer_name,a.appointment_time
                   FROM t_appointment a
                   WHERE to_char(a.appointment_time, 'yyyyMMdd') >= vs_appraise_time
                   AND to_char(a.appointment_time, 'yyyyMMdd') < to_char(sysdate-vs_interval_days, 'yyyyMMdd')
                   AND a.status = 'order04'
           )
    LOOP --开始循环游标
      SELECT seq_appraise.n