使用RPGLE从DB2 for IBM i（OS / 400）读取数据

本示例展示了如何使用RPGLE从IBM i（OS / 400）的DB2数据库中读取数据。首先，需要建立DB2文件，然后定义一个带有链式结构的变量来存储数据，并使用OPEN，FETCH和CLOSE命令从文件中获取数据，并将其打印到控制台窗口。

// 定义变量以存储数据
DCL-F MYFILE;
DCL-DS MYDATA;
   FIELD1 CHAR(10);
   FIELD2 Packed(9:2);
   FIELD3 ZONED(5);
   FIELD4 DATE(*ISO);
   // 在程序中打开并读取文件
   EXEC SQL 
      DECLARE C1 CURSOR FOR
      SELECT FIELD1, FIELD2, FIELD3, FIELD4
      FROM MYFILE
      ORDER BY FIELD1;
   EXEC SQL 
      OPEN C1;
   DOW SQLCOD = *Zeros;
      EXEC SQL 
         FETCH C1 INTO :MYDATA;
      IF SQLCOD = *Zeros; 
         // 将数据打印到控制台
         DSPATR('标题' + FIELD1 + '   ' + %Char(FIELD2) + '  ' + %Char(FIELD3) + ' ' + %Char(FIELD4));
      ENDIF;
   ENDDO;
   EXEC SQL 
      CLOSE C1;
   *INLR = *On;

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