Re: Help with password field using DDS

An FYI-only comment about the quoted CLP source; i.e. no intent to evoke any response.

Note that MONMSG CPA0701 is useless. That monitor really should be replaced by a MONMSG CPF9999, which for its not being monitored could lead to a CPA0701, but the CPA0701 as an inquiry which is not capable of being monitored [using MONMSG]. Also note that any CLP which prompts a command should have MONMSG CPF6801 for the prompted request, and then handle either of the F3\F12 as exit from the prompted request which are the conditions notified of by that escape message. Obviously as only a snippet of source, either of the noted escape message conditions may already be handled by a global monitor.

Regards, Chuck

Eric A. Wolf wrote:

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 <<SNIP>>