Validates an as400 username and password from Bryan Yates

this api validates an as400 username and password:
     DWkUser           S             10A
     DWKPassword       S             10A
     DProfileHandle    S             12A
     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
	.
	.
	.
     C*                                                                                             
     C                   Call      'QSYGETPH'                                                       
     C                   Parm                    WKUser                                             
     C                   Parm                    WKPassword                                         
     C                   Parm                    ProfileHandle                                      
     C                   Parm                    QUSEC                                              
     C*                                                                                             
     C                   If        QUSBAVL > 0                                  
     C                   Eval      Error = *ON                                  
     C                   Endif

[report a broken link by clicking here]