trigger/wrlnknde.p

   1 TRIGGER PROCEDURE FOR WRITE OF LinkNode OLD BUFFER OldNode.
   2
   3 IF LinkNode.NodeCode <> OldNode.NodeCode THEN DO:
   4
   5   FOR EACH ProgramLink EXCLUSIVE-LOCK WHERE ProgramLink.Source = OldNode.NodeCode:
   6     ASSIGN ProgramLink.Source = LinkNode.NodeCode.
   7   END.
   8
   9   FOR EACH ProgramLink EXCLUSIVE-LOCK WHERE ProgramLink.Target = OldNode.NodeCode:
  10     ASSIGN ProgramLink.Target = LinkNode.NodeCode.
  11   END.
  12
  13   FOR EACH UsrGroupMenu EXCLUSIVE-LOCK WHERE UsrGroupMenu.NodeCode = OldNode.NodeCode:
  14     ASSIGN UsrGroupMenu.NodeCode = LinkNode.NodeCode.
  15   END.
  16
  17 END.