orcale 存储过程 循环套循环

create or replace PROCEDURE "cccc" (
zrr in varchar2 --责任人
) as 
cur_uuid varchar2(50);--定义uuid
begin
     for c_zrrs in ( select distinct obj from dual) loop  -- 循环
            cur_uuid := sys_guid();
                 INSERT INTO  a (zrr ) VALUES(c_zrrs.obj);
               for  c_zkdzj in ( select str from dual) loop --循环套循环
                INSERT INTO b(zrr ) VALUES ( c_zkdzj.str);
               end loop;
       END LOOP;
end;