/* tr-c-aca.p - Create trigger for emp-aca */
TRIGGER PROCEDURE FOR CREATE OF emp-aca.

/* Include Commons */
{common.i}

/* Assign an ID, creation info and any initial defaults */
ASSIGN
  emp-aca.primary-key         = NEXT-VALUE(primary-misc)
  emp-aca.cre-date            = TODAY
  emp-aca.cre-user-name       = menu-user
  emp-aca.upd-date            = TODAY
  emp-aca.upd-user-name       = menu-user
  emp-aca.upd-time            = STRING(TIME, "HH:MM AM")
  emp-aca.cre-time            = STRING(TIME, "HH:MM AM").

/* Go back */
RETURN.