有个编程的问题想请教大家,不知用RPG 怎么处理?

mis333

原来的资料： wk01pf                               想更新为                           
                FD1    FD2   FD3                        FD1     FD2      FD3
                A          B       0                           A         B          1
                A          B       0                           A         B          2
                A          C       0                           A         C          1
                A          D       0                           A         D          1
                A          C       0                           A         C          2

   (FD3 是序号，就是想根据FD1 FD2 如果相同的话，用 FD3(序号） 表现它在原来的 File 中一共存在几笔）.

     诸位有时间请帮忙 ？ 谢谢！

[ 本帖最后由 mis333 于 2007-4-26 13:35 编辑 ]

fxf_china

建个逻辑文件，主键是fd1,fd2
在rpg里顺序读取逻辑文件，定义一个计数器，当fd1,fd2变化时复位，否则累加
读一条记录更新一条

yorwee

W0FD    KLIST
             KFLD    KD1
             KFLD    KD2

MOVE   A    KD1
MOVE   B    KD2
W0FD    CHAIN   wk01pf     80
IN80*   IFEQ    *OFF
ADD   1    W0CNT
W0FD    READE  WK01PF


....

参照2楼的原理

[ 本帖最后由 yorwee 于 2007-4-26 23:11 编辑 ]