/* rp-c-epy.p - Create replication trigger for emp-payroll */
TRIGGER PROCEDURE FOR REPLICATION-CREATE OF emp-payroll.
{rp-trig.i &ACTION=DEFINE}

{rp-trig.i &Table=emp-payroll &Event=CREATE &key=primary-key}

DEFINE BUFFER empPayMaster FOR hrs.emp-pay-master.

FOR EACH empPayMaster 
  WHERE emp-seq = emp-payroll.emp-seq
    AND pay-id = emp-payroll.pay-id NO-LOCK:
  {rp-trig.i &Table=emp-pay-master &Buffer=empPayMaster &Event=WRITE &key=primary-key}
END.


/* Go back */
RETURN.