Re: Help with password field using DDS

Here's the Example I was talking about... It's a bit crud, but it shows what
I mean.

Thanks
George


On Thu, Apr 1, 2010 at 4:56 PM, John Allen <jallen@xxxxxxxxxxx> wrote:

I hadn't thought of this idea, I think I will give it a try (or I may put a
message to the right "Invalid Password" rather then the field to the left
of
it

Thanks everyone


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Tom Armbruster
Sent: Thursday, April 01, 2010 7:19 PM
To: RPG programming on the IBM i / System i
Subject: RE: Help with password field using DDS

John,

If you have a label for each password entry line, rather than trying to
manipulate the input field, you could use indicators to change the
attributes of the labels.

For example:

A 5 2'User 1 ID'
A USERID1 10A B 5 25DSPATR(ND)
A 6 2'User 1 Password'
A 90 COLOR(RED)
A PASSWD1 10A I 6 25DSPATR(ND)
A 90 DSPATR(PC)
A 7 2'User 2 ID'
A USERID2 10A B 7 25DSPATR(ND)
A 8 2'User 2 Password'
A 91 COLOR(RED)
A PASSWD2 10A I 8 25DSPATR(ND)
A 91 DSPATR(PC)

Etc...

Tom Armbruster

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of John Allen
Sent: Thursday, April 01, 2010 2:48 PM
To: RPG400-L@xxxxxxxxxxxx
Subject: Help with password field using DDS

If have looked and looked for an answer to this and I know someone else
must
already have gone down this road.

So I shall post my question.



I need a screen to prompt a user for up to 5 passwords (several
different
people may have to enter their passwords before the program can
continue)

(it's for printing checks with signatures)



I do not want the passwords to display and I need to validate the fields
and
display message if one or more of the password are not valid.



it appears there is no way to define the field as a password field so
they
do not display (or better yet display *********)

If I make the field non-display so the passwords do not display then the
reverse image does not work (actually works but the non-display does not
display the reverse image)



I would like to know how others have handled fields where the user must
enter a password.



Thanks



John







--
This is the RPG programming on the IBM i / System i (RPG400-L) mailing
list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.

--
This is the RPG programming on the IBM i / System i (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.

--
This is the RPG programming on the IBM i / System i (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.

RPG

FPWDDSP CF E WorkStn

D Password s 10A

/Free

DoW Not *In03;

ExFmt PssWrd;
ErrorMsg = *Blank;
*In85 = *Off;

// Put Fancy Logic to Capture Password
If Not (TmpFld1 = *Blank );
Password = %Trim(Password) + TmpFld1;
PassWrd = %Trim(PassWrd) + '*';
EndIf;

// If Enter Pressed, Validate
// If Enter Pressed, Validate
If *In06 And
Not ( %Trim(Password) = 'VALID1' );
*In85 = *On;
ErrorMsg = 'Invalid Password Entered. Please Try Again.';
ElseIf *In06;
ErrorMsg = 'Password Successfully Validated!';
EndIf;
EndDo;

*InLr = *On;

/End-Free


Display File


A*%%TS SD 20100402 020626 GAMAYA REL-V5R3M0 5722-WDS
A*%%EC
A DSPSIZ(24 80 *DS3)
A CF03(03)
A CF06(06)
A R PSSWRD
A*%%TS SD 20100402 020626 GAMAYA REL-V5R3M0 5722-WDS
A 5 12'Please Enter Your Password:'
A COLOR(WHT)
A PASSWRD 10A O 5 42
A 85 COLOR(RED)
A TMPFLD1 1A I 5 53DSPATR(ND)
A CHECK(ER)
A 9 12'Press F6 to Validate'
A COLOR(BLU)
A 10 12'Press F3 to Exit Example'
A COLOR(BLU)
A 9 48'Valid Password:'
A COLOR(WHT)
A COLOR(WHT)
A 9 66'VALID1'
A ERRORMSG 65A O 6 12COLOR(RED)