pears.GenerateKeyname [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.GenerateKeyname ======
<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"."GenerateKeyname" IS 
{create function pears.GenerateKeyname(in x char(100))
returns char(100)
begin
  declare w1 char(100);
  declare wn char(100);
  declare c char(1);
  declare i integer;
  set x=trim(x);
  set i=charindex("char"(32),x);
  if i > 0 then
    set w1="left"(x,i-1);
    if w1 in('mr','ms','miss','mrs','mr.','ms.','mrs.') then
      set x="right"(x,length(x)-i)
    end if
  end if;
  set i=length(x);
  loop1: loop
    set c=substr(x,i,1);
    if c = "char"(32) then
      return makekeyname("right"(x,length(x)-i)+' '+"left"(x,i-1))
    end if;
    set i=i-1;
    if i <= 0 then
      leave loop1
    end if
  end loop loop1;
  return x
end
}
</code>