/* tr-c-eqt.p - Update trigger for emp-quarter */ TRIGGER PROCEDURE FOR WRITE OF emp-quarter. /* Include Commons */ {common.i} /* Assign user, date & time of update */ ASSIGN. /* Go back */ RETURN.