免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
› 论坛 › 操作系统 › AS400 › 关于QSYGETPH函数出错的问题
最近访问板块 发新帖
查看: 3121 | 回复: 6
打印 上一主题 下一主题

关于QSYGETPH函数出错的问题 [复制链接]

ccpcd

论坛徽章:
0
跳转到指定楼层
1楼 [收藏(0)] [报告]
发表于 2010-06-10 13:58 |只看该作者 |倒序浏览
D                                                                     
D GetProfile      PR                  ExtPgm('QSYGETPH')               
D   UserID                      10A   const                           
D   Password                    10A   const                           
D   Handle                      12A                                    
D   ErrorCode                32766A   options(*varsize: *nopass)      
D                                                                     
D dsEC            DS                                                   
D*                                    Bytes Provided (size of struct)  
D  dsECBytesP             1      4I 0 INZ(256)                        
D*                                    Bytes Available (returned by API)
D  dsECBytesA             5      8I 0 INZ(0)                           
D*                                    Msg ID of Error Msg Returned     
D  dsECMsgID              9     15                                    
D*                                    Reserved                        
D  dsECReserv            16     16                                    
D*                                    Msg Data of Error Msg Returned
D  dsECMsgDta            17    256                                   
D                                                                    
D                SDS                                                
D USER                          10                                   
D                                                                    
D userid          s             10a                                 
D passwd          s             10a                                 
D handle          s             12a                                 
/Free                                                
                                                     
      userid = USER ;                                
      passwd = 'ASD123' ;                           
      reset dsEC ;                                   
                                                     
      callp GetProfile(userid:passwd:handle:dsEC) ;  
      if dsECBytesA > 0 ;                           
         dsply %trim(dsECMsgID) ;                    
      endif ;                                       
                                                     
    *Inlr = *On ;                                    
     Return ;                                       
/End-Free

编译后执行显示错误码为CPF3C3C，意思是第一个参数值非法。这是什么原因，第一个应该怎样赋值？
fxf_china

论坛徽章:
0
2楼 [报告]
发表于 2010-06-10 15:54 |只看该作者
const  把这个去掉试试
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
ccpcd

论坛徽章:
0
3楼 [报告]
发表于 2010-06-10 16:05 |只看该作者
试了，还是一样的。
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
passthru

论坛徽章:
0
4楼 [报告]
发表于 2010-06-10 19:16 |只看该作者
本帖最后由 passthru 于 2010-06-10 19:30 编辑

D GetProfile      PR                  ExtPgm('QSYGETPH')

改为：
D GetProfile      PR                  ExtProc('QSYGETPH')


如果一定要用extPgm，在rpgle H表中添加：
H BNDDIR('QC2LE')
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
ccpcd

论坛徽章:
0
5楼 [报告]
发表于 2010-06-11 09:20 |只看该作者
回复 4# passthru


QSYGETPH是一个外部程序，可以用ExtProc吗？改成Extproc后，编译提示：definition not found for symbol ‘ QSYGETPH’。
在使用extPgm情况下，在文件头部加了
H DFTACTGRP(*NO)
H BNDDIR('QC2LE')
情况还是和原来一样。
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
ccpcd

论坛徽章:
0
6楼 [报告]
发表于 2010-06-11 14:19 |只看该作者
谢谢各位关注，问题已经解决。当userid取值为*current时，为上述情况。当不为*current时，应增加二个参数，即为以下描述：
D GetProfile      PR                  ExtPgm('QSYGETPH')               
D   UserID                      10A   const                           
D   Password                    10A   const                           
D   Handle                      12A                                    
D   ErrorCode                32766A   options(*varsize: *nopass)      
D   passwdLen                    10I 0 options(*nopass)
D   PasswdCCSID                10I 0 options(*nopass)
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
passthru

论坛徽章:
0
7楼 [报告]
发表于 2010-06-11 16:57 |只看该作者
本帖最后由 passthru 于 2010-06-11 17:07 编辑

我调整参数，测试通过：
H DFTACTGRP(*NO)                                                      
H BNDDIR('QC2LE')                                                      
*                                                                     
D GetProfile      PR                  ExtPgm('QSYGETPH')               
D   UserID                      10A   const                           
D   passwd                      10a   const                           
D   Handle                      12A                                    
D   ErrorCode                  256A                                    
d PassWordLength           10i 0                                 
D CCSID                            10i 0                                 
*                                                                     
D dsEC            DS                                                   
D*                                    Bytes Provided (size of struct)  
D  dsECBytesP             1      4I 0 INZ(256)                        
D*                                    Bytes Available (returned by API)
D  dsECBytesA             5      8I 0 INZ(0)                           
D*                                    Msg ID of Error Msg Returned  
D  dsECMsgID              9     15                                 
D*                                    Reserved                     
D  dsECReserv            16     16                                 
D*                                    Msg Data of Error Msg Returned
D  dsECMsgDta            17    256                                 
*                                                                  
D userid          s             10a   inz('PGMER')                  
D*passwd          s             10a                                 
d passwd          s             10a   inz('PGMER')                  
D handle          s             12a   inz                           
DPassWordLength   S             10i 0 inz(10)                       
DCCSID            S             10i 0 inz(37)                       
*                                                                  
/Free                                                              
     reset dsEC ;                    
     callp GetProfile(userid:        
                      passwd:        
                      handle:        
                      dsEC:         
                      PassWordLength:
                      CCSID);        
     if dsECBytesA > 0 ;            
        dsply %trim(dsECMsgID) ;     
     endif ;                        
                                    
       *inlr = *on;                  
       return;                       
/end-free
实战分享：从技术角度谈机器学习入门| 【大话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