RE: Authenticate As400 user id password

I just had to write one. Here's a copy of the source:

*IS911R4 - THIS API VALIDATES AN AS400 USERNAME AND PASSWORD:
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
C *ENTRY PLIST
C PARM P0RTN 7
C PARM WKUSER 10
C PARM WKPASSWORD 10
C
C CLEAR P0RTN
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 P0RTN = 'BAD'
C ENDIF
C
C CALL 'IS911R5'
C PARM PROFILEHANDLE
C
C EVAL *INLR = *ON

Just pass the program the user id and password fields and if the return code comes back as BAD, the profile or password is invalid. The source to IS911R5 follows. It's use to release the Profile Handle. I'm not sure why you have to do this, but IBM recommends you do.

*IS911R5 - THIS API VALIDATES AN AS400 USERNAME AND PASSWORD:
DPROFILEHANDLE S 12A

C**********************************************************************
C
C *ENTRY PLIST
C PARM PROFILEHANDLE
C
C CALL 'QSYRLSPH'
C PARM PROFILEHANDLE
C
C EVAL *INLR = *ON

That's it.