Here's an example. I'm not 100% sure the trigger will work but give it a try.
Trigger (example name, zCHG.mod)
MODIFY chg POST_VALIDATE z_set_zunauth() 10050 FILTER(zapprover == NULL || actual_start_date < schedule_start_date || actual_start_date < schedule_start_date) && EVENT("UPDATE"));
chg::z_set_zunauth(...) {
string method;
uuid who;
method ="chg::z_set_zunauth";
logf(MILESTONE, "%s started", method);
send_wait(0,top_object(), "call_attr", "cnt", "current_user_id");
if (msg_error()) {
logf(ERROR, "%s - %s", ref_num, msg[0]);
return;
}
who=msg[0];
send_wait(0, top_object(), "call_attr", "api", "update_object_super", who, persistent_id, 0, "zunauth", 1);
if (msg_error()) {
logf(ERROR, "%s - %s", ref_num, msg[0]);
}
else{
logf(MILESTONE, "Successfully updated zunauth attribute on %s", persistent_id);
}
logf(MILESTONE, "%s ended", method);
}