Chinaunix首页 | 论坛 | 博客
  • 博客访问: 1271439
  • 博文数量: 287
  • 博客积分: 11000
  • 博客等级: 上将
  • 技术积分: 3833
  • 用 户 组: 普通用户
  • 注册时间: 2007-08-16 08:43
文章分类
文章存档

2013年(15)

2012年(17)

2011年(17)

2010年(135)

2009年(85)

2008年(18)

分类: 系统运维

2010-06-11 17:23:49

QSYGETPH - validate a userid & password (reple)
 
测试通过:
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
阅读(977) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~