免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
› 论坛 › 操作系统 › AS400 › 求帮忙错误提示MCH3601
最近访问板块 发新帖
查看: 2028 | 回复: 6
打印 上一主题 下一主题

求帮忙错误提示MCH3601 [复制链接]

lk_1234567890

论坛徽章:
0
跳转到指定楼层
1楼 [收藏(0)] [报告]
发表于 2012-09-21 09:43 |只看该作者 |倒序浏览
D*********************************************
D                                             
DYEAR             S              4  0         
DFLAG             S              1A           
DX                S              3  0         
D*********************************************
D*                                            
C*********************************************
C*    MAIN LINE                              
C*********************************************
C                                             
C                   EXSR      SR100           
C                   EXSR      SR200           
C                   EXSR      SR900                     
C                                                      
C*********************************************         
C*                                                      
C*********************************************         
C*    SR200etermine leap Year                        
C*           LOGIC :                                    
C*                  If Year/400....0           leap Year
C*                  Else:                        
C*                     If Year/100....0    not leap Year  
C*                     Else If Year/4....0     leap Year  
C*                          If Year/4....X not leap Year  
C*********************************************            
C                                                         
C     SR200         BEGSR                                 
C     YEAR          DIV       400           X            
C                   MVR                     X            
C     X             IFEQ      0                           
C*                     Else If Year/4....0     leap Year
C*                          If Year/4....X not leap Year
C*********************************************         
C                                                      
C     SR200         BEGSR                              
C     YEAR          DIV       400           X           
C                   MVR                     X           
C     X             IFEQ      0                        
C                   MOVE      'Y'           FLAG
C                   ELSE                        
C     YEAR          DIV       100           X   
C                   MVR                     X   
C     X             IFEQ      0                  
C                   MOVE      'N'           FLAG
C                   ELSE                        
C     YEAR          DIV       4             X   
C                   MVR                     X         
C     X             IFEQ      0                  
C                   MOVE      'Y'           FLAG  
C                   ELSE                          
C                   MOVE      'N'           FLAG  
C                   ENDIF                        
C                   ENDIF                        
C                   ENDIF                        
C                   ENDSR                        
C*********************************************   
C*                                                                  
C*********************************************                       
C*    SR900:EXIT                                                     
C*********************************************                       
C     SR900         BEGSR                                            
C                                                                    
C                   SETON                                        LR  
C                   RETURN                                          
C                                                                                       
C                   ENDSR                     
C*********************************************
C*                                            
C*********************************************
C*    SR100:INITIALIZE SR                     
C*********************************************
C     SR100         BEGSR                     
C                                             
C     *ENTRY        PLIST                                
C                   PARM                    YEAR   
C*                  PARM                    FLAG   
C                                                  
C                   ENDSR                              
为什么一给FLAG赋值就报错误信息MCH3601         
lk_1234567890

论坛徽章:
0
2楼 [报告]
发表于 2012-09-21 09:45 |只看该作者
C*                  PARM                    FLAG   
这个已经被我注释掉了 但是不注释就会报错 MCH3601 我CALL的时候用的参数X'02000F'
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
first_come

论坛徽章:
0
3楼 [报告]
发表于 2012-09-21 09:47 |只看该作者
本帖最后由 first_come 于 2012-09-21 09:50 编辑

回复 1# lk_1234567890
这个应该是给YEAR赋值出问题了,MCH3601一般都是数字的问题。YEAR这里是数字。而且这种问题最好是把year先设置成字符型，程序中再转数字型。

I.E.

*entra     plist
              parm             year     4
              parm             flag      1

              move     year           Syear       4  0

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

论坛徽章:
0
4楼 [报告]
发表于 2012-09-21 09:51 |只看该作者
回复 3# first_come


    year就是数字啊 要做运算的 然后用余数判断是否是闰年然后给FLAG赋值 回头我CALL这个模块的时候要用的得到的FLAG
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
lk_1234567890

论坛徽章:
0
5楼 [报告]
发表于 2012-09-21 09:52 |只看该作者
回复 3# first_come


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

论坛徽章:
0
6楼 [报告]
发表于 2012-09-21 09:56 |只看该作者
回复 4# lk_1234567890
我的意思是你把传参改成字符型先，然后传个字符给year， 比如 call yourpgm  parm ('2000' ' ').
你程序CALL 时出错时因为给YEAR传参时，类型不对。你定义的是数字，传的是16进制。


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

论坛徽章:
0
7楼 [报告]
发表于 2012-09-21 09:56 |只看该作者
回复 3# first_come


    嗯 这回就好用了
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

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

清除 Cookies - ChinaUnix - Archiver - WAP - TOP