在IBM i (OS/400)中使用 RPGLE 从数据库中提取数据

本示例展示如何使用 RPGLE 从 IBM i (OS/400) 操作系统中的数据库中提取数据。通过示例代码，我们将使用SELECT查询来从用户指定的表中提取列数据，并使用读取操作将其放入数据库记录格式中。

Dcl-DS EmployeeInfo;
      EmployeeName Char(30);
      EmployeeAge Int(3);
      EmployeeSalary Packed(7, 2);
    End-DS;

    Dcl-F EmployeeDb Disk Usage(*Update) Qualified;
    Exec SQL Set Option Commit = *None, Usropt = *No;
    Exec SQL SET OPTION DFTCCSID = 1208, DATFMT=*ISO, TIMFMT=*ISO;
    Exec SQL DECLARE C0 CURSOR FOR SELECT EmpName, EmpAge, EmpSalary FROM EmployeeData WHERE EmpDept = 'SALES' ORDER BY EmpName DESC;
    Exec SQL OPEN C0;

    Dow SQLNOTFOUND;
      Exec SQL FETCH C0 INTO :EmployeeInfo;
      // 在控制台打印每个记录值
      Dsply (EmployeeInfo.EmployeeName + ' ' + %Char(EmployeeInfo.EmployeeAge) + ' $' + %Char(EmployeeInfo.EmployeeSalary));
    EndDo;

    Exec SQL CLOSE C0;

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