求助 關(guān)于RPG3的I表使用問題

george251

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

  I表里這個定義我查過資料，是說        配置字段記錄關(guān)系指示器，當(dāng)和所給出的鍵值匹配的時候就會SETON 指示器，是不是說，當(dāng)這些鍵值都不為零或空的時候，指示器才是ON的狀態(tài)？

franliu

這是使用rpg循環(huán)的情況。400的lf可以有多個record format, 每個record format基于不同的pf.
如果讀到的紀(jì)錄來源于D07RR3，那么indicator 01就被turn on了。

L1, L2, L3, ... L4 是所謂LEVEL BREAK INDICATOR.當(dāng)左邊的字段的值發(fā)生變化的時候，它們就被TURN ON了。

RPG循環(huán)徐處理這類小計---中計---大計---總計的運算最適合了。

如果不用RPG循環(huán)，你就得自己保護紀(jì)錄的鍵值，再比較新舊值以判斷LEVEL BREAK 有沒有發(fā)生過。

現(xiàn)在普通的程序員只用RPG循環(huán)中C表中的DETAIL CALCULATION部分。

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

george251

受教了，確實是循環(huán)讀表的集計問題。一開始讀這個代碼我還納悶怎么沒有讀表的操作。。。 呵呵 第一次接觸RPG3很多東西都不懂

franliu

Primary File系統(tǒng)自動讀的