====== pears.dialable ======
<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"."dialable" IS 
{create function dialable 

/* 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
    else if c='(' then
      if substr(s,i+2,1)=')' THEN 
         set i=i+2
      end if;
    end if;
    end if;
    set i=i+1
  end loop;
  if length(rv)>6 and substr(rv,1,1) != '0' then
    set rv='+'+rv
  end if;
  return(rv)
end
}
</code>