Citación del post de
Rapinto
|
❞
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 |
Cuando ejecuto programas en RmCobol tengo separado los programas de los ficheros, la solución que tengo para poder ejecutar los programas de RmCobol estando situado en la carpeta de los ficheros es mediante la instrucción en un Bat.
Como puedo conseguir esto mismo en PowerCobol.
---------- Post added at 14:25 ---------- Previous post was at 14:03 ----------
Soluccionado, es lo mismo que para el PATH.
Código COBOL:
DISPLAY "RUNPATH" UPON ENVNAME
MOVE "\ProgramasRmCobol" TO PATH-NEW
DISPLAY PATH-NEW UPON ENVVAL