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
- 35414 Views
- Accenture, SNS, I also Faced
- E-Mail Answers
Answer Posted / 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 |
Post New Answer View All Answers
is their a difference in cobol400 for the release 5.2 and 6.1 at the as400.
during input operation which indicator position is seton if there is a record lock?
which are the member types which seu supports?
WHICH REPLY CODE IS USED BT sftp ? ... (e.g.226 is used by FTP IF FILE IS TRANSFERED)
how can you execute a command from within an rpg program without calling a clp program?
what is the purpose of dynslt keyword?
under given circumstances, my cgi should link to another site. How to implement this?
can you explain the difference between spacea,spaceb,skipa and skipb. I'm new to learning about as400 and printer files. can any one give me an example using source code showing the difference that occurs between using these 4 keywords. A-Physical file PF004 source UNIQUE R RR STUNAM 10 ROLLNU 5 0 MARKS 3 0 SEX 6 K ROLLNU 4 records present in PF004 are STUNAM ROLLNU MARKS SEX KAVYA 12,344 55 FEMALE MADHAVAN 14,579 60 MALE RAMYA 14,785 70 FEMALE KRISHNAN 14,988 72 MALE B-Printer File PRINT1 source A R HEADER A 10 3'STUNAM' A 10 20'ROLLNU' A 10 30'MARKS' A 10 40'SEX' A R DETAIL A SPACEB(1) A STUNAM 10 3 A ROLLNU 5 0 20 A MARKS 3 0 30 A SEX 6 40 A R FOOTER A SPACEB(1) A 20'END OF REPORT' C-RPG/400 Program PRTTPG source FPF004 I F E DISK FPRINT1 O E PRINTER C WRITE HEADER C READ PF004 60 C *IN60 DOWEQ *OFF C WRITE DETAIL C READ PF004 60 C ENDDO C WRITE FOOTER C SETON LR D-spooled file result set Display Spooled File File . . . . . : PRINT1 Page/Line 1/10 Control . . . . . Columns 1 - 130 Find . . . . . . *...+....1....+....2....+....3....+....4....+....5....+.... 6....+....7....+....8....+....9....+....0....+....1....+.... 2....+....3 STUNAM ROLLNU MARKS SEX KAVYA 12344 055 FEMALE MADHAVAN 14579 060 MALE RAMYA 14785 070 FEMALE KRISHNAN 14988 072 MALE END OF REPORT Bottom F3=Exit F12=Cancel F19=Left F20=Right F24=More keys I have changed from SPACEB to SPACEA now in my printer file source E-Changed PRINT1 Source A R HEADER A 10 3'STUNAM' A 10 20'ROLLNU' A 10 30'MARKS' A 10 40'SEX' A R DETAIL A SPACEA(1) A STUNAM 10 3 A ROLLNU 5 0 20 A MARKS 3 0 30 A SEX 6 40 A R FOOTER A SPACEA(1) A 20'END OF REPORT' F-Spooled file Result Set after keyword change Display Spooled File File . . . . . : PRINT1 Page/Line 1/10 Control . . . . . Columns 1 - 130 Find . . . . . . *...+....1....+....2....+....3....+....4....+....5....+.... 6....+....7....+....8....+....9....+....0....+....1....+.... 2....+....3 KAVYAM 12344U 055KS FEMALE MADHAVAN 14579 060 MALE RAMYA 14785 070 FEMALE KRISHNAN 14988 072 MALE END OF REPORT Bottom F3=Exit F12=Cancel F19=Left F20=Right F24=More keys Overprinting not displayed.
hi guys i am new for sqlrpgle, please suggest me good websites and theory and coding. plz plz its very urgent.
how to declare a constant variable in the freeformat?
what is a query can be run in which mode?
what would be the effect on the field where reverse image, underline and highlight display attributes were active?
what is the purpose of ovrdta and ovrata keywords ?
what key word is used when screen is re-display?
what are different record spacing keywords in rlu ?
