如何在 IBM i（OS/400）中使用 CL程序调用RPG程序？

本文介绍在IBM i (OS/400)操作系统中使用CL程序（Control Language Program）调用RPG程序的方法。RPG是一种面向IBM i (OS/400)操作系统的高级编程语言，通过CL程序调用RPG程序可以实现在命令行中运行RPG程序的功能。本文详细介绍了如何编写CL程序，并通过CL程序调用RPG程序。

/* CL程序调用RPG程序 */
             PGM        PARM(&PARM1)
             DCL        VAR(&PARM1) TYPE(*CHAR) LEN(10)

             /* 定义调用参数 */
             DCL        VAR(&PARM2) TYPE(*CHAR) LEN(10)
             DCL        VAR(&RC) TYPE(*INT)

             /* 赋值调用参数 */
             CHGVAR     VAR(&PARM2) VALUE(&PARM1)

             /* 调用 RPG程序 */
             CALL       PGM(MYLIB/RPGPGM) PARM(&PARM2 &RC)

             /* 输出RPG程序的返回值 */
             IF         COND(&RC *NE 0) THEN(DO)
             SNDPGMMSG  MSG('RPG程序执行错误') TOMSGQ(*PRV)
             ENDDO

             /* 执行成功 */
             SNDPGMMSG  MSG('RPG程序执行完成') TOMSGQ(*PRV)

             ENDPRG

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