create or replace type ttAA as object
(
  gencurtyp REF CURSOR,   - !!!!  ЗДЕСЬ !!!!
  A integer,

  constructor function ttAA(DBEG DATE
                           ) return self as result,

  constructor function ttAA(DBEG DATE,
                            DEND DATE
                           ) return self as result,
   member function Show return integer
)

CREATE PACKAGE admin_data AS
   TYPE gencurtyp IS REF CURSOR;
   PROCEDURE open_cv (generic_cv IN OUT gencurtyp, choice INT);
END admin_data;
/
CREATE PACKAGE BODY admin_data AS
   PROCEDURE open_cv (generic_cv IN OUT gencurtyp, choice INT) IS
   BEGIN
      IF choice = 1 THEN
         OPEN generic_cv FOR SELECT * FROM employees;
      ELSIF choice = 2 THEN
         OPEN generic_cv FOR SELECT * FROM departments;
      ELSIF choice = 3 THEN
         OPEN generic_cv FOR SELECT * FROM jobs;
      END IF;
   END;
END admin_data;
/

Constructor
  curid      := DBMS_SQL.OPEN_CURSOR;
  sql_stmt := 'select 1 А1 from DUAL';
  DBMS_SQL.PARSE(curid, sql_stmt, DBMS_SQL.NATIVE);
  src_cur   := DBMS_SQL.TO_REFCURSOR(curid);
...........

function Show
  FETCH src_cur BULK COLLECT INTO empnos, depts;
...............

create or replace type ttAA as object
(
  gencurtyp sys_refcursor,   - !!!!  ЗДЕСЬ !!!!

[...]
)

create or replace type ttAA as object
(
  gencurtyp sys_refcursor,

  A integer,

  constructor function ttAA(DBEG DATE
                           ) return self as result,

  constructor function ttAA(DBEG DATE,
                            DEND DATE
                           ) return self as result,
   member function Show return integer
)

create or replace type ttAA as object
(
  C number,  

  constructor function ttAA(DBEG DATE
                           ) return self as result,

  constructor function ttAA(DBEG DATE,
                            DEND DATE
                           ) return self as result,
   member function Show return integer
)

create or replace type body ttAA as

constructor function ttAA(
                           DBEG DATE
                         ) return self as result
as begin
  DECLARE 
     TYPE curtype IS REF CURSOR;
     src_cur  curtype;
  BEGIN
    OPEN src_cur FOR select 10 F1 from DUAL;
    self.C:=DBMS_SQL.TO_CURSOR_NUMBER(src_cur);
    dbms_output.put_line('Hello1');
    return;
  end;  
end;  

constructor function ttAA(
                           DBEG DATE,
                           Dend DATE
                         ) return self as result
as begin
  DECLARE 
     TYPE curtype IS REF CURSOR;
     src_cur  curtype;
  BEGIN
    OPEN src_cur FOR select 30 F1 from DUAL  union all select 20 F1 from DUAL;
    self.C:=DBMS_SQL.TO_CURSOR_NUMBER(src_cur);
    dbms_output.put_line('Hello 2');
    return;
  end;  
end;  

member function Show return integer
as
  begin
    declare
      i    number;
      b    number;
    begin
      i:=0;
      b:=self.c;
      WHILE DBMS_SQL.FETCH_ROWS(b) > 0 LOOP
        i:= i+ 1;
        dbms_output.put_line('Show '||b);
      END LOOP;
      DBMS_SQL.CLOSE_CURSOR(b);
      return i;
    end;
  end;
end;