oracle中，写一个函数，循环遍历查询DM_RPT_EAST5_CPJBXXB表字段数据大于1000的数据，返回该行数据的r_id

在Oracle数据库中，你可以编写一个PL/SQL过程来完成这个任务。假设有一个名为`DM_RPT_EAST5_CPJBXXB`的表，并且有一个字段名为`data`，你需要找出那些值大于1000的记录并返回对应的`r_id`。下面是一个示例函数：

CREATE OR REPLACE FUNCTION get_rows_with_large_data RETURN SYS_REFCURSOR DETERMINISTIC AS
   TYPE t_row IS TABLE OF DM_RPT_EAST5_CPJBXXB%ROWTYPE INDEX BY PLS_INTEGER;
   v_rows t_row;
BEGIN
   OPEN v_rows FOR
   SELECT * FROM DM_RPT_EAST5_CPJBXXB WHERE data > 1000;

   LOOP
      EXIT WHEN v_rows.COUNT = 0; -- 当没有更多记录时退出循环

      -- 提取当前行的r_id
      FOR i IN v_rows.first..v_rows.last LOOP
         IF v_rows(i).data > 1000 THEN
            RETURN v_rows(i).r_id;
         END IF;
      END LOOP;
   END LOOP;

   -- 如果没有满足条件的数据，返回NULL
   RETURN NULL;
EXCEPTION
   WHEN NO_DATA_FOUND THEN
      RETURN NULL; -- 没有找到符合条件的行，返回NULL
END;
/