method GetSessionTimeout

Parameters

iiSessionId	input	integer
ocGlobalSessionId	output	character
otGlobalLastCheckDate	output	date
oiGlobalLastCheckTime	output	integer
otLastCheckDate	output	date
oiLastCheckTime	output	integer
oiTimeout	output	integer
oiGlobalSessionDebugLevel	output	integer

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.