project BLF > class Session > method SetDebug
Description
input icExtra, user from Login and ApplicationLogin
Parameters
icExtra | input | character | |
oiReturnStatus | output | integer | Return status of the method. |
Internal usage
BLF
program code (program1/session.p)
if icExtra = ? then icExtra = "".
vidx = lookup("DebugLevel":U,icExtra,chr(2)).
/* backward compatibility */
if vidx = 0
then vidx = lookup("viDebugLevel":U,icExtra,chr(2)).
if vidx > 0
then do:
viSessionDebugLevel = 0.
viSessionDebugLevel = integer(entry(vidx + 1,icExtra,chr(2))) no-error.
run SetDebugLevelInPool (viSessionDebugLevel, viFcCurrentInstanceId, no).
<M-1 run SetIntegerValue
(input 'SessionDebugLevel':U (icName),
input viSessionDebugLevel (iiValue),
output viFcReturnSuper (oiReturnStatus)) in Session>
end.
Assign vlSetDebugCalled = True.