File: test.objects.sql

CREATE TABLE test
    (id                             NUMBER(*,0),
    dummy                          VARCHAR2(100 BYTE))
  PCTFREE     10
  INITRANS    1
  MAXTRANS    255
  TABLESPACE  users
  STORAGE   (
    INITIAL     65536
    MINEXTENTS  1
    MAXEXTENTS  2147483645
  )
  NOCACHE
  MONITORING
  NOPARALLEL
  LOGGING
/


CREATE OR REPLACE 
package util is
  type gen_ref_cur is ref cursor;
  procedure get_cursor(p_cur out gen_ref_cur);
End util;
/

CREATE OR REPLACE 
package body util is
  procedure get_cursor(p_cur out gen_ref_cur)is
  Begin
    open p_cur for select object_name, object_type from all_objects;
  End get_cursor;
End util;
/


CREATE OR REPLACE 
TYPE domain_names_coltype 
AS TABLE OF varchar2(255);
/

CREATE OR REPLACE 
PROCEDURE domain_check 
( P_DOMAINS IN domain_names_coltype
, P_resdata out domain_names_coltype
) AS 
  i binary_integer:=p_domains.first;
  l_resdata domain_names_coltype:=domain_names_coltype();
BEGIN
  p_resdata:=domain_names_coltype('asd','asdasd','asdas');
END DOMAIN_CHECK;
/

CREATE OR REPLACE 
PROCEDURE domain_check2 
( P_DOMAINS IN domain_names_coltype
, p_count out number
) AS 
BEGIN
  p_count:=l_resdata.count;
END DOMAIN_CHECK;
/