ibm i (os/400)如何使用RPGLE在子文件中查询

本示例代码展示了如何在ibm i (os/400)的RPGLE中使用子文件查询，其中包含查询子文件的关键代码和对查询结果进行处理的实现方式。

DCL-F subfile     WORKSTN USROPN;
DCL-DS records    TEMPLATE; 
     id                  packed(5, 0); 
     name                char(30);     
     age                 packed(3, 0); 
END-DS;

Exec SQL DECLARE C1 CURSOR FOR
  SELECT id, name, age
    FROM MYLIB.MYFILE
    WHERE age >= ?; 
Exec SQL OPEN C1(:MINAGE);

Setll (*LOVAL) MYFILE;
Readc MYFILE;
Dow not %eof(MYFILE);
  If age >= MINAGE;
    records.id = id; 
    records.name = name;
    records.age  = age;
    Write subfile;
  Endif;
  Readc MYFILE;
Enddo;

Close C1;
*inLR = *ON;

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