pears.CompanySalesStatusChangeAllowed

COMMENT TO PRESERVE FORMAT ON PROCEDURE "pears"."CompanySalesStatusChangeAllowed" IS 
{CREATE FUNCTION CompanySalesStatusChangeAllowed 
(IN compid CHAR(20),IN oldstatus CHAR(20),IN newstatus CHAR(20))
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
}