更新记录出了点问题？

Question

本帖最后由 first_come 于 2010-08-18 08:23 编辑

kkkk.gif (24.46 KB, 下载次数: 9)

下载附件

2010-08-17 14:06 上传

     这里的tour #和SEQ在数据库中决定了它的key，现在我需要把tour #相同的记录放在下面的subfile中，但是相同的tour #的日期是一样的，所以我放在了下面.
     SEQ中的记录都是同一个日期（TOUR #确定了日期），当我更新日期（effective date）的时候只有SEQ为1的记录更新了，再更新一次就出现：“记录未改动和删除，重复更新（error）”，后来没办法只能用个SQLRPGLE来一次更新，如果要用RPGLE来更新应该怎么做呢，当我更新日期的时候SEQ中的记录的日期全部都要更新？谢谢
大概的代码：
                           if       effdat <> sav_efdat
                                             dou     *in77 = *on
                                             move   effdat       sav_efdat
                                             ........这里将effdat的*Y,*M,*D放入物理文件字段
                              update      file（物理文件）
    key(tour #为key)             reade       file      77
                                             enddo
                                        endif
这里还有一个问题就是当effective date出现错误的时候，光标定位不过来（move *on dapatr（PC）无效），effective date下面的是一个记录格式.

Answer 1

加了个%EOF /Leave就成功了，真奇怪！

Answer 2

是RPGLE啊.谢谢，我已经再编辑了，多谢关注！

Answer 3

reade   读的是屏幕文件？
你这个代码是RPGLE么？看不懂，呵呵！能否多贴点？