/* rp-u-pdb.p - Update replication trigger for pay-disburse */
TRIGGER PROCEDURE FOR REPLICATION-WRITE OF pay-disburse.
{rp-trig.i &ACTION=DEFINE}

{rp-trig.i &Table=pay-disburse &Event=WRITE &key=primary-key}

/* Go back */
RETURN.