Description
set context for database auditing, use a special stored procedure for Oracle
Parameters
icAppContext | input | character | |
iiSessionId | input | integer | |
Internal usage
unused
program code (program1/progress.p)
if dbtype('qaddb') = 'ORACLE'
then do:
run StartCacherInPool (output vhFcComponent).
<M-74 run GetCharacterValueFromSession
(input iiSessionId (iiSessionId),
input 'UserLogin' (icDataItemName),
output vcsacUserLogin (ocValue),
output viFcReturnSuper (oiReturnStatus)) in Cacher>
run setauditcontext.p (input vcsacUserLogin).
end.
else do:
audit-control:set-appl-context(icAppContext).
end.