如何更新多记录格式逻辑文件？

first_come

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

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

first_come

这里写成这样么：

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

insmile

klist1(前3个字段)      setll             MLF1
klist1(前3个字段)      READE         MLF1                                    90
    *in90                  doweq        '1'                 
                              
                               xxxxxxxxxxx
                               update       mlf1
klist1(前3个字段)      READE         MLF1                                    90
                               enddo


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