Visual LANSA Forum

... Loggingseton(True) Logdir(#dirToCreateTrace) Foldertocreatetrace('/tmp/testing') /* your routines */
#OSUtil.SetEnvironmentVariable Name('LANSA_XLIB_CONFIG') Value(#dirToCreateTrace + '/lansaxlibs.config.json')
* Prepare json #Writer... #HttpRequest.DoPost Url(#Url) etc.
#OSUtil ...

... DEFINE_COM CLASS(£XPRIM_HttpRequest) NAME(£Request)
DEFINE_COM CLASS(£XPRIM_OSUtil) NAME(£OSUtil)

£OSUtil.SetEnvironmentVariable NAME('LANSA_XLIB_CONFIG') VALUE('D:/APPO/logrequest/lansaxlib.config.json')

£Request.Clear

£Request.Options.AddHeader NAME("Content-Type") VALUE("multipart/form ...

... work, when I enable them it fails on the request

enabling the logging like this
If (*OSAPI = "IBMI")
#OSUtil.SetEnvironmentVariable Name('LANSA_XLIB_CONFIG') Value('/tmp/lansaxlib.configas400.json')
#OSUtil.SetEnvironmentVariable Name('LANSA_XLIB_TRACEPATH') Value('/LANSA_dcxpgmlib/tmp/log.txt ...

... ADDED THIS EXTRA LINES BEGIN ************************************************
If ('*OSAPI = IBMI')
#OSUtil.SetEnvironmentVariable Name('LANSA_XLIB_CONFIG') Value('/tmp/lansaxlib.configas400.json')
#OSUtil.SetEnvironmentVariable Name('LANSA_XLIB_TRACEPATH') Value('/LANSA_G14PGMLIB/tmp/log.txt ...

... that I frequently use, for example:

Define_Com Class(#XPRIM_OSUtil) Name(#OSUtil)
If (*OSAPI = "IBMI")
#OSUtil.SetEnvironmentVariable Name('LANSA_XLIB_CONFIG') Value('/tmp/lansaxlib.configas400.json')
#OSUtil.SetEnvironmentVariable Name('LANSA_XLIB_TRACEPATH') Value('/LANSA_G14PGMLIB/tmp/log.txt ...

I can see lots of information about LANSA_XLIB_CONFIG which I have been using for a while now - its LANSA_XLIB_TRACEPATH that I'm in the dark about.

The value set by CONFIG points to a file that shows where the trace data should be stored.

OSUtil.SetEnvironmentVariable Name('LANSA_XLIB_TRACEPATH ...

... to use it for example like this:
Define_Com Class(#XPRIM_OSUtil) Name(#OSUtil)
If (*OSAPI = "IBMI")
#OSUtil.SetEnvironmentVariable Name('LANSA_XLIB_CONFIG') Value('/tmp/lansaxlib.configas400.json')
#OSUtil.SetEnvironmentVariable Name('LANSA_XLIB_TRACEPATH') Value('/LANSA_G14PGMLIB/tmp/log.txt ...

search.php?keywords=LANSA_XLIB_CONFIG&s ... e987b49717

Contains a reference to LANSA_XLIB_TRACEPATH

Anybody know what this does?

... to your code:


Define_Com Class(#XPRIM_OSUtil) Name(#OSUtil) Scope(*Application)

If (*OSAPI = "IBMI")
#OSUtil.SetEnvironmentVariable Name('LANSA_XLIB_CONFIG') Value('/tmp/lansaxlib.configas400.json')
Else
#OSUtil.SetEnvironmentVariable Name('LANSA_XLIB_CONFIG') Value('c:\temp\lansaxlib.config.json ...

... IsFalse)

#COM_SELF.MoveXlibsLogFile

Endif

#LogDir := #COM_SELF.CreateXlibsLogFile( #LoggingSetOn )
#OSutil.SetEnvironmentVariable Name('LANSA_XLIB_CONFIG') Value((#LogDir + '/lansaxlibs.config.json'))

Endroutine

Mthroutine Name(CreateXlibsLogFile) Access(*PRIVATE)
Define_Map For(*INPUT) Class ...

... at the beginning of my function to turn the debugging.
DEFINE_COM CLASS(#XPRIM_OSUtil) NAME(#OSUtil)
#OSUtil.SetEnvironmentVariable NAME('LANSA_XLIB_CONFIG') VALUE('/LANSA_dcxpgmlib/lansaxlib.config.json')
#OSUtil.SetEnvironmentVariable NAME('LANSA_XLIB_TRACEPATH') VALUE('/tmp/S42PGMLIB/log.txt ...

... at the beginning of my function to turn the debugging.
DEFINE_COM CLASS(#XPRIM_OSUtil) NAME(#OSUtil)
#OSUtil.SetEnvironmentVariable NAME('LANSA_XLIB_CONFIG') VALUE('/LANSA_dcxpgmlib/lansaxlib.config.json')
#OSUtil.SetEnvironmentVariable NAME('LANSA_XLIB_TRACEPATH') VALUE('/tmp/S42PGMLIB/log.txt ...