Breew, en este caso pasa por WinAPI :
GetEnvironmentVariable function (winbase.h) - Win32 apps | Microsoft Docs
Ejemplo:
Código COBOL:
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 envVarName PIC X(50).
01 envVarValue PIC X(250).
PROCEDURE DIVISION.
MOVE "ProgramW6432" & X"00" TO envVarName
CALL "GetEnvironmentVariableA" WITH STDCALL USING BY CONTENT envVarName
BY REFERENCE envVarValue
BY VALUE LENGTH OF envVarValue
DISPLAY envVarValue
No olvides de añadir la directiva de compilación
ALPHAL(WORD) haciendo clic botón derecho en
(Script) [COBOL Script] y seleccionando "Properties".
Asimismo, añade al módulo
C:\Program Files (x86)\Fujitsu NetCOBOL for Windows\KERNEL32.LIB