Citación del post de
Kuk
Gracias,
No entanto fiz assim:
Código COBOL:
SPECIAL-NAMES
ENVIRONMENT-NAME IS ENV1
ENVIRONMENT-VALUE IS ENV2
WORKING
01 WENVVALOR PIC X(100).
PROCEDURE DIVISION
DISPLAY "ProgramW6432" UPON ENV1
ACCEPT WENVVALOR FROM ENV2
IF WENVVALOR = SPACES
*> 32Bits
ELSE
*> 64Bits
END-IF
Aparentemente resolve o meu problema.