` Printed Icetips Article

Icetips Article

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))

=====

Printed November 23, 2024, 2:11 am
This article has been viewed/printed 35202 times.