Re: Help with password field using DDS

[CRPence <CRPbottle@xxxxxxxxx>]

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