在IBM i (OS/400)中使用CL命令行批量移动IFS文件

使用CL命令行批量移动IFS文件是IBM i (OS/400)上常见的需求之一。本示例代码通过在CL程序中运行CPY命令来实现将一个目录所有的文件移动到另一个指定的目录。

PGM                                                                             
DCL &FROMDIR *CHAR 256   /* 要移动的目录 */
DCL &TODIR *CHAR 256     /* 目标目录 */
DCL &CMD *CHAR 512       /* 处理的命令 */
DCL &STDERR *CHAR 514    /* 接收错误消息 */

CHGVAR %BIN(&CMD) ('CPY OBJ((' *TCAT &FROMDIR *TCAT ')/*) TOOBJ((' *TCAT +
                  &TODIR *TCAT ')/*)')

RUNCMD CMD(&CMD) PGM(QCMD) /* 在CL程序中运行CMD命令 */

ENDPGM

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