added LSL2 stored procedures
This commit is contained in:
13
LSL2/STPROC/AUDIT.txt
Normal file
13
LSL2/STPROC/AUDIT.txt
Normal file
@ -0,0 +1,13 @@
|
||||
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
|
Reference in New Issue
Block a user