getcol

CREATE OR REPLACE FUNCTION getcol(
   pvar_s       VARCHAR2
 , pvar_index   INT
 , pvar_mask    VARCHAR2
)
   RETURN VARCHAR2
IS
   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;