project BLF > class Persistence (Progress) > method SetAuditContext

Description

set context for database auditing, use a special stored procedure for Oracle

Parameters


icAppContextinputcharacter
iiSessionIdinputinteger

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.