trigger/wrusr.p

   1 TRIGGER PROCEDURE FOR WRITE OF Usr OLD BUFFER OldUsr.
   2
   3 IF NEW Usr THEN DO:
   4
   5   CREATE UsrGroupMember.
   6   ASSIGN
   7     UsrGroupMember.UserName  = Usr.UserName
   8     UsrGroupMember.GroupName = "Everyone".
   9
  10 END.
  11 ELSE IF OldUsr.UserName <> Usr.UserName THEN
  12 DO:
  13
  14   FOR EACH UsrGroupMember OF OldUsr EXCLUSIVE-LOCK:
  15     ASSIGN UsrGroupMember.UserName = Usr.UserName.
  16   END.
  17
  18 END.