免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
› 论坛 › 操作系统 › AS400 › 出错了,帮帮忙...
12
最近访问板块 发新帖
楼主: waisyn
打印 上一主题 下一主题

出错了,帮帮忙... [复制链接]

waisyn

论坛徽章:
0
11楼 [报告]
发表于 2006-11-25 10:38 |只看该作者
郁闷，找不到原代码里哪行错了，QTYD看了也觉得没什么问题，QTYA-G，7个变量怎么就QTYD出错了，几个都一样的，55555555
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
waisyn

论坛徽章:
0
12楼 [报告]
发表于 2006-11-25 10:39 |只看该作者
0036.00 D QTYA            S             13  3
0037.00 D QTYB            S             13  3
0038.00 D QTYC            S             13  3
0039.00 D QTYD            S             13  3
0040.00 D QTYE            S             13  3
0041.00 D QTYG            S             13  3
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
qingzhou

论坛徽章:
0
13楼 [报告]
发表于 2006-11-25 10:40 |只看该作者
把PF的DDS和RPGLE代码帖出来看看？
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
waisyn

论坛徽章:
0
14楼 [报告]
发表于 2006-11-25 10:43 |只看该作者
0174.00 C     HITEM         CHAIN     RHGITMA               
0175.00 C     HITEM         SETLL     RSTKF074               
0176.00 C                   DOW        NOT %EOF(STKF074)      
0177.00 C     HITEM         READE     RSTKF074               
0178.00 C                   IF             NOT %EOF(STKF074)      
0179.00 C                   SELECT                           
0180.00 C                   WHEN      MARK1='A'              
0181.00 C                   EVAL        QTYA=QTYA+DIQTY        
0182.00 C                   WHEN      MARK1='B'              
0183.00 C                   EVAL        QTYB=QTYB+DIQTY        
0184.00 C                   WHEN      MARK1='C'              
0185.00 C                   EVAL        QTYC=QTYC+DIQTY        
0186.00 C                   WHEN      MARK1='D'              
0187.00 C                   EVAL        QTYD=QTYD+DIQTY        
0188.00 C                   WHEN      MARK1='I' OR MARK1='J'
0189.00 C                   EVAL        QTYD=QTYD-DIQTY        
0190.00 C                   WHEN      MARK1='E' OR MARK1='F'
0191.00 C                   EVAL        QTYE=QTYE+DIQTY                    
0192.00 C                   WHEN      MARK1='G'                          
0193.00 C                   EVAL        QTYG=QTYG+DIQTY                    
0194.00 C                   ENDSL                                       
0195.00 C                   ENDIF                                       
0196.00 C                   ENDDO                                       
0197.00 C                   EVAL        QTYT@=QTYA-QTYB+QTYC-QTYD+QTYE+QTYG
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
bonbonben

论坛徽章:
0
15楼 [报告]
发表于 2006-11-25 13:04 |只看该作者
楼主是不是你的QTYD在RSTKF074里面的定义不是13 3啊？其实如果你的程序用到PF里面的字段，程序里就不用再定义了。
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
j0452lzq

论坛徽章:
0
16楼 [报告]
发表于 2006-11-25 14:23 |只看该作者

晕,这么简单的的问题

肯定是楼主你重复定义了,表中有同样名字的字段,但是属性不同
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
leason

论坛徽章:
0
17楼 [报告]
发表于 2006-11-26 20:49 |只看该作者
查查DSPF中,定义的变量长度和RPG中定义的变量是不是重复了或者长度不一致?
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
lishw 该用户已被删除
18楼 [报告]
发表于 2006-11-27 13:24 |只看该作者
提示: 作者被禁止或删除 内容自动屏蔽
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
12
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

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

清除 Cookies - ChinaUnix - Archiver - WAP - TOP