在z/OS上如何使用REXX判断文件是否存在

这段代码演示了如何使用REXX脚本在z/OS上判断某个文件是否存在，如果存在则输出文件最后修改时间和所占大小，如果不存在则输出文件不存在的提示。

/* 判断文件是否存在 */ 
FILENAME = “USERID.MYFILE” /* 文件名 */ 
IF FILESPEC(FILENAME) THEN DO 
 /* 文件存在，输出文件信息 */ 
 SAY “文件存在。” 
 FILE = DATASET(FILENAME) 
 SAY “最后修改时间：” FILE.LASTUSE 
 SAY “所占大小：” FILE.SIZE 
END 
ELSE DO /* 文件不存在，输出提示 */ 
 SAY “文件不存在。” 
END

免责申明：文章和图片全部来源于公开网络，如有侵权，请通知删除 server@dude6.com