/* tr-c-err.p - Update trigger for emp-retire */
TRIGGER PROCEDURE FOR WRITE OF emp-retire.

/* Include Commons */
{common.i}

/* Assign user, date & time of update */
ASSIGN.

/* Go back */
RETURN.