使用z/OS REXX对主机用户目录进行递归查询

该示例代码展示了如何使用z/OS REXX语言递归查询主机用户目录下的所有文件，并将文件名和文件大小打印出来。实现方式是通过ZAINDEX函数递归查询目录下的所有文件，同时使用SYSFILEINFO函数获取文件信息。

/* Rexx */
/* 递归查询主机用户目录下的所有文件 */
address ISPEXEC
zdirect = 'userid.*'
rc = ZINDEX(zdirect,'ALL.','-A',,,'&MYNAM.','DIR',subdirs)
if rc = 0 then do
    do subdirdex = 1 to subdirs.0
        call query_files(subdirs(subdirdex))
    end
end

/* 查询目录下的所有文件 */
query_files: procedure
parse arg dir
dir = strip(dir) || '/*'
rc = SYSFILEINFO(dir,'NAMES',filelist)
if rc = 0 then do
    do filedex = 1 to filelist.0
        filename = strip(filelist(filedex))
        filesize = SYSFILEINFO(filename,'SIZE')
        if filesize = '' then filesize = 0 /* 处理文件大小为空的情况 */
        say filename filesize
    end
end
exit

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