Login
`
Templates, Tools and Utilities
|
||
Icetips Article
Back to article list
Search Articles
Add Comment
Printer friendly
Direct link
Par2: Getting environment variables 1998-12-03 -- Alexey Solovjev Following program works well for me in both 16 and 32 bit modes (NT4WS):
=====
PROGRAM
MAP
MODULE('')
GetEnv (*CSTRING),CSTRING,RAW,NAME('_getenv')
END
END
S CSTRING(32)
CODE
S = 'USERNAME'
MESSAGE (GetEnv (S))
S = 'USERDOMAIN'
MESSAGE (GetEnv (S))
S = 'USERPROFILE'
MESSAGE (GetEnv (S))
=====
Today is November 21, 2024, 7:49 am This article has been viewed 35200 times.
|
|