> FUNCTION OCCURS(in_String IN VARCHAR2, > in_LookUp IN VARCHAR2) > RETURN PLS_INTEGER IS > i PLS_INTEGER; > l_RetVal PLS_INTEGER := 0; > BEGIN > FOR i IN 1..9999 LOOP > IF INSTR(in_String, in_LookUp, 1, i) > 0 THEN > l_RetVal := l_RetVal + 1; > ELSE > EXIT; > END IF; > END LOOP; > RETURN l_RetVal; > END OCCURS; >>