pears.GetCompanyGroupHead

COMMENT TO PRESERVE FORMAT ON PROCEDURE "pears"."GetCompanyGroupHead" IS 
{CREATE FUNCTION GetCompanyGroupHead 
 
/* 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 compid
  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
}