Procedure which return multiple values

Question

Hi
I want to create 1 procedure which will return multiple id's and sub id's for 1 emp id.
like
Emp ID Id Sub Id
100 1 1
100 1 3
Now I want to create a procedure where i will pass 100 and it will return as out parameter 1,1 and 1,3.
Pls help.
Thanks
Regards
Anant

Answer 1

Or if you prefer a function to a procedure, you can use a pipelined function...
CREATE OR REPLACE TYPE myrec AS OBJECT
( col1   VARCHAR2(10),
  col2   VARCHAR2(10)
CREATE OR REPLACE TYPE myrectable AS TABLE OF myrec
CREATE OR REPLACE FUNCTION pipedata(p_str IN VARCHAR2) RETURN myrectable PIPELINED IS
  v_str VARCHAR2(4000) := REPLACE(REPLACE(p_str, '('),')');
  v_obj myrec := myrec(NULL,NULL);
BEGIN
  LOOP
    EXIT WHEN v_str IS NULL;
    v_obj.col1 := SUBSTR(v_str,1,INSTR(v_str,',')-1);
    v_str := SUBSTR(v_str,INSTR(v_str,',')+1);
    IF INSTR(v_str,',')>0 THEN
      v_obj.col2 := SUBSTR(v_str,1,INSTR(v_str,',')-1);
      v_str := SUBSTR(v_str,INSTR(v_str,',')+1);
    ELSE
      v_obj.col2 := v_str;
      v_str := NULL;
    END IF;
    PIPE ROW (v_obj);
  END LOOP;
  RETURN;
END;
SQL> select *
  2  from table(pipedata('(1,2),(3,4),(5,6)'));
COL1       COL2
1          2
3          4
5          6