pears.CompanyStatusChangeAllowed

COMMENT TO PRESERVE FORMAT ON PROCEDURE "pears"."CompanyStatusChangeAllowed" IS 
{CREATE FUNCTION pears.CompanyStatusChangeAllowed(IN compid CHAR(20),IN oldstatus CHAR(1),IN newstatus CHAR(1))
RETURNS long VARCHAR
-- If change is disallowed you must set status back to oldstatus before returning an error message
BEGIN
  DECLARE rv long VARCHAR;
  SET rv='';
  RETURN(rv)
END
}