PKG中游标写法及PL/SQL测试输出

declare
      type rescur is ref cursor;--定义游标
      rowcur rescur;--实列化游标
      type restype is record(--定义记录
        Contractid        varchar2(32),--记录中的对应属性
        Contractno        varchar2(32),
        applicationno     varchar2(32),
        Contractstatus    varchar2(32),
        Branchname        varchar2(256),
        Acceptuser        varchar2(32),
        Showdate          varchar2(32),
        Ascriptionmode    varchar2(32),
        Providername      varchar2(32),
        Customername      varchar2(32),
        Agentname         varchar2(32),
        totalmodalpremium number(15, 2),
        Agencyfee         number(15, 2),
        Fyb               number(15, 2),
        Valueprem         number(15, 2));
      rowtype restype;--实列化记录
     
    begin
      open rowcur for vSQL || vCondition;  --为执行语句打开游标（vSQL是共同语句，vCondition为不同条件） 
      loop
        fetch rowcur
          into rowtype;--循环一条条注入到游标记录当中
        exit when rowcur%notfound;--当没找到后就退出
     
        P_NT_SFA_THISMONTHBUSINESS.EXTEND; --P_NT_SALECHECKON扩展
        P_NT_SFA_THISMONTHBUSINESS(I) := new OB_SFA_THISMONTHBUSINESS(); --实例化OB
     
        P_NT_SFA_THISMONTHBUSINESS(I).contractid := rowtype.Contractid; --获取对应的值



=====================pl/sql测试输出================
dbms_output.put_line(vSQL);
dbms_output.put_line(vCondition);