====== pears.digitsonly ======
<WRAP center round info>
Generated schema reference. Regenerate this page from the SQL unload; keep hand-maintained business notes in the narrative namespace.
</WRAP>

===== Original SQL =====
<code sql>
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
}
</code>