Comprobación de existencia de ficheros en MVS

[Mikel Gómez]

La comprobación de existencia de un fichero en entorno MVS desde FOCUS
o WebFOCUS, se puede realizar con la variable &RETCODE (0 existe,
distinto de 0 no existe) tras haber ejecutado un ? TSO DSNAME
'fichero', como se muestra en el siguiente ejemplo:

? TSO DSNAME 'LIBRERIA.FICHERO.DATOS'
-RUN
-TYPE RETCODE - &RETCODE

Y para comprobar si una asignación lógica se ha realizado
correctamente (ALLOC) o bien para obtener datos adicionales, se pueden
consultar toda una serie de variables de sistema tras la utilización
de:

-? TSO DDNAME nombrelógico

Ejemplo:

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

Las variables son:

-TYPE DDNAME - &DDNAME
-TYPE DSNAME - &DSNAME
-TYPE DISP - &DISP
-TYPE DEVICE - &DEVICE
-TYPE VOLSER - &VOLSER
-TYPE DSORG - &DSORG
-TYPE RECFM - &RECFM
-TYPE SECONDARY - &SECONDARY
-TYPE ALLOCATION - &ALLOCATION
-TYPE BLKSIZE - &BLKSIZE
-TYPE LRECL - &LRECL
-TYPE TRKTOT - &TRKTOT
-TYPE EXTENTSUSED - &EXTENTSUSED
-TYPE BLKSPERTRK - &BLKSPERTRK
-TYPE TRKSPERCYL - &TRKSPERCYL
-TYPE CYLSPERDISK - &CYLSPERDISK
-TYPE BLKSWRITTEN - &BLKSWRITTEN

La salida es:

DDNAME - FICHERO
DSNAME - LIBRERIA.FICHERO.DATOS
DISP - SHR
DEVICE - DISK
VOLSER - PXST00
DSORG - PS
RECFM - VB
SECONDARY - 10
ALLOCATION - CYLINDER
BLKSIZE - 27998
LRECL - 20
TRKTOT - 465
EXTENTSUSED - 4
BLKSPERTRK - 2
TRKSPERCYL - 15
CYLSPERDISK - 3339
BLKSWRITTEN - 1

Más sobre comprobación de existencia de ficheros en otros entornos:
http://groups.google.com/group/ifocus/browse_thread/thread/4fc90977b7eab2c0/2e0866e8a601b729