Recato,
Utiliza o seguinte:
Na Form em Special Names :
Código COBOL:
ENVIRONMENT-NAME IS ENVNAME
ENVIRONMENT-VALUE IS ENVVAL.
Na form coloca o seguinte código:
Código COBOL:
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 ENVVAR PIC X(032).
01 RESULTADO PIC X(1024).
PROCEDURE DIVISION.
DISPLAY "PATH" UPON ENVNAME.
ACCEPT RESULTADO FROM ENVVAL.
MOVE RESULTADO TO "CAPTION" OF CMSTATIC1.
Para alterar a variável utiliza o seguinte código:
Código COBOL:
DISPLAY "PATH" UPON ENVNAME.
DISPLAY "c:\" UPON ENVVAL.
Pela Documentação do Fujitsu Cobol, diz que funciona.
Un Saludo,
Rui PInto