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

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

DEFINE BUFFER empDemo FOR hrs.emp-demo.
FIND FIRST empDemo OF emp-state-item NO-LOCK NO-ERROR.
IF AVAILABLE empDemo THEN DO:
  {rp-trig.i &Table=emp-history &Event=WRITE &BUFFER=empDemo &key=primary-key}
END.


/* Go back */
RETURN.