Procedure Somente Numeros

CREATE OR ALTER PROCEDURE PRO_SOMENTE_NUMEROS (VALOR VARCHAR(100))
  RETURNS (RESULT VARCHAR(100))
  AS
    DECLARE VARIABLE NPOSICAO INTEGER;
    DECLARE VARIABLE TEXTO VARCHAR(40);
    DECLARE VARIABLE LETRA CHAR(1);
  BEGIN
    TEXTO = '';
    NPOSICAO = 1;
    WHILE (NPOSICAO <= CHAR_LENGTH(VALOR)) DO
      BEGIN
        LETRA = SUBSTRING(VALOR FROM NPOSICAO FOR 1);
        IF (LETRA >= '0' AND LETRA <= '9') THEN
           TEXTO = TEXTO||LETRA;
        NPOSICAO = NPOSICAO + 1;
      END

    RESULT = TRIM(TEXTO);

    SUSPEND;
  END;