trigger/crlnknde.p

   1 TRIGGER PROCEDURE FOR CREATE OF LinkNode.
   2
   3 DO:
   4
   5   DEF VAR node-code AS INT NO-UNDO.
   6
   7   DEF BUFFER LastNode FOR LinkNode.
   8   FIND LAST  LastNode NO-LOCK NO-ERROR.
   9
  10   node-code =  IF AVAILABLE LastNode THEN LastNode.NodeCode + 1 ELSE 1.
  11
  12   ASSIGN LinkNode.NodeCode = node-code.
  13
  14 END.