====== pears.CompanyStatusChangeAllowed ======
<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"."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
}
</code>