/* tr-c-edm.p - Update trigger for emp-demo */
TRIGGER PROCEDURE FOR WRITE OF emp-demo.

/* Include Commons */
{common.i}

/* Assign user, date & time of update */
ASSIGN
  emp-demo.upd-date        = TODAY
  emp-demo.upd-user-name   = menu-user.
  
IF LENGTH(emp-demo.emp-ssn) = 9 THEN
  emp-demo.last-four-ssn = SUBSTR(emp-demo.emp-ssn, 6).

/* Go back */
RETURN.