Code:
*this api validates an as400 username and password: DWkUser S 10A inz('FLANARY') DWKPassword S 10A inz('HOGWASH') DProfileHandle S 12A DPassWordLength S 10i 0 inz(10) DCCSID S 10i 0 inz(37) D* DQUSEC DS D* Qus EC D QUSBPRV 1 4B 0 D* Bytes Provided D QUSBAVL 5 8B 0 D* Bytes Available D QUSEI 9 15 D* Exception Id D QUSERVED 16 16 D* Reserved D ERRC0100 17 274 Varying d error S n C* C Call 'QSYGETPH' C Parm WKUser C Parm WKPassword C Parm ProfileHandle C Parm QUSEC C Parm PasswordLength C Parm CCSID C* C If QUSBAVL > 0 C Eval Error = *ON C Endif C* c eval *inlr = *on
Comment