trigger/wrusrgrp.p

   1 TRIGGER PROCEDURE FOR WRITE OF UsrGroup OLD BUFFER OldGroup.
   2
   3 IF UsrGroup.GroupName <> OldGroup.GroupName THEN
   4 DO:
   5
   6   FOR EACH UsrGroupMember OF OldGroup EXCLUSIVE-LOCK:
   7     ASSIGN UsrGroupMember.GroupName = UsrGroup.GroupName.
   8   END.
   9
  10   FOR EACH UsrGroupMenu OF OldGroup EXCLUSIVE-LOCK:
  11     ASSIGN UsrGroupMenu.GroupName = UsrGroup.GroupName.
  12   END.
  13
  14   FOR EACH UsrGroupMenuItem OF OldGroup EXCLUSIVE-LOCK:
  15     ASSIGN UsrGroupMenuItem.GroupName = UsrGroup.GroupName.
  16   END.
  17
  18 END.