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