LOG-AUDIT-EVENT( event-id, event-context , event-detail
, user-detail ) |
DEFINE VARIABLE iEmployeeReadEvent AS INTEGER NO-UNDO INITIAL 32000.
DEFINE VARIABLE caEventPrimaryKey AS CHARACTER NO-UNDO EXTENT 100. DEFINE VARIABLE iEventIdx AS INTEGER NO-UNDO. ... iEventIdx = iEventIdx + 1. caEventPrimaryKey[iEventIdx] = AUDIT-CONTROL:LOG-AUDIT-EVENT(iEmployeeReadEvent, "First record read."). |