type tp is table 用法

DECLARE
  TYPE TP IS TABLE OF NUMBER INDEX BY BINARY_INTEGER;
  TYPE VS IS TABLE OF VARCHAR2(100) INDEX BY BINARY_INTEGER;
  TYPE VD IS TABLE OF APPS.SYS_USER.CREATE_DATE%TYPE;
  VN      TP;
  VS_NAME VS;
  VD_DATE VD;
  CURSOR P_CURSOR IS
    SELECT USER_ID, USER_NAME, CREATE_DATE FROM APPS.SYS_USER;
BEGIN
  OPEN P_CURSOR;
  FETCH P_CURSOR BULK COLLECT
    INTO VN, VS_NAME, VD_DATE;

  DBMS_OUTPUT.PUT_LINE(VN.COUNT);

  CLOSE P_CURSOR;
END;