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
阅读(1025) | 评论(0) | 转发(0) |