pears.digitsonly

COMMENT TO PRESERVE FORMAT ON PROCEDURE "pears"."digitsonly" IS 
{CREATE FUNCTION digitsonly 
 
/* Application Maintained Function / Procedure - DO NOT EDIT*/
 
(IN s CHAR(100))
RETURNS CHAR(100)
BEGIN
  DECLARE rv CHAR(100);
  DECLARE c CHAR(1);
  DECLARE i SMALLINT;
  SET rv='';
  SET i=1;
  while i <= LENGTH(s) loop
    SET c=substr(s,i,1);
    IF c LIKE '[0123456789]' THEN
      SET rv=rv+c
    END IF;
    SET i=i+1
  END loop;
  RETURN(rv)
END
}