JuanJuan77, hay varios modos. Se puede hacer por WinAPI, también con un CmFile y recorrerlo. Pero lo más fácil y apropiado en este caso será usar la rutina correspondiente:
Código COBOL:
WORKING-STORAGE SECTION.
01 file-name PIC X(n).
01 file-details.
02 file-size PIC 9(18) BINARY.
02 file-date.
03 day PIC 9(4) BINARY.
03 month PIC 9(4) BINARY.
03 year PIC 9(4) BINARY.
02 file-time.
03 hour PIC 9(4) BINARY.
03 minute PIC 9(4) BINARY.
03 second PIC 9(4) BINARY.
03 1-100-second PIC 9(4) BINARY.
01 status-code PIC S9(4) COMP-5.
PROCEDURE DIVISION.
CALL "CBL_CHECK_FILE_EXIST2"
USING file-name file-details
RETURNING status-code
Para poder usar las rutinas CBL_ hay que añadir la librería siguiente al proyecto:
Código:
C:\Program Files\Fujitsu NetCOBOL for Windows\F3BICBLR.lib