求助 关于RPG3的I表使用问题

Question

本帖最后由 george251 于 2011-02-24 13:10 编辑

************************************************************** Imyfile      01                                                 I                                              myfield01       I                                              myfield02         I                                              myfield03       I                                              myfield04         I                                              myfield05         I                                              myfield06       I                                              myfield07 I                                              myfield08 I                                              myfield09

Answer 1

Primary File系统自动读的

Answer 2

受教了，确实是循环读表的集计问题。一开始读这个代码我还纳闷怎么没有读表的操作。。。 呵呵 第一次接触RPG3很多东西都不懂

Answer 3

这是使用rpg循环的情况。400的lf可以有多个record format, 每个record format基于不同的pf.
如果读到的纪录来源于D07RR3，那么indicator 01就被turn on了。

L1, L2, L3, ... L4 是所谓LEVEL BREAK INDICATOR.当左边的字段的值发生变化的时候，它们就被TURN ON了。

RPG循环徐处理这类小计---中计---大计---总计的运算最适合了。

如果不用RPG循环，你就得自己保护纪录的键值，再比较新旧值以判断LEVEL BREAK 有没有发生过。

现在普通的程序员只用RPG循环中C表中的DETAIL CALCULATION部分。

[ 本帖最后由 franliu 于 2009-12-9 19:45 编辑 ]