/* tr-c-stc.p - Create trigger for state-table-code */ TRIGGER PROCEDURE FOR CREATE OF state-table-code. /* Include commons */ {common.i} /* Assign ID and creation info */ ASSIGN state-table-code.state-table-code-id = NEXT-VALUE(record-id) state-table-code.cre-date = TODAY state-table-code.cre-time = STRING(TIME, "HH:MM:SS") state-table-code.cre-user-name = menu-user state-table-code.upd-date = state-table-code.cre-date state-table-code.upd-time = state-table-code.upd-time state-table-code.upd-user-name = state-table-code.cre-user-name. /* Go back */ RETURN.