substr(:myString,
       instr('|'||:myString||'|', '|', 1, rn),
       instr('|'||:myString||'|', '|', 1, rn+1)
       - instr('|'||:myString||'|', '|', 1, rn)

DECLARE
   CURSOR EMP_CUR IS SELECT A.EMPNO,A.ENAME,B.ENAME AS MANAGER, A.SAL 
   FROM EMP A JOIN EMP B ON (A.EMPNO = B.EMPNO)
   WHERE A.DEPTNO = 30;
   
   TYPE EMP_TAB_TYPE IS TABLE OF EMP_CUR%ROWTYPE; 
   EMP_TAB  EMP_TAB_TYPE;
BEGIN
   EMP_TAB := EMP_TAB_TYPE();   
   OPEN EMP_CUR;
   FETCH EMP_CUR BULK COLLECT INTO EMP_TAB;
   CLOSE EMP_CUR;
   
   IF EMP_TAB.FIRST IS NOT NULL THEN
     FOR I IN EMP_TAB.FIRST .. EMP_TAB.LAST
     LOOP
       dbms_output.put_line(EMP_TAB(I).EMPNO ||'    '||EMP_TAB(I).ENAME||'   '||
                            EMP_TAB(I).MANAGER||'     '||EMP_TAB(I).SAL);
     END LOOP;
  END IF;
     
END;