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
- 36250 Views
- Accenture, SNS, I also Faced
- E-Mail Answers
Answer Posted / abhishek bajpai
Hi All,
Quite hectic to snd t code to evry1 so copying it below.You
can add to the below code to verify the pwd etc. based on
ur requirement.
DSPF:
A DSPSIZ(24 80 *DS3)
A R REC1
A FLD1 10A O 7 3
A FLD001 1 B 5 3CHECK(ER) DSPATR(ND)
PGM:
fTest15 cf e workstn
/free
dow %Len(%Trim(fld1)) < 10;
Exfmt rec1;
If fld001 <> *Blanks;
fld1 = %Trim(fld1) + '*';
endif;
enddo;
*Inlr = *on;
/end-free
Thnx
| Is This Answer Correct ? | 0 Yes | 0 No |
Post New Answer View All Answers
what is the maximum number of record formats in dspf?
can a join logical file be updated?
http default port 80 is used by some other production http service. How can I create an http instance on another port to run cgidev2 and my future cgi developments?
how to define to define a hidden filed in dspf ?
is their a difference in cobol400 for the release 5.2 and 6.1 at the as400.
what is the necessary keyword for non-join logical file?
WHAT is STORED PROCEDURE CONCEPT IN AS400 WITH EXAMPLE?
Using %check we are checking monika in mona what is output? What is %SCAN?
what would be the effect on the field where reverse image, underline and highlight display attributes were active?
what is the maximum number of parameters allowed in rpg?
How to reverse the string in rpg
what is the difference between sflclr and sflinz?
how do you read data area in an rpg program?
what key word is used when screen is re-display?
What is RETURN CURSER LOCATION in subfile?
