Chinaunix

标题: 如何更新多记录格式逻辑文件？ [打印本页]

作者: first_come 时间: 2011-10-13 10:38
标题: 如何更新多记录格式逻辑文件？
As subject: 对于多记录格式逻辑文件MLF1（这里引用的是同一个物理文件PF1），操作如下：

klist1(前3个字段)    chain             MLF1(record format - MLF1R,MLF1R2,MLF1R3这里record format的key（前面3个字段是一样的）不一样，且s/o的记录也不同)
            if %found(MLF1)
            更新记录（这里是不是改成chain PF1,更新PF1?）
            endif

作者: huangxkst 时间: 2011-10-13 13:33
if %found(MLF1)
更新记录（这里是不是改成chain PF1,更新PF1?====>你前面已经chain了就直接update chain时的记录格式名就okay）
endif

作者: first_come 时间: 2011-10-13 14:12
这里写成这样么：

if %found(MLF1R)
            UPDATE MLF1R
            endif
****
if %found(MLF2R)
            UPDATE MLF2R
            endif
****
if %found(MLF3R)
            UPDATE MLF3R
            endif
要求用INFDS来做或者写在I表里（sample中是这样），我正在测试。。。上面的方法应该是可以的。。

作者: insmile 时间: 2011-10-13 23:59
klist1(前3个字段)    setll          MLF1
klist1(前3个字段)    READE       MLF1                                  90
*in90                doweq       '1'

                           xxxxxxxxxxx
                           update    mlf1
klist1(前3个字段)    READE       MLF1                                  90
                           enddo

=================这样不是全部都更新了吗？

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