存储过程循环插入表中

查出角色表T_SYS_ROLE，循环然后插入角色资源表T_SYS_ROLE_RESOURCE

declare 
  --游标,从角色表T_SYS_ROLE取出所有数据
   cursor ROLE_ID_cursor is
  SELECT ROLE_ID from T_SYS_ROLE;
 
   new_ROLE_ID   ROLE_ID_cursor%rowtype;
 
BEGIN
    --DBMS_OUTPUT.ENABLE(buffer_size => null); --表示输出buffer不受限制
  --打开游标
  open ROLE_ID_cursor;
  LOOP
    --遍历角色id
    --循环遍历结果集 id 直到为空时退出循环
    fetch ROLE_ID_cursor into new_ROLE_ID;
   	exit when ROLE_ID_cursor%notfound;
   -- dbms_output.put_line(new_ROLE_ID.ROLE_ID || ' : ' || new_ROLE_ID.ROLE_ID);
    --执行需要插入的语句
	INSERT INTO T_SYS_ROLE_RESOURCE(ID, ROLE_ID, RES_ID, GMT_CREATE, GMT_MODIFY) VALUES (seq_sys_role_resource.nextval, new_ROLE_ID.ROLE_ID, (SELECT RES_ID FROM T_SYS_RESOURCE WHERE RES_NAME='常用菜单' AND PARENT_ID='71'), SYSDATE, SYSDATE);
		

  END LOOP;
  close ROLE_ID_cursor;
END;