trigger/wrusgmnu.p

   1 TRIGGER PROCEDURE FOR WRITE OF UsrGroupMenu OLD BUFFER OldMenu.
   2
   3 IF OldMenu.MenuName <> UsrGroupMenu.MenuName THEN DO:
   4
   5   FOR EACH UsrGroupMenuItem OF UsrgroupMenu:
   6     ASSIGN UsrGroupMenuItem.MenuName = UsrGroupMenu.MenuName.
   7   END.
   8
   9 END.