pears.dialable [iqx]

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.

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