15 lines
471 B
Plaintext
15 lines
471 B
Plaintext
COMPILE Insert AUDIT
|
|
|
|
* Equates for COA table
|
|
|
|
EQU AUDIT_TABLENAME$ TO 0.1
|
|
EQU AUDIT_USERNAME$ TO 0.2
|
|
EQU AUDIT_DATE_TIME$ TO 0.3 ;* Record key is in parts 0.4 through 0.n
|
|
|
|
EQU AUDIT_ACTION$ TO 1 ;* New,Read, Write, Delete
|
|
EQU AUDIT_FIELDS$ TO 2 ;* Field name
|
|
EQU AUDIT_OLD_VALS$ TO 3 ;* Old values for each field
|
|
EQU AUDIT_NEW_VALS$ TO 4 ;* New values for each field
|
|
EQU AUDIT_ORG_RECORD TO 5 ;* complete record stored here on DELETE action
|
|
|