SET TERM ^ ;
 
CREATE OR ALTER PROCEDURE UTIL_APLICA_MASCARA (
    IN_MASCARA VARCHAR(20),
    IN_TEXTO VARCHAR(100))
RETURNS (
    OUT_RESULTADO VARCHAR(120))
AS
DECLARE variable VLOOP INTEGER;
DECLARE variable V_POS INTEGER;
BEGIN
  IF (
  (TRIM(:in_mascara) = '') OR
  (:in_mascara IS NULL) OR
  (:in_texto IS NULL)
  ) THEN
  BEGIN
    suspend;
    exit;
  END
 
  vloop = 1;
  v_pos = 1;
 
  out_resultado = '';
 
  while (vloop <= CHAR_LENGTH(:in_mascara)) do
  BEGIN
    IF ((SUBSTRING(:in_mascara FROM :vloop FOR 1) IN
    ('.', '\', '/', '-', '(', ')', ' ', '|') )) then
    begin
      out_resultado = :out_resultado || substring(:in_mascara from :vloop for 1);
    end
    else
    begin
      out_resultado = :out_resultado || substring(:in_texto from :v_pos for 1);
 
      v_pos = v_pos + 1;
    end
 
    vloop = vloop + 1;
  end
 
  suspend;
end^
 
SET TERM ; ^

-- CPF
SELECT
u.out_resultado
FROM util_aplica_mascara('999.999.999-99', '94461023249') u
 
-- CNPJ
SELECT
u.out_resultado
FROM util_aplica_mascara('99.999.999/9999-99', '92441217000155') u
 
-- CEP
SELECT
u.out_resultado
FROM util_aplica_mascara('99.999-999', '99200000') u
 
-- TELEFONE
SELECT
u.out_resultado
FROM util_aplica_mascara('(99) 9999-9999', '5434439621') u
 
-- uso geral (REFERENCIAS)
SELECT
u.out_resultado
FROM util_aplica_mascara('99.9999.99.9999', '012345678901') u