/* tr-c-dvr.p - Create trigger for dev-request */
TRIGGER PROCEDURE FOR CREATE OF dev-request.

/* Include commons */
{common.i}

ASSIGN
  dev-request.cre-date      = TODAY
  dev-request.cre-time      = STRING(TIME, 'HH:MM:SS')
  dev-request.cre-user-name = menu-user.

RETURN.