inc/ofc-acct.i

   1 FIND OfficeControlAccount NO-LOCK OF Office
   2             WHERE OfficeControlAccount.Name = "{1}" NO-ERROR.
   3 IF NOT AVAILABLE(OfficeControlAccount) THEN DO:
   4   MESSAGE   "The {1} control account is not set up for" SKIP
   5             "the " + Office.Name + " office." SKIP(1)
   6             "Please ask your system administrator to set it up"
   7             VIEW-AS ALERT-BOX ERROR.
   8   RETURN ERROR.
   9 END.
  10 DEF VAR {2} LIKE OfficeControlAccount.AccountCode NO-UNDO.
  11 {2} = OfficeControlAccount.AccountCode.