Puedes probar con la rutina
CBL_CHECK_FILE_EXIST2
El siguiente código está extraido del manual que creé en su momento, donde está explicada ésta rutina y otras muchas más, (puedes encontrar más información
AQUÍ)
Código COBOL:
DATA DIVISION.
WORKING-STORAGE SECTION.
01 FICHERO PIC X(255).
01 DETALLES.
02 TAMANO PIC 9(18) BINARY.
02 FECHA.
03 DIA PIC 9(4) BINARY.
03 MES PIC 9(4) BINARY.
03 ANNO PIC 9(4) BINARY.
02 HORA.
03 HH PIC 9(4) BINARY.
03 MM PIC 9(4) BINARY.
03 SS PIC 9(4) BINARY.
03 CC PIC 9(4) BINARY.
01 ESTADO PIC S9(4) COMP-5.
PROCEDURE DIVISION.
*
* FICHERO = Nombre del fichero a comprobar, debe terminar en un carácter en blanco o null
* DETALLES = Detalles del fichero
* TAMANO = Tamaño del fichero (en bytes)
* FECHA/HORA = Fecha y Hora de creación del fichero
* ESTADO = Código de retorno de la función:
* 0 - Sin error
* -1 - Algún error
*
INICIO.
MOVE SPACES TO FICHERO.
MOVE "C:\Articulos\Datos\PRUEBA.TXT" & X"00" TO FICHERO.
CALL "CBL_CHECK_FILE_EXIST2"
USING FICHERO
DETALLES
RETURNING ESTADO
END-CALL.
*
IF ESTADO NOT = 0
INVOKE POW-SELF "DisplayMessage"
USING "Error en la llamada a la rutina CBL..."
ESTADO
POW-DMICONERROR
END-INVOKE
INVOKE POW-SELF "CloseForm"
EXIT PROGRAM
END-IF.
*
Cita:
|
❞
CBL_CHECK_FILE_EXIST/CBL_CHECK_FILE_EXIST2
Comprueba si existe o no un fichero., además, devuelve tamaño, fecha y hora de creación del fichero.
|