/* tr-u-sit.p - Write trigger for extracted-record */
TRIGGER PROCEDURE FOR WRITE OF extracted-record.

/* Include commons */
{common.i}

/* Assing the update info */
ASSIGN
  extracted-record.upd-date      = TODAY
  extracted-record.upd-time      = STRING(TIME, "HH:MM:SS")
  extracted-record.upd-user-name = menu-user.

/* That's it */