Chinaunix

标题: 有个编程的问题想请教大家,不知用RPG 怎么处理? [打印本页]

作者: mis333 时间: 2007-04-26 09:18
标题: 有个编程的问题想请教大家,不知用RPG 怎么处理?
原来的资料： 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 时间: 2007-04-26 09:55
建个逻辑文件，主键是fd1,fd2
在rpg里顺序读取逻辑文件，定义一个计数器，当fd1,fd2变化时复位，否则累加
读一条记录更新一条

作者: yorwee 时间: 2007-04-26 22:18
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 编辑 ]

欢迎光临 Chinaunix (http://bbs.chinaunix.net/)