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

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

(in CompID char(20))
returns char(20)
begin
  declare coid char(20);
  declare oldcoid char(20);
  declare lc integer;
  select parentcompanyid into coid from company where companyid = compid;
  if coid is null then
    return null
  end if;
  set oldcoid=null;
  set lc=1;
  while(coid is not null) and(lc < 1000) loop
    set oldcoid=coid;
    set lc=lc+1;
    select parentcompanyid into coid from company where companyid = coid
  end loop;
  return oldcoid
end
}
</code>