存储过程中的一些片断

CREATE OR REPLACE PROCEDURE 存储过程名
AS
type ref_cursor is ref cursor;--定义游标
mycursor ref_cursor;
--定义需要的变量
变量1 number;
begin
变量ny:=to_char(sysdate,'yyyyMM');
strSql:='select 字段1, 字段2, 字段3,
decode(f.字段,'||''''||变量||''''||','||''''||变量||''''||','||''''||变量||''''||') 字段
from 表1 a
join 表2 b on a.字段=b.字段
join b'||变量ny||'c c on a.字段= c.字段
join 表3 d on a.字段= d.字段
left 表4 e on substr(d.字段,'||''''||变量||''''||','||''''||变量||''''||')=e.字段
left join 表5 f on e.字段=f.字段 and f.字段='||''''||变量||''''||'
left join 表6 g on e.字段=g.字段
where a.字段='||''''||变量||'''' || 'or a.字段='||''''||变量||'''';

open mycursor for strSql;  --打开游标
   if mycursor%isopen  then  --判断打开成功
   loop --循环获取记录集
     fetch mycursor into 变量,变量,变量,变量; --获取游标中的记录
         if mycursor%found then  --游标的found属性判断是否有记录
            if 变量 is not null then
                select count(*) into 变量 from 表 where 字段 = 变量;
                if 变量 = 0 then                   
                    insert into 表(字段, 字段, 字段, 字段)
                    values(变量, 变量, 变量, 变量);
                else
                    update 表 set 字段=表, 字段=表 where 字段 = 变量;
                end if;
                commit;
            end if;
         else
            exit;
         end if;
   end loop;
   end if;
  close mycursor;
end;