Oracle用存储过程返回游标

传出游标过程:

create or replace procedure pub_mes2erpauto_cur_kt(i_flag in varchar2,
                                                   res    out varchar2,
                                                   o_cur  out sys_refcursor) is
  v_class    varchar2(20);
  v_classstr varchar2(100);
  v_mmark    varchar2(20);
  v_mmarkstr varchar2(100);
  v_mtype    varchar2(20);
  v_mtypestr varchar2(100);
  v_cursql   varchar2(1000);
begin
  if length(i_flag) = 3 then
    v_class := substr(i_flag, 1, 1);
    v_mmark := substr(i_flag, 2, 1);
    v_mtype := substr(i_flag, 3, 2);
    RES     := 'OK';
  else
    res := 'ERROR';
  end if;
  if v_class <> '0' then
    v_classstr := ' and class_id =' || v_class;
  end if;
  if v_mmark <>