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

{rp-trig.i &Table=emp-degree &Event=WRITE &key=primary-key}

FIND FIRST emp-demo OF emp-degree NO-LOCK NO-ERROR.
IF AVAILABLE emp-demo THEN DO:
  {rp-trig.i &Table=emp-history &Event=WRITE &BUFFER=emp-demo &key=primary-key}
END.
/* Go back */
RETURN.