CALL "C$FILEINFO"
USING FILE-NAME, FILE-INFO,
GIVING STATUS-CODE
| FILE-NAME PIC X(n) | Contains the name of the file to check. This should either be a full path name or a name relative to the current directory. Remote name notation and "@[DISPLAY:]" notation are allowed for this parameter. If run in standalone mode, and the "@[DISPLAY]" syntax is used, the file will be searched for on the local machine. |
| FILE-INFO Group item to receive returned information. |
FILE-INFO must have the following structure:
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.
|
| STATUS-CODE Any numeric data item. | This receives the return status. It will be zero if successful, or "1" if the file does not exist or is not a regular disk file. |
This routine checks to see if the passed file exists and is a regular disk file. If it is, then FILE-INFO is filled in with the appropriate information. The FILE-SIZE field is the size of the file in bytes. The FILE-DATE and FILE-TIME fields indicate the time the file was last modified. FILE-DATE has the form YYYYMMDD (year/month/day, note the 4-digit year) and FILE-TIME has the form HHMMSShh (hours/minutes/seconds/hundredths--just like ACCEPT FROM TIME). On all current implementations, the hundredths field is always set to zero.
The behavior of this routine is affected by the FILENAME_SPACES configuration variable. The value of FILENAME_SPACES determines whether spaces are allowed in a file name. See the entry for FILENAME_SPACES in Appendix H for more information.