Hello Good afternoon,
This API validates if new password matches the security rules.
And returns an error message (if there is one) in an DS_Error
User enters an invalid password. Then the API returns the message Id
"CPF4AA7" in DS_Error.ErrorId
I know how to get the message text using RTVMSG.
But how can i get the *Message DATA Field value for &1 *part of the message
For example CPF4AA7 has this Message Text and value of &1 could be 16.
And value of &2 could be *MIXCASE1.
Message . . . . : Password value not valid. Reason code &1.
Cause . . . . . : The specified password value does not conform to the
password composition rule &2 specified by the QPWDRULES system value.
reason code indicates the problem that was detected with the password
Here is my text version of RPG program :
d changePW PR EXTpgm('QSYCHGPW')
d @userid 10
d curpw 10
d newpw 10
d error 15
d ds_Error Ds 15
d BytesProvided 10I 0 inz(%size(ds_Error))
d BytesAvail 10I 0
d ErrorId 7
c callp changePW( userid :
c curpswd :
c newpswd :
c ds_error )
This is the RPG programming on the IBM i (AS/400 and iSeries) (RPG400-L)
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
Please contact support@xxxxxxxxxxxx for any subscription related
Help support midrange.com by shopping at amazon.com with our affiliate