/* tr-c-uac.p - Create trigger for user-access */ TRIGGER PROCEDURE FOR CREATE OF user-access. /* Include Commons */ {common.i} /* Assign an ID, creation info and any initial defaults */ ASSIGN user-access.primary-key = NEXT-VALUE(primary-misc) user-access.cre-date = TODAY user-access.cre-user-name = menu-user user-access.upd-date = TODAY user-access.upd-user-name = menu-user. /* Go back */ RETURN.