在IBM i (OS/400)中使用CL命令执行SQL查询的示例代码

该示例代码演示了如何在IBM i (OS/400)中使用CL命令执行SQL查询。使用CL命令可以方便地在命令行界面执行查询操作。该示例代码中包含了如何创建查询语句、如何执行查询、如何处理查询结果等操作。

/* 创建查询语句 */
CRTSQLRPGI OBJ(TESTSQL) SRCSTMF('/home/user/testsql.sql')
/* 定义CL程序 */
PGM
     DCL VAR(&SQL) TYPE(*CHAR) LEN(256)
     DCL VAR(&RESULT) TYPE(*CHAR) LEN(2000)
     DCL VAR(&RC) TYPE(*INT)

     /* 创建查询语句 */
     CHGVAR VAR(&SQL) VALUE('SELECT * FROM MYTABLE')

     /* 执行查询 */
     RUNSQL SQL(&SQL) +
            COMMIT(*NONE) +
            ROWCOUNT(*NONE) +
            RESULTVAR(&RESULT) +
            ERRLVL(&RC)

     /* 处理查询结果 */
     IF COND(&RC *NE 0) THEN(DO)
          /* 查询执行失败 */
          SNDPGMMSG MSG('查询执行失败') MSGTYPE(*ESCAPE)
     ENDDO

     IF COND(&RESULT *EQ '') THEN(DO)
          /* 查询结果为空 */
          SNDPGMMSG MSG('查询结果为空') MSGTYPE(*COMP) 
     ENDDO

     /* 输出查询结果 */
     SNDPGMMSG MSG(&RESULT) MSGTYPE(*COMP) 
ENDPGM

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