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

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.