RE: Help with password field using DDS

Are you trying to write your own program or are you using a CL wrapped
around the CHKPWD command?

This is a portion of what I used for something very similar. I only needed
one user to confirm the check processing. You would have to change the
process for your needs:

PGM PARM(&PASSED)
...
CHKPWD ??PASSWORD(*N)
MONMSG MSGID(CPF2364) EXEC(DO)
CHGVAR VAR(&ERRCNT) VALUE(&ERRCNT + 1)
GOTO CMDLBL(GETOUT)
ENDDO

MONMSG MSGID(CPA0701) EXEC(DO)
CHGVAR VAR(&PASSED) VALUE('*NO ')
GOTO CMDLBL(ENDCLP)
ENDDO

MONMSG MSGID(CPF2363) EXEC(DO)
CHGVAR VAR(&ERRCNT) VALUE(&ERRCNT + 1)
GOTO CMDLBL(AGAIN)
ENDDO

MONMSG MSGID(CPF2362) EXEC(DO)
CHGVAR VAR(&ERRCNT) VALUE(&ERRCNT + 1)
GOTO CMDLBL(AGAIN)
ENDDO

GETOUT:
IF (&ERRCNT = 3) THEN(DO)
CHGVAR VAR(&PASSED) VALUE('*NO ')
ENDDO

ENDPGM


Hope this helps...
Eric

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of John Allen
Sent: Thursday, April 01, 2010 2:48 PM
To: RPG400-L@xxxxxxxxxxxx
Subject: Help with password field using DDS

If have looked and looked for an answer to this and I know someone else must
already have gone down this road.

So I shall post my question.



I need a screen to prompt a user for up to 5 passwords (several different
people may have to enter their passwords before the program can continue)

(it's for printing checks with signatures)



I do not want the passwords to display and I need to validate the fields and
display message if one or more of the password are not valid.



it appears there is no way to define the field as a password field so they
do not display (or better yet display *********)

If I make the field non-display so the passwords do not display then the
reverse image does not work (actually works but the non-display does not
display the reverse image)



I would like to know how others have handled fields where the user must
enter a password.



Thanks



John