project BLF > class Cacher > method GetSessionTimeout


Parameters


iiSessionIdinputinteger
ocGlobalSessionIdoutputcharacter
otGlobalLastCheckDateoutputdate
oiGlobalLastCheckTimeoutputinteger
otLastCheckDateoutputdate
oiLastCheckTimeoutputinteger
oiTimeoutoutputinteger
oiGlobalSessionDebugLeveloutputinteger


Internal usage


BLF
method business.InitInstance
method Session.IsTimedOut


program code (program1/cacher.p)

define variable oiReturnStatus as integer no-undo.

ocGlobalSessionId = ?.

if  iiSessionId <> 0
and iiSessionId <> ?
then do:
    viSessionId = iiSessionId.
    
    <Q-78 run FcSessionByAll (all) (Read) (NoCache)
       (input iiSessionId, (SessionInstanceId)
        input ?, (GlobalSessionNeedsUpdate)
        output dataset tqFcSessionByAll) in BFcSession >

    for each tqFcSessionByAll:
        if ocGlobalSessionId = ?
        then assign ocGlobalSessionId     = tqFcSessionByAll.tcGlobalSessionId
                    otGlobalLastCheckDate = tqFcSessionByAll.ttGlobalSessionLastCheckDate
                    oiGlobalLastCheckTime = tqFcSessionByAll.tiGlobalSessionLastCheckTime
                    oiGlobalSessionDebugLevel = tqFcSessionByAll.tiGlobalSessionDebugLevel
                    otLastCheckDate       = tqFcSessionByAll.ttSessionLastCheckDate
                    oiLastCheckTime       = tqFcSessionByAll.tiSessionLastCheckTime
                    oiTimeout             = tqFcSessionByAll.tiSessionTimeOut.
        else do:
            ocGlobalSessionId = ?.
            return.
        end.
    end.
end.