如何使用RPGLE检查文件是否存在于IBM i (OS/400)上

演示如何在IBM i (OS/400)上使用RPGLE编程语言检查文件是否存在。该示例代码使用了IBM i (OS/400) API和文件系统函数进行文件检查。

//声明一个包含文件名和路径的字符串变量
dcl &file_name_path *char 200

//设置文件名和路径
let &file_name_path = '/QSYS.LIB/MYLIB.LIB/MYFILE.FILE'

//调用文件检查函数
if TestFileExistence(&file_name_path) = '1'
    //若文件存在，则输出信息
    dsply 'The file exists'
endif

//定义函数使用 IBM i (OS/400) 文件系统 API 进行文件检查
dcl-proc TestFileExistence
    dcl-pi *n
        path *char 200
    end-pi

    dcl-s file_handle int(10)
    dcl-s exists ind

    //使用 IBM i (OS/400) API 打开文件
    if QMHSNDPM('SNDPGMMSG', '*LIBL      ', ' ', ' ', ' ', *omit, 
                ' ', ' ', ' ', '0', ' ', ' ', ' ', file_handle) <> '0000'
        //文件打开失败
        return 0
    endif

    //使用 IBM i (OS/400) 文件系统函数检查文件是否存在
    exists = %checkr(file_handle)

    //关闭文件
    if QMHSNDPM('SNDPGMMSG', '*LIBL      ', ' ', ' ', ' ', *omit, 
                ' ', ' ', ' ', '1', ' ', ' ', ' ', file_handle) <> '0000'
        //文件关闭失败
        return 0
    endif

    //返回结果
    return exists
end-proc

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