IBM i (OS/400)文件读取与处理示例

本示例展示如何在IBM i (OS/400)平台上使用RPGLE语言读取和处理文件。通过简单的代码演示，了解如何打开文件、读取记录，并在控制台上打印输出。

     // 定义文件
     FMyFile IF E K DISK

     // 定义数据结构
     Dcl-ds MyData;
       Name  Char(50);
       Age   Int(5);
     End-ds;

     // 打开文件
     Open MyFile;

     // 读取文件记录
     Dow (1 = 1);
       Read MyFile MyData;
       // 判断是否到文件末尾
       If %Eof(MyFile);
         Leave;
       Endif;
       // 在控制台打印记录内容
       Exec SQL
         EVAL 'Name: ' + MyData.Name
              + ' Age: ' + %Char(MyData.Age);
       Exec SQL
         EVAL '--------------------';
     Enddo;

     // 关闭文件
     Close MyFile;

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