colindex

CREATE OR REPLACE FUNCTION colindex(
   pvar_s        VARCHAR2
 , pvar_substr   VARCHAR2
 , pvar_mask     VARCHAR2
)
   RETURN INT
IS
   pvar_i        INT;
   pvar_count    INT;
   pvar_result   INT;
BEGIN
   pvar_i := 0;
   pvar_result := -1;
   pvar_count := colcount (pvar_s, pvar_mask);
 
   WHILE pvar_i < pvar_count
   LOOP
      IF getcol (pvar_s, pvar_i, pvar_mask) = pvar_substr
      THEN
         pvar_result := pvar_i;
         EXIT;
      END IF;
 
      pvar_i := pvar_i + 1;
   END LOOP;
 
   RETURN pvar_result;
END colindex;