inc/audit.i

   1 /* Include for Auditing */
   2
   3 DEF VAR now-date AS DATE NO-UNDO.
   4 DEF VAR now-time AS INTEGER NO-UNDO.
   5 DEF VAR now-user AS CHAR NO-UNDO.
   6 RUN sec/audit.p ( "WRITE", NEW {1}, "{1}",
   7                   OUTPUT now-date, OUTPUT now-time, OUTPUT now-user).
   8 ASSIGN
   9   {1}.LastModifiedDate = now-date
  10   {1}.LastModifiedTime = now-time
  11   {1}.LastModifiedUser = now-user
  12 .