project BLF > class Cacher > 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
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.