How to call a function having OBJECT type as Return type

Question

Hi,
I've the following function returning OBJECT type.
Pease advice me how to call this function
CREATE OR REPLACE TYPE GET_EMP_OBJ is object
   ( emp_name varchar2(50) ,
     mgr_id   number,
     dept_id  number
CREATE OR REPLACE FUNCTION get_emp(P_emp_no NUMBER )
  RETURN GET_EMP_OBJ  IS
  t_emp_info GET_EMP_OBJ ;
  v_ename  EMP.ename%TYPE;
  v_mgr    EMP.mgr%TYPE ;
  v_deptno EMP.deptno%TYPE;
  v_ename1  EMP.ename%TYPE;
  v_mgr1    EMP.mgr%TYPE ;
  v_deptno1 EMP.deptno%TYPE;
BEGIN
  FOR rec IN ( SELECT ename , mgr , deptno
                 FROM emp )
  LOOP
     v_ename := rec.ename ;
     v_ename1 := v_ename1||'|'||v_ename ;
     v_mgr   := rec.mgr   ;
     v_mgr1  := v_mgr1||'|'||v_mgr ;
     v_deptno:= rec.deptno;
     v_deptno1 := v_deptno1||'|'||v_deptno ;
  END LOOP ;
  t_emp_info  := GET_EMP_OBJ (v_ename,v_mgr,v_deptno ) ;
  RETURN t_emp_info ;
EXCEPTION WHEN OTHERS THEN
  DBMS_OUTPUT.put_line ('Error'||SQLCODE||','||SQLERRM ) ;
END;The above function got created successfully.
And i'm confused how to call this functions. I tried like below but didn't work
DECLARE
  t_emp_info_1  GET_EMP_OBJ ;
BEGIN
   t_emp_info_1 := get_emp(7566) ;
   for i in 1..t_emp_info_1.COUNT
      LOOP
         DBMS_OUTPUT.put_line ('Values are'||i.emp_name ) ;
     END LOOP;
END;  

Answer 1

SQL> CREATE OR REPLACE TYPE GET_EMP_OBJ is object
  2     ( emp_name varchar2(50) ,
  3       mgr_id   number,
  4       dept_id  number
  5     );
  6  /
Type created.
SQL> ed
Wrote file afiedt.buf
  1  CREATE OR REPLACE FUNCTION get_emp(empno NUMBER )
  2    RETURN GET_EMP_OBJ  IS
  3    t_emp_info GET_EMP_OBJ ;
  4  BEGIN
  5    begin
  6      select get_emp_obj(ename, mgr, deptno) into t_emp_info
  7      from emp
  8      where empno = get_emp.empno;
  9    exception
10      when no_data_found then
11        t_emp_info := new get_emp_obj(null,null,null);
12    end;
13    return t_emp_info;
14* END;
SQL> /
Function created.
SQL> set serverout on
SQL>
SQL> declare
  2    t_emp_info  GET_EMP_OBJ ;
  3  BEGIN
  4     t_emp_info := get_emp(7566);
  5     DBMS_OUTPUT.put_line ('Values are: '||t_emp_info.emp_name||', '||t_emp_info.mgr_id||', '||t_emp_info.dept_id);
  6  END;
  7  /
Values are: JONES, 7839, 20
PL/SQL procedure successfully completed.
SQL>