在IBM i上使用RPG程序远程连接Oracle数据库

该示例代码演示了如何在IBM i (OS/400)上使用RPG程序远程连接到Oracle数据库。使用了IBM提供的JT400库来建立与Oracle数据库的连接，并使用SQL语句对数据库执行查询操作。

dcl-ds EmpDS;
  EmpId   packed(6:0);
  EmpName varchar(50);
end-ds;

dcl-s SqlStmt varchar(1000);
dcl-s SqlCsr  int(5);
dcl-s LibName varchar(10) inz('QGPL');
dcl-s ConnHandle     int(10);
dcl-s SqlCode        int(5);
dcl-s dbch           likeds(SQL400_DBCH);

dbch.sqlenvfil = 'QC2SYS/USRLIBL'; //设置库列表
SQL400Connect(ConnHandle : dbch);  //建立连接

SqlStmt = 'select empid, empname from emp where empid = ?';
SqlCsr = SQL400AllocCsr(ConnHandle);
SQL400Prepare(SqlCsr : SqlStmt : SqlCode);
EmpDS.EmpId = %dec('1001');  //设置查询参数
SQL400BindIn(SqlCsr : 1 : EmpDS.EmpId : EmpDS : SqlCode);
SQL400Execute(SqlCsr : SqlCode);

SQL400Fetch(SqlCsr : EmpDS : SqlCode);  //查询结果
SQL400Close(SqlCsr);  //关闭游标

SQL400Disconnect(ConnHandle);  //断开连接
*INLR = *ON;

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