class i4gl:
procedure putenv external "/lib64/libc.so.6" persistent:
define input parameter env as character.
define return parameter x as long.
end.
method public static void os-putenv( envName as character, envValue as character ):
define variable r as integer no-undo.
run putenv( substitute( “&1=&2” envName, envValue ), output r ).
end.
end class.