getcol

CREATE OR REPLACE FUNCTION getcol(   pvar_s       VARCHAR2 , pvar_index   INT , pvar_mask    VARCHAR2)   RETURN VARCHAR2IS   pvar_i        INT;   pvar_result   VARCHAR2 (4096);BEGIN   pvar_i := 0;    IF pvar_index > colcount (pvar_s, pvar_mask)   THEN      RETURN ' ';   END IF;    pvar_result := pvar_mask || pvar_s || pvar_mask;    WHILE pvar_i <= pvar_index   LOOP      pvar_i := pvar_i + 1;      pvar_result :=         SUBSTR (pvar_result               , INSTR (pvar_result, pvar_mask) + 1               , LENGTH (pvar_result)                );   END LOOP;    IF INSTR (pvar_result, pvar_mask) > 0   THEN      pvar_result :=                   SUBSTR (pvar_result, 1, INSTR (pvar_result, pvar_mask) - 1);   END IF;    RETURN pvar_result;END getcol;