trigger/crprglnk.p

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