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

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

(in s long varchar)
returns long varchar
begin
  declare i smallint;
  if s is null then
    return null
  end if;
  set i=charindex("char"(9),s);
  if i > 0 then
    set s=stuff(s,1,i,'')
  end if;
  return(s)
end
}
</code>