No sé a que te refieres exactamente, yo tengo puesto en todos los ficheros, una rutina que coge de un fichero de
principal de control, la ruta de datos, y hace el montaje de la variable con el nombre del fichero + número de empresa + más la ruta de datos, todo metido en un fichero .cpy, que incluyo en el evento
opened del form con un #INCLUDE
Código COBOL:
000001*
000002* MONTAR VARIABLE DE CODIGOS de BANCOS
000003*
000010 MOVE 0 TO TAMA.
000020 MOVE TAMANO TO TAMA.
000030 INITIALIZE FILE33.
000040 MOVE RUTA TO FILE33.
000050 STRING WEMP DELIMITED BY SIZE INTO FILE33 WITH POINTER TAMA.
000060 STRING "_0033.JBL" DELIMITED BY SIZE INTO FILE33 WITH POINTER TAMA.
000999
En
RUTA, tengo definido la carpeta donde se encuentran los archivos, me da lo mismo que sea de red que local, y en
TAMANO, se guarda la longitud (FUNCTION STORED-CHAR-LENGTH (RUTA)) de la variable RUTA, luego todo es cuestión de hacer el montaje, y la ruta de datos, siempre la sé porque está guardada en
RUTA.
No sé si es esto lo que quieres, si no es así, explicalo de otra forma a ver por donde van los tiros.
Un saludo.-