[Duda] Path para búsqueda de archivos

[Armando]

Buenas tardes,

Tengo la siguiente consulta:
En una instalación en PowerCobol (7 o superior), necesito que un archivo si no está en la carpeta de ejecución, lo busque en otra carpeta.
Eso en Rmcobol teníamos la posibilidad de usar la variable de ambiente RUNPATH, y con eso encontraba tanto los programas COB como los archivos de la aplicación, que sino estaban en la carpeta de ejecución, los iba a buscar ahí.

set runpath=\SISTEMA1

Entonces en la select solo se ponía el nombre del archivo sin referenciarlo a una carpeta:

SELECT ARDECTRL ASSIGN TO RANDOM "A3300000"

y si no estaba en donde se corre, lo encontraba en SISTEMA1

Alguno de Uds. sabe si eso en PowerCobol se puede lograr de alguna manera, sin obviamente tocar la Select para poner una variable y armar el nombre externo del archivo con el Path?

desde ya muchas gracias,
Nota: probé con @CBR_CBRFILE en el COBOL85.CBR y no anduvo,

Armando

[fastpho]

@Armando,
Este es mi select

SELECT CLIENTE
         ASSIGN TO ARCLIENTE
         ORGANIZATION IS INDEXED
         ACCESS IS DYNAMIC
         RECORD KEY IS CLI-CLAVE-PRIN
         FILE STATUS IS CLI-STAT
         LOCK MODE IS AUTOMATIC.

luego en Edita el archivo COBOL85.CBR que debe estar donde esta tu aplicacion , y dentro pone:

[NombredetuPrograma]
ARCLIENTE=c:\sist\archivos\clientes.dnx

[Josber]

Una cosa @fastpho,

El archivo COBOL85.CBR, no se puede cambiar de forma dinámica, por lo que el nombre y ruta del archivo, es siempre el mismo, si cambias la ruta de los archivos, ¿cómo lo haces?, es que yo en mi caso, montaba una variable de la WORKING, de tipo GLOBAL EXTERNAL, con la ruta y nombre del archivo, así, si cambias de empresa, en una aplicación que soporte multiempresas, por ejemplo, y las empresas las tienes clasificadas en distintas carpetas, (por ejemplo c:\Programa\Empresa1\Clientes.dat o C:\Programa\Empresa2\Clientes.dat), con abrir y cerrar el archivo, sobra para que coja la nueva ruta, pero, si lo haces de la otra manera, has de salir del programa completamente y volver a ejecutarlo, ¿no?

Un salu2.-

[fastpho]

@Josber, Yo tambien lo trabajo con variables directamente en el working , no trabajo con el COBOL85.CBR
, lo que trate es de darle un ayuda de la pregunta que realizo , me parece lo mejor es trabajar con path desde el working con variables globales como detallaste
Saludos

[Joseg]

❞ Buenas tardes, Tengo la siguiente consulta: En una instalación en PowerCobol (7 o superior), necesito que un archivo si no está en la carpeta de ejecución, lo busque en otra carpeta. Eso en Rmcobol teníamos la posibilidad de usar la variable de ambiente RUNPATH, y con eso encontraba tanto los programas COB como los archivos de la aplicación, que sino estaban en la carpeta de ejecución, los iba a buscar ahí. set runpath=\SISTEMA1 Entonces en la select solo se ponía el nombre del archivo sin referenciarlo a una carpeta: SELECT ARDECTRL ASSIGN TO RANDOM "A3300000" y si no estaba en donde se corre, lo encontraba en SISTEMA1 Alguno de Uds. sabe si eso en PowerCobol se puede lograr de alguna manera, sin obviamente tocar la Select para poner una variable y armar el nombre externo del archivo con el Path? desde ya muchas gracias, Nota: probé con @CBR_CBRFILE en el COBOL85.CBR y no anduvo, Armando

Também pode usar variáveis de ambiente em Powercobol. Também uso porque acho mais facil. no meu caso com uso tanto ISAM como tabelas em SQL faço assim:

       ESPECIAL-NAMES
           ENVIRONMENT-NAME  IS ENV1
           ENVIRONMENT-VALUE IS ENV2
           DECIMAL-POINT IS COMMA.
.
.
.
 working-storage.
 01 WDBTAB         pic x(220).
 PROCEDURE DIVISION
 
            MOVE SPACES TO WDBTAB         
            DISPLAY "ARCLIENTE" UPON ENV1   *> Variável "ARCLIENTE"
            IF EG-MODSQL = "S"
                STRING WACCSQL1 DELIMITED BY "   "  
                      "FT2Modelo,EXFH,INF(xeuro.inf)" DELIMITED BY SIZE INTO WDBTAB 
            ELSE
                     MOVE "FT2Modelo.dat" TO WDBTAB 
           END-IF
            DISPLAY WDBTAB UPON ENV2
      *-----
 

Para ler o conteúdo de qualquer variável de ambiente:

           DISPLAY "ARCLIENTE" UPON ENV1.
           ACCEPT  WDBTAB     FROM ENV2.      *> WDBTAB = Conteúdo da variável "ARCLIENTE"

Todas estas defenições apenas estão no módulo principal (MENU.EXE por exemplo)

[Armando]

Buen día,
gracias a todos por las respuestas, algunas las conocía como las de usar:
1) una variable en el sistema en lugar del nombre externo en la select y armarlo en cada programa
2) o dentro del cobol85.cbr definir la variable en la instalación del sistema, y modificar la select igual que en el anterior,

La de las variables de ambiente no las probé,

Lo que ya vi que no hay forma, sin tocar el nombre externo en la select, que actúe como el RUNPATH de RMCOBOL, es decir, teniendo en rm lo siguiente:

SELECT CONTROLEX ASSIGN TO RANDOM "A2137020"

y en la ejecución se carge la variable de ambiente
set runpath=\siste2
y el A2137020 no existe en el directorio de ejecución, por defecto lo encuentre en \siste2
Eso implicaba no tocar las select de un montón de programas,

saludos
y de nuevo gracias,