IBM i (OS/400)数据查询与展示示例

本示例演示如何在IBM i (OS/400)平台上执行数据查询并通过简单的展示方式呈现结果。使用RPG编程语言实现，结合SQL查询和Web显示，使得数据处理更加直观。

** RPGLE程序示例 - 查询与展示数据
ctl-opt dftactgrp(*no) actgrp('MYACTGRP');

dcl-s EmpName char(30);
dcl-s EmpSalary packed(9:2);

exec sql DECLARE EmpCursor CURSOR FOR
  SELECT EmployeeName, Salary FROM EmployeeTable;

exec sql OPEN EmpCursor;

exec sql FETCH NEXT FROM EmpCursor INTO :EmpName, :EmpSalary;

dow SQLCOD = 0;
  // 数据处理逻辑，可以根据需求展示或进一步处理

  // 示例：打印员工名和工资
  dsply ('员工名: ' + EmpName);
  dsply ('工资: ' + %char(EmpSalary));

  exec sql FETCH NEXT FROM EmpCursor INTO :EmpName, :EmpSalary;
enddo;

exec sql CLOSE EmpCursor;

*INLR = *ON;

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