使用IBM i (OS/400)执行CL命令的示例

IBM i，先前称为OS/400，是IBM的操作系统，广泛用于企业中的中间件和数据库应用程序。在IBM i上，您可以使用CL（Control Language）编写和执行操作系统命令。以下示例演示了如何使用CL编写和执行一个简单的命令。

/* CL程序，执行显示日期命令 */
PGM
   DCL VAR(&DATE) TYPE(*CHAR) LEN(10)
   DCL VAR(&TIME) TYPE(*CHAR) LEN(8)
   RTVSYSVAL SYSVAL(QDATE) RTNVAR(&DATE)
   RTVSYSVAL SYSVAL(QTIME) RTNVAR(&TIME)
   CHGVAR VAR(&DATE) VALUE(%SST(&DATE 6 2) *CAT '/' *CAT %SST(&DATE 4 2) *CAT '/' *CAT %SST(&DATE 2 2))
   SNDPGMMSG MSG('当前日期：' *CAT &DATE) MSGTYPE(*INFO)
   SNDPGMMSG MSG('当前时间：' *CAT &TIME) MSGTYPE(*INFO)
   ENDPGM

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