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

george251

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

  I表里这个定义我查过资料，是说        配置字段记录关系指示器，当和所给出的键值匹配的时候就会SETON 指示器，是不是说，当这些键值都不为零或空的时候，指示器才是ON的状态？

franliu

这是使用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 编辑 ]

george251

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

franliu

Primary File系统自动读的