在IBM i（OS/400）中使用Qshell执行命令的示例代码

本示例代码展示了如何在IBM i（OS/400）中使用Qshell执行命令，并将输出信息打印出来。

PGM

DCL VAR(&CMD) TYPE(*CHAR) LEN(100)
DCL VAR(&OUTPUT) TYPE(*CHAR) LEN(100)

/* 执行系统命令 */
CHGVAR VAR(&CMD) VALUE('ANZOBJCVN LIB(TESTLIB) OBJ(TESTOBJ)')
QSH CMD('system "' *BCAT &CMD *TCAT '"') +
OUTPUT(*PRINT) +
NOMSG

/* 打印输出 */
CHGVAR VAR(&OUTPUT) VALUE('输出信息：' *BCAT STCKSPLF SPLNBR(2))
SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) MSGDTA(&OUTPUT)

ENDPGM

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