Citación del post de
Kuk
|
❞
Joseg, yo no veo ningún problema.
En la WORKING del Form defines:
Código COBOL:
01 GLB-FILE001 IS GLOBAL PIC X(256). 01 GLB-FILE002 IS GLOBAL PIC X(256). 01 GLB-FILE003 IS GLOBAL PIC X(256).
En el evento "Opened" lees tu fichero COBOL85.CBR y alimentas los campos GLB-*. Así durante la ejecución del Form siempre tendrás disponibles los Path hacía tus ficheros de configuración.
Si quieres recuperar el contenido de estos ficheros, después de recuperar sus Path, léelos también en el mismo evento "Opened" y guarda su contenido en variables globales, que deberás definir en el mismo sitio (WORKING del Form).
|
Creo que no esta a entender.
El archivo cobol85.cbr es el archivo de configuración del tiempo de ejecución de FujitsuCobol (runtime).
Me gustaría tener acceso al valor de las Variables de este archivo sin tener que hacer:
Código COBOL:
select xpto assign to "cobol85.cbr"
organization is line sequencial
access sequential
status sss
...
fd xpto.
01 registo pic x(100).
...
procedure division.
open input xpto
read xpto at end ...
move registo to xxxxxxxxx
*>Procesar aquí el registro...
No sé si conoce todas las potencialidades de este archivo, pero podemos entre muchas otras cosas definir el nombre de los archivos de forma dinámica sin tener que compilar la aplicación.
Por ejemplo:
Código COBOL:
Select myfile assing to infile.
En el archivo cobol85.cbr
Código:
Infile = c: \ data \ mydata.dat
por ejemplo.
Quiero sólo en tiempo de ejecución ver lo que está registrado en "infile".
Gracias