TYPE "MYARRAY" as table of varchar2( 255 );

FUNCTION str2table(p_string IN VARCHAR2, p_delimiter IN VARCHAR2)
    RETURN myArray AS
    l_data   myArray := myArray();
    l_string LONG := p_string;
    l_n      NUMBER;
  BEGIN
    WHILE (l_string IS NOT NULL) LOOP
      l_n := instr(l_string, p_delimiter);
      IF (l_n =  0 ) THEN
        l_n := length(l_string) +  1 ;
      END IF;
      l_data.EXTEND;
      l_data(l_data.COUNT) := substr(l_string,  1 , l_n -  1 );
      l_string := substr(l_string, l_n +  1 );
    END LOOP;
    RETURN l_data;
  END;