AS/400开发经验点滴（七）--在RPG程序中巧用相对记录号RRN

blogliou

“5”是讲一个通用日志管理工具的，有详细源代码，稍加包装就可以形成一个通用产品。斑竹删除或许是在保护我“知识产权”吧？^^

“6”是讲如何制作下拉菜单的。本坛上也有好多大虾对此也很有经验。

China_Free_Man

高手！UP!!!

Red_Crow

想看5、6。

pl421

是啊，想看５。６

bonbonben

收获

rudy5

谢谢，一直以来对RPG文件操作部分有很大的疑惑，现在又多了解了一点，非常感谢！还有关于文件操作的说明或是实例吗？不胜感激！

albert55

相对记录号没有那么好用,不信可以多试几种情况

yueh

【重贴前帖】

AS/400开发经验点滴（一）
http://bbs.chinaunix.net/forum/viewtopic.php?t=216871

AS/400开发经验点滴（二）：一个批量修改文件属性的工具
http://bbs.chinaunix.net/forum/viewtopic.php?t=217254

AS/400开发经验点滴（三）--如何使用分布式关系数据库
http://bbs.chinaunix.net/forum/viewtopic.php?t=229798

AS/400开发经验点滴（四）--如何在程序中获取系统状态信息
http://bbs.chinaunix.net/forum/viewtopic.php?t=230540

AS/400开发经验点滴（五）-- 通用日志管理工具
http://bbs.chinaunix.net/forum/viewtopic.php?t=240545

AS/400开发经验点滴（六）--如何制作下拉菜单(源码)
http://bbs.chinaunix.net/forum/viewtopic.php?t=257368

KienR9

原帖由 blogliou 于 2004-11-30 12:26 发表
AS/400开发经验点滴（七）

BLOG LIOU


3.使用RRN优化处理大文件的例子

下面举一例，看看如何使用RRN来优化处理大文件。假设有一个数据量为海量的大文件，需要对其顺序处理。通常我们会想到把该大文件拆分成若干小文件，然后对若干小文件进行并行处理。但把海量大文件拆分成若干小文件也需要耗去可观的时间，能不能不用对海量大文件进行拆分，就可以对该文件进行分段并行处理呢？使用RRN就可以做到。

具体办法：
(1)        首先在RPG程序的文件定义中定义RECNO关键词以及定义存放RRN号的字段。
(2)        在RPG程序中指定分段的开始和结束RRN号。
(3)        用开始RRN号和SETLL语句来定位分段的开始位置
(4)        用读写记录返回的RRN号，来与分段结尾RRN号比较，当读写记录返回的RRN号大于分段结尾RRN号时，该段处理结束，程序返回。
(5)        再编一个调用的RPG或CL的程序，指定若干个连续的分段，并用提交方式调用被调用的分段处理的RPG的程序，就可以完成海量文件的分段并行处理。
...

请问第5步怎么做，有具体事例代码就好了，谢谢！