Interested to Buy Any Domain ? << Click Here >> for more details...
How to write a password mask program in as400?
like the password which i type should be displayed
as '*****' r ###### which the user wishes to dispaly
if u could help me with url r the solution in written code
this will help me
- 21 Answers
- 35684 Views
- Accenture, SNS, I also Faced
- E-Mail Answers
Answers were Sorted based on User's Feedback
Answer / abhishek bajpai
The above answer is wrong. "EDTMSK" keyword can only
protect certain positions of a field (but can't replace a
character entered by the user).
To do this...
Say the actual field is PASSWD which you want to mask.
Create one more field say XYZ of attributes 1A in non
display mode(DSPATR(ND)) with CHECK(ER)keyword. Ur cursor
will remian on this field. Keep the actual field PASSWD as
protected.
Now, what will happen here is, when u enter any character
in XYZ, due to CHECK(ER) keyword the control will go back
to the program and then u can populate field PASSWD with
an '*' inside it and EXFMT the display file again with
blank XYZ and PASSWD with a '*'. Do this inside a loop.
Then in the end you can validate the actual password
entered when the user presses ENTER key. The PASSWD field
here is just to display the number of '*' as the number of
characters entered by the user as a password.
Quite long.
If u haven't understood I can send u the actual code. I
have done it previously for a client.
Abhishek
| Is This Answer Correct ? | 5 Yes | 0 No |
Answer / nirmal khatri
Hello Abhishek.
Please send code to nirmal_ec1984@indiatimes.com
Thank you in advance.
| Is This Answer Correct ? | 1 Yes | 0 No |
Answer / bhaskar
Hello Abhishek.
Please send code to bhaskar582@gmail.com
Thank you in advance.
| Is This Answer Correct ? | 1 Yes | 0 No |
Answer / avinash
Hi Abhishek, Please send me the code to
avinash.8385@gmail.com.
| Is This Answer Correct ? | 0 Yes | 0 No |
Answer / ankur jain
Hello Abhishek,
Please send me the same code at 21ankur@gmail.com
Thanks in Advance..
Ankur
| Is This Answer Correct ? | 0 Yes | 0 No |
Answer / ajeet
Hi Abhishek,
Please send me the same code at ajeet.sri@gmail.com
Thanks,
Ajeet
| Is This Answer Correct ? | 0 Yes | 0 No |
Answer / nirmal
Has anyone got that. Then please send it to
nirmal_ec1984@rediffmail.com. Abhishek do you really have that?
| Is This Answer Correct ? | 0 Yes | 0 No |
Answer / abhishek bajpai
Hi All,
I checked in here after a real long time.
Will fwd the code to all of u tomorrow morning from my
system...!!
| Is This Answer Correct ? | 0 Yes | 0 No |
Answer / nirmal
Abhishek,
I haven't received yet. Please resend it to
nirmalec1984@gmail.com.
Thank you in advance.
| Is This Answer Correct ? | 0 Yes | 0 No |
How do you combine two record formats in RLU ?
what is pointer error in rpg IV?
how to write *pssr ?
Why do you use Keep and Assume Keywords.
What is diff between EVAL & MOVE?
what is lokup opcode?
How to create a data queues?
Where would you use Override Data Base File?
Pgm A is invoked through HTTP. It is in Activtion group QILE. Pgm A calls Pgm B and Pgm C. Pgm B is in activation group TEMPACTGRP. Pgm A ends in error. Pgm A is called again. But it gives an error that TEMPACTGRP still exists and files are present in QTEMP. What is the cause and how will u fix?
define the purpose/use for sflrna?
how can we view the entire objects and its types in a pgm?
OVRDBF FILE(xxx) TOFILE(libl/filename) share(*yes) In which scenario is share(*yes) used? could any one explain with an example?
RPG400 
