colcount

CREATE OR REPLACE FUNCTION colcount(pvar_s VARCHAR2, pvar_mask VARCHAR2)
   RETURN INT
IS
   pvar_i       INT;
   pvar_len     INT;
   pvar_count   INT;
   pvar_inst    int;
BEGIN
   pvar_i := 0;
   pvar_len := LENGTH (pvar_s);
   pvar_count := 0;
 
   IF pvar_len = 0
   THEN
      RETURN pvar_count;
   END IF;
 
   WHILE pvar_i < pvar_len
   LOOP
      pvar_i := pvar_i + 1;
      pvar_inst := instr(pvar_s,pvar_mask,pvar_i);
      if pvar_inst>0 then
         pvar_i := pvar_inst;
         pvar_count := pvar_count + 1;
      end if;
   END LOOP;
 
   RETURN pvar_count + 1;
END colcount;