使用IBM i (OS/400)的CL程序自动备份

这个示例展示了如何使用IBM i (OS/400)的CL程序来自动备份系统上关键的文件和目录。这个程序将创建一个备份文件并将它压缩存储到指定的备份目录中。程序还支持自动删除旧的备份文件以节省磁盘空间。

/* 自动备份CL程序 */

/* 定义备份目录 */
DCL &BKUPDIR *CHAR  '/备份/目录' 

/* 定义备份文件名 */
DCL &BKUPFILE *CHAR &SYSNAME(10) + '_BKUP.ZIP'

/* 定义备份文件的完整路径 */
DCL &BKUPPATH *CHAR &BKUPDIR || &BKUPFILE

/* 创建备份文件 */
STRQSH CMD('touch' *bcat &BKUPPATH)

/* 备份关键文件和目录 */
STRQSH CMD('tar -czvf' *bcat &BKUPPATH *bcat + 
' /QSYS.LIB/QUSRSYS.LIB /QSYS.LIB/QGPL.LIB')

/* 删除旧备份文件 */
STRQSH CMD('find' *bcat &BKUPDIR *bcat '-name' *bcat + 
'"*_BKUP.ZIP" -mtime +30 -type f -delete')

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