* This program is provided as an example of how retrieve information * about a file residing on a client machine by making calls to * the Windows API, since the @[DISPLAY] syntax is not supported in * Thin Client versions 7.x and earlier. * * The program is provided "as is" and without warranty in regards * to it's usability. identification division. program-id. testit. environment division. special-names. input-output section. file-control. data division. file section. working-storage section. 77 file-name pic x(256). 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 status-code pic 9. screen section. procedure division. main-logic. move "@[DISPLAY]:testfile" to file-name. call "tcfileinfo" using file-name, file-info, status-code. exit-program. stop run.