处理IBM i (OS/400)文件的示例代码

该示例代码演示如何使用IBM i (OS/400)上的RPGLE编程语言来读取、写入、更新和删除文件。使用的是带有DSPF的交互式用户界面。在该程序中，可以建立一个文件记录，并可以根据不同的条件对查询进行过滤。

/free
     // 创建文件
     exec sql
        create table MYLIB/MYTABLE (
           KEY int primary key not null,
           NAME char(20) not null,
           AGE int not null,
           PHONE char(10)
           );
     exec sql commit;

     // 打开文件
     fd MYFILE if e k disk ;

     // 读取文件
     dow (not %eof(MYFILE));
        read MYFILE;
        exsr process_record;
     enddo;

     // 关闭文件
     close MYFILE;

     // 删除文件
     exec sql
        drop table MYLIB/MYTABLE;
     exec sql commit;

     *inlr = *on;
     return;

     process_record:;
     // 处理记录
     return;

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