/* tr-u-prv.p - Update trigger for product-version */
TRIGGER PROCEDURE FOR WRITE OF product-version.

/* Include commons */
{common.i}

ASSIGN
  product-version.upd-date      = TODAY
  product-version.upd-time      = STRING(TIME, 'HH:MM:SS')
  product-version.upd-user-name = menu-user.

RETURN.