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

/* Application Maintained Function / Procedure - DO NOT EDIT*/

(in sSource char(60))
returns char(60)
begin
  declare rv char(60);
  declare isin char(50);
  declare c char(1);
  set rv='';
  set isin='ABCDEFGHIJKLMNOPQRSTUVWXYZ&0123456789';
  set isin=isin+char(39);
  if isnull((select removespacesfromkeynames from params),0) = 0 then
    set isin=isin+' '
  end if;
  set ssource=trim(ucase(csconvert(ssource,'ascii')));  
  while length(ssource) > 0 loop
    set c="left"(ssource,1);
    if charindex(c,isin) > 0 then
      set rv=rv+c
    end if;
    set ssource=stuff(ssource,1,1,'')
  end loop;
  if trim(rv) = '' then set rv = 'UNKNOWN' end if;
  return(rv)
end
}
</code>