C$FILEINFO

The C$FILEINFO library routine retrieves information about a file.

FILE-PREFIX settings are ignored by this routine.

Syntax:

CALL "C$FILEINFO" USING fileName                          fileInfo                   GIVING returnCode

Parameters:

fileName	PIC X(n)	Specifies the name of the file. This should either be a full path name or a name relative to the current directory.
fileInfo	Group Item	Receives the file information. It must have the following structure:   01 fileInfo. 03 fileSize PIC X(8) COMP-X. 03 fileDate PIC 9(8) COMP-X. 03 fileTime PIC 9(8) COMP-X.   fileSize Size of the file in bytes.   fileDate Last modified date of the file, in YYYYMMDD format.   fileTime Last modified time of the file.

Return code:

returnCode can be any numeric data item and provides additional information:

0	Operation successful, file information has been retrieved.
1	An error occurred, no information retrieved.

Example:

Example - Retrieve file information for a specific file

working-storage section. 01 file-info.    02 file-size pic x(8) comp-x.    02 file-date pic 9(8) comp-x.    02 file-time pic 9(8) comp-x. 77 file-name    pic x(256). 77 retCode      pic s9(2). ... procedure division. ...    move "c:\myapp\resources\properties1.txt" to file-name    call "c$fileinfo" using file-name, file-info         giving retCode    if retCode = 0       display message "File size   : " file-size x"0d0a"                       "Last update : " file-date " - " file-time    else       display message "File information could not be retrieved"    end-if.