创建游标

TYPE V_CUR IS REF CURSOR;
  CUR V_CUR;
open CUR for sSQL;
  LOOP
      FETCH CUR INTO R_PERSON;
      EXIT WHEN CUR%NOTFOUND;
      i := i+ 1;
      table_person_list(i) := R_PERSON;
  END LOOP;
  CLOSE CUR;