project BLF > class Session > method SetDebug

Description

input icExtra, user from Login and ApplicationLogin


Parameters


icExtrainputcharacter
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


BLF
method Session.ApplicationLogin
method Session.Login


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.