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

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


Please Help Members By Posting Answers For Below Questions

what are different record spacing keywords in rlu ?

1209


What Is The Difference Between Goto & Exsr?

1175


what is the difference between normal upddta to pf and updating using dfu program?

769


which single rpg opcode performs both setll and reade?

1103


writing an sql statement from selecting records from two files using single statement and nested select statement.

643






what is procedure prototype and procedure interface.

621


what does opcode post do ?

1097


what is the use of data structures?

637


a multiple format logical file is also known as?

596


what is the function of rlu ?

986


what does check opcode do ?

1069


which are the relational operators in rpg?

676


How Many Specs Are There In Rpg & Which Are They?

686


is it possible, in the same cgi, to run more than one gethtml or gethtmlifs?

593


Difference between NOPASS & OMIT?

1195