Comprobación de existencia de ficheros

[Mikel Gómez]

Algunos métodos para comprobar la existencia de ficheros desde WebFOCUS:

****************
WHENCE

WHENCE para comprobar la existencia de cualquier fichero WebFOCUS.
En la versión 7.1, &FOCERRNUM devuelve 0 en vez de 1892.
Parece que hay casos abiertos en soporte de IBI sobre el tema.

-* Comprobación de existencia de ficheros WebFOCUS.
-* WHENCE ficherosinext <FOCEXEC|MASTER|ACCESS|FOCUS|FOCSTYLE>
WHENCE tabla MASTER
-RUN
-TYPE FOCERRNUM: &FOCERRNUM

****************
DIR

DIR para comprobar la existencia de cualquier fichero.
El resultado en &RETCODE a partir de la versión 7.1 (0 existe y 1 no existe).

-* Comprobación de existencia de cualquier fichero.
-* DIR <rutayfichero>
-* Win - DIR c:\dir\fichero.ext
-* Unix - DIR /appl/wwww/fichero.ext
DIR c:\dir\fichero.ext
-RUN
-TYPE RETCODE: &RETCODE

****************
&IORETURN tras -READ y FILEDEF

(Valido en cualquier versión de FOCUS y WebFOCUS)
&IORETURN (0 bien y 1 error) tras -READ y FILEDEF para
comprobar la existencia de datos en una asignación lógica, salvo
que alguien tenga más información que el que escribe.

-* Comprobación de existencia de datos en asignación lógica FILEDEF.
FILEDEF FICHERO DISK fichero.txt
-RUN
-READ FICHERO &X.A1.
-TYPE IORETURN: &IORETURN
-RUN

****************
-? TSO DDNAME

En entorno MVS, -? TSO DDNAME, para comprobar las asignaciones lógicas
realizadas con ALLOC en entorno MVS.
Resultado en &DSNAME por ejemplo.
Si queda en blanco, no existe, si tiene valor existe.

-* Comprobación de Asignación lógica en MVS con ALLOC.
DYNAM ALLOC FILE LOGICO DSNAME SCCID41.FICHERO.DATOS SHR REU
-RUN
-? TSO DDNAME LOGICO
-RUN
-TYPE DSNAME: &DSNAME