免费注册	查看新帖 \|


平台论坛博客文库

› 论坛 › 操作系统 › AS400 › rpg只更新最后一行

最近访问板块

发新帖

查看: 2297 | 回复: 6

rpg只更新最后一行 [复制链接]

论坛徽章:: 0

发表于 2012-09-02 23:51 |显示全部楼层

本帖最后由 pww2010 于 2012-09-02 23:52 编辑

我写了一个RPG，是用来更新文件用的，代码如下:
FENTLIPL1UF  E          K       DISK
FUPENTLIPIF  E          K       DISK
C                   READ UPENTLIP                90
C          *IN90    DOWEQ'0'
C          EDI    CHAINENTLIPL1          91
C          *IN91    IFEQ '0'
C                   MOVELCOD    CODRE1
C                   MOVELCOD    CODRE2
C                   UPDATENTLIPLF
C                   ENDIF
C                   READ UPENTLIP                90
C                   ENDDO
C                   SETON                   LR
C                   SETON                   LR

call rpg后只能更新entlip的最后一行，在entlip文件中符合edi条件的有很多条记录，rpg却不能全部更新。。。。。。。各位能不能帮忙看看是什么问题!!!!

文库|博客

论坛徽章:: 0

发表于 2012-09-03 08:16 |显示全部楼层

本帖最后由 NINERI 于 2012-09-03 08:17 编辑

EDI CHAINENTLIPL1 91
只能找到第一笔记录

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

论坛徽章:: 0

发表于 2012-09-03 10:04 |显示全部楼层

是呀,我想找所有匹配EDI的记录,然后更新成COD!!!

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

论坛徽章:: 0

发表于 2012-09-03 13:00 |显示全部楼层

EDI READEENTLIPL1 91(EQ)
循环读取

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

论坛徽章:: 1

操作系统版块每日发帖之星
日期:2015-11-05 06:20:00

发表于 2012-09-03 20:18 |显示全部楼层

楼上正解，你是因为第一笔就更新了，每次CHAIN都是那笔，所以每次都是更新的同一笔，懂了么？

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

论坛徽章:: 0

发表于 2012-09-03 21:09 |显示全部楼层

最后我把代码改成如下,就OK..

FENTLIPL1UF  E          K       DISK
FUPENTLIPIF  E          K       DISK
C                   READ UPENTLIP                90
C          EDI    READEENTLIPL1                91
C          *IN91    DOWEQ'0'
C                   MOVELCOD    CODRE1
C                   MOVELCOD    CODRE2
C                   UPDATENTLIPLF
C          EDI    READEENTLIPL1                91
C                   ENDDO
C                   SETON                   LR

Thanks every body for your help!!!!!!

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

论坛徽章:: 0

发表于 2012-09-12 17:10 |显示全部楼层

CHAIN完READ 一条一条往下读
CHAIN只定位了一条要循环READ读到没有跳出循环

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

发新帖

Chinaunix › 论坛 › 操作系统 › AS400 › rpg只更新最后一行

北京盛拓优讯信息技术有限公司. 版权所有京ICP备16024965号-6 北京市公安局海淀分局网监中心备案编号：11010802020122 niuxiaotong@pcpop.com 17352615567
未成年举报专区
中国互联网协会会员联系我们：huangweiwei@itpub.net
感谢所有关心和支持过ChinaUnix的朋友们转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP