Cobol Foro

Cobol Foro (https://www.cobolforo.es/index.php)
-   PowerCOBOL (ActiveX, v4 - v11) (https://www.cobolforo.es/forumdisplay.php?f=9)
-   -   [Sintaxis] Cambiar variable de entorno "Path" en ejecución (https://www.cobolforo.es/showthread.php?t=126)

Recato53 3 de mayo de 2015 19:26
Cambiar variable de entorno "Path" en ejecución
 
Buenas tardes.

Quiero cambiar el Path en modo ejecución, en rmcobol cuando ejecutaba un programa cambiaba el path en un .BAT

Código:
PATH=%PATH%;\Cobview;\RT_700
En PowerCobol intento hacer lo mismo en modo ejecución, pero no funciona.

Un saludo y muchas gracias.

Kuk 3 de mayo de 2015 19:51
Recato53, por que no funciona? Has intentado con? :

Código COBOL:
  1. INVOKE POW-SELF "Execute" USING "C:\zzz\Cambio_Path.bat"

Recato53 3 de mayo de 2015 20:45
Ya he probado con este código.

Pero después intento ejecutar un programa que tengo en la carpeta que he incluido en el Path y me da error.

También he comprobado si realmente me guarda el Path, mediante:

Código COBOL:
  1. INVOKE POW-SELF "Execute" USING "CMD /C SET > PATHNUEVO" POW-SWSHOWMINIMIZED

Y no añade el Path nuevo.

Roger 3 de mayo de 2015 21:25
Recato
Prueba de esta forma inserta un CMFOLDER1, CMFILE1 en tu form
Código COBOL:
  1.  WORKING STORAGE.
  2. 01 FOLDER-NAME PIC X(256).
  3. PROCEDURE DIVISION. 
  4. MOVE "path" OF CmFolder1 TO FOLDER-NAME.
  5. INVOKE POW-SELF "Execute" USING "C:\zzz\Cambio_Path.bat"
  6. invoke pow-self "THRUEVENTS".
  7. MOVE FOLDER-NAME  TO "Path" OF CmFile1.

Kuk 4 de mayo de 2015 09:06
Para mi, es un problema de derechos del usuario desde el cual ejecutas el programa.

Rapinto 7 de mayo de 2015 00:11
1 Archivos Adjunto(s)
Recato,

Utiliza o seguinte:

Na Form em Special Names :
Código COBOL:
  1.     ENVIRONMENT-NAME IS ENVNAME          
  2.     ENVIRONMENT-VALUE IS ENVVAL.  

Na form coloca o seguinte código:
Código COBOL:
  1.  ENVIRONMENT     DIVISION.
  2.  DATA            DIVISION.
  3.  WORKING-STORAGE SECTION.
  4.  01   ENVVAR               PIC X(032).
  5.  01   RESULTADO            PIC X(1024).
  6.  PROCEDURE       DIVISION.
  7.     DISPLAY "PATH" UPON ENVNAME.
  8.     ACCEPT  RESULTADO FROM ENVVAL.
  9.     MOVE RESULTADO TO "CAPTION" OF CMSTATIC1.
Para alterar a variável utiliza o seguinte código:

Código COBOL:
  1.     DISPLAY "PATH" UPON ENVNAME.
  2.     DISPLAY "c:\" UPON ENVVAL.

Pela Documentação do Fujitsu Cobol, diz que funciona.

Un Saludo,
Rui PInto

Recato53 17 de mayo de 2015 20:58
La solución de RAPINTO funciona correctamente.

Muchas gracias.

Recato53 10 de agosto de 2015 14:25
Cita:
Citación del post de Rapinto (Mensaje 535)
Recato,

Utiliza o seguinte:

Na Form em Special Names :
Código COBOL:
  1.     ENVIRONMENT-NAME IS ENVNAME          
  2.     ENVIRONMENT-VALUE IS ENVVAL.  

Na form coloca o seguinte código:
Código COBOL:
  1.  ENVIRONMENT     DIVISION.
  2.  DATA            DIVISION.
  3.  WORKING-STORAGE SECTION.
  4.  01   ENVVAR               PIC X(032).
  5.  01   RESULTADO            PIC X(1024).
  6.  PROCEDURE       DIVISION.
  7.     DISPLAY "PATH" UPON ENVNAME.
  8.     ACCEPT  RESULTADO FROM ENVVAL.
  9.     MOVE RESULTADO TO "CAPTION" OF CMSTATIC1.
Para alterar a variável utiliza o seguinte código:

Código COBOL:
  1.     DISPLAY "PATH" UPON ENVNAME.
  2.     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.
Código COBOL:
  1. SET RUNPATH=C:\Programas

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:
  1.  
  2.     DISPLAY "RUNPATH" UPON ENVNAME
  3.     MOVE "\ProgramasRmCobol" TO PATH-NEW
  4.               DISPLAY PATH-NEW UPON ENVVAL


La franja horaria es GMT +2. Ahora son las 03:21.

Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2026, Jelsoft Enterprises Ltd.