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
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 |
What are the types of data structure in as400?
How to know message id (errorid) in msgfile when error is occurred on screen ? WRKMSF will display all error id but i want to know error id based on error msg only?
1 Answers IBM, Ignis Technologies, SSR,
Define the purpose of Factor 1 the Operation Code and *IN15 in following code HI LO EQ C *YMD Test(D) yymmddDate 15
What are Control level indicators?
Can level check error occur if we do chgpf?
what is the command used to invoke rlu ?
what would be the effect on the field where reverse image, underline and highlight display attributes are active ?
I am fresher 2009 passedout.can you pls explain me what is AS400 and where it can be used and how about growth in the position as well as salary, whether it is a programming language or else?
I have created a command that display Source file and library. Now i want that when i enter library name and press f4 on Source file, pgm should display all the PF- SRC's in that Library. For F4 option i have used Choice program but since only limited paramters are passed in Choice pgm i am not able to paas library name and further can't call a pgm that will display list of Source files. Below is the Code snippet for CMD type object :- CMD PROMPT('Source Scan for HUB Standard') PARM KWD(SOURCE) TYPE(*CHAR) LEN(1) RSTD(*YES) + VALUES(N A) MIN(1) + CHOICE('N,A') PARM KWD(SRCFILE) TYPE(FILE) RSTD(*NO) + PROMPT('SOURCE FILE') FILE: QUAL TYPE(*NAME) LEN(10) RSTD(*NO) EXPR (*YES) + CHOICE(*PGM) + CHOICEPGM (XXXXXLIB/YYYPGM) QUAL TYPE(*NAME) LEN(10) DFT(*LIBL) + SPCVAL((*LIBL)) EXPR(*YES) PROMPT ('Library') Below is the Choice pgm:- PGM PARM(&PARM1 &PARM2) DCL VAR(&PARM1) TYPE(*CHAR) LEN (21) DCL VAR(&PARM2) TYPE(*CHAR) LEN (2000) IF COND(%SST(&PARM1 1 10) = 'CHOICE ' *AND + %SST(&PARM1 11 10) = 'SRCFILE ' *AND + (%SST(&PARM1 21 1) = 'C' *OR %SST (&PARM1 + 21 1) = 'P')) THEN (DO) /* (%SST(&PARM1 21 1) = 'C' *OR %SST (&PARM1 + */ CHGVAR VAR(&PARM2) VALUE('Name, F4 for List') ENDDO IF COND(%SST(&PARM1 1 10) = 'CHOICE ' *AND + %SST(&PARM1 11 10) = 'SRCFILE ' *AND + %SST(&PARM1 21 1) = 'P') THEN (DO) CHGVAR VAR(&PARM2) VALUE('Name, F4 for List') CALL PGM(GTSQL) PARM ('XXXXLIB') return ENDDO Thanks in Advance for looking into.
how can send report to user through cl program in as400
What is primary file? How many primary file can be declared in a RPG program?
Define a Batch Job?