Esatzzeichen bei Kennworteingabe

[K_Tippi]

Hallo, ist es möglich bei einer Kennworteingabe -DDS Bildschirm grün- ein "Ersatzzeichen" anzuzeigen damit der Benutzer sieht wo er steht?
Gibt es dazu ein DDS Attribut?
Danke

[camouflage]

Mir wäre das neu, bzw. nicht bekannt.
Allerdings zeigt ja der Cursor im Feld wo man gerade steht.
Ich hab mir diese Frage jedoch auch schon gestellt - aber ist m.E. ein Luxusproblem.
Uebrings, 7.5. zeigt nicht mehr an, wo beim Anmelden ein Felder aufgetreten ist, nur eine allgemeine Anmeldefehlermeldung.

[Fuerchau]

Außer dem üblichen DSPATR(ND) gibts da nichts. Du kannst allerdings mindestens das DSPATR(UL) anzeigen, damit man weiß wo man steht, man muss dann halt abzählen.
Interessant wäre da noch, ob der ND-Wert mit strg+C rauskopiert werden kann.

[K_Tippi]

Danke, natürlich ist das ein Luxusproblem, aber die Benutzer sind halt wirklich nur "Benutzer" ohne jede EDV Kenntnisse. Und natürlich von vielen anderen Programmen gewohnt, dass sie sehen wieviel sie eingegeben haben. Wir stellen jetzt auf lange Passwörter mit den Windoofs Richtlinien um.
aber erstmal Danke.
Klaus

[Fuerchau]

Da hätte ich einen Tipp:
Z.B. Profound als Web-Anwendung mit der integrierten Web-Anmeldung. Zu sehen bekommt man dann den Greenscreen, an dem man sich nicht mehr anmelden muss.
Da gibts bestimmt noch mehr Anbieter.

[holgerscherer]

Uebrings, 7.5. zeigt nicht mehr an, wo beim Anmelden ein Felder aufgetreten ist, nur eine allgemeine Anmeldefehlermeldung.

das ist pure Absicht und ein Sicherheitsfeature, damit man nicht ermitteln kann, daß zumindest der Username richtig ist.
Zum Thema Ersatzzeichen: wäre ein Idea bei IBM wert, das der Client bei Passwortfeldern ein ? anzeigt.

[Fuerchau]

Dazu müsste ja der 5250-Datenstrom und die DDS erweitert werden, was wohl nicht mehr gemacht werden wird.

[holgerscherer]

Dazu müsste ja der 5250-Datenstrom und die DDS erweitert werden, was wohl nicht mehr gemacht werden wird.

gewiss nicht, aber bei PROTECT(ND) könnte man das darstellen.

[Fuerchau]

Protect hat nun mal keine Argumente und kann ebenso mit DSPATR(PR) angewendet werden.
https://www.ibm.com/docs/en/i/7.4?to...-display-files
=> Eingabefelder werden zu Ausgabefeldern.

ND steht für DSPATR(ND) und kann auch für Ausgabefelder verwendet werden.
Wenn da dann stattdessen "*****" angezeigt würde, sähe das unschön aus.

Also ohne 5250-Änderung incl. aller bekannten Emulationsanpassungen sehe ich da nichts.

Es gab mal ein Paket dass sich Office/400 (o.ä.) nannte, mit dem der Modus des Bildschirms irgendwie in Einzelzeichen Verarbeitung umgeschaltet wurde, da bei jedem Tipvorgang rund um den Bildschirm verschiedene Anzeigen verändert wurden. Das kenne ich nur von den alten VT100-Terminals, die nichts anderes als TTY kannten, Zeichen senden und Echo ausgeben.

Dies ist allerdings nicht dokumentiert, wie das gemacht wird.

[RobertMack]

ChatGPT weiß mehr:

"can IBM i (AS400) send asterisks instead of Blanks with DSPATR(ND)?"

Yes, it is possible for IBM i (AS400) to send asterisks instead of blanks with DSPATR(ND).

DSPATR(ND) is a display attribute that suppresses display of the field value. By default, it suppresses display of the field value with blanks. However, you can change the default behavior and suppress display of the field value with asterisks instead of blanks.

To do this, you need to set the system value QDSPATR to *ASTLVL. This will cause any field with DSPATR(ND) to be displayed with asterisks instead of blanks. You can set this system value by using the CHGSYSVAL command:

CHGSYSVAL SYSVAL(QDSPATR) VALUE(*ASTLVL)

Note that changing the QDSPATR system value will affect the display of all fields with DSPATR(ND) on your system, not just a specific field. If you want to suppress display of a specific field with asterisks instead of blanks, you can use the DSPATR attribute in combination with a user-defined format or an edit code.

[RobertMack]

Musste einfach nachfragen...

"What would this combination of DSPATR with a user-defined format or edit code look like? Can I have an example?"

Yes, you can use the DSPATR attribute in combination with a user-defined format or an edit code to display a field value with asterisks instead of blanks. Here's an example:

Suppose you have a display file that contains a field named FLD1. You want to display the value of FLD1 with asterisks instead of blanks when using DSPATR(ND).

Using a User-Defined Format:

You can define a user-defined format that converts all characters to asterisks. Here's an example:

A          R MYSCREEN
A                                  DSPATR(ND)
A            FLD1         10A  DSPATR(ND)  DSPATR(*UCASE)  FORMAT(FLD1AST)
A                                  ALARM
A                                  OVERLAY
A                                  ERASE
A                                  CLEAR
A                                  EXFMT MYSCREEN

A          FLD1AST      UF   A
A                                      OVRPRTF      OVRFLD(FLD1AST *PRTDTA)    
A N25                                  EVAL         FLD1AST = %SST(FLD1:1:10)    
A N30                                  EVAL         FLD1AST = %TRNFMT(*BLANK:'*':FLD1AST)    
A N35                                  ENDIF

In this example, the user-defined format FLD1AST is defined with the UF keyword. It takes the value of the FLD1 field and converts all characters to asterisks. The EVAL operation at line N30 uses the %TRNFMT built-in function to replace all blanks in the FLD1AST value with asterisks.

When you specify DSPATR(ND) for the FLD1 field, the value of the field will be suppressed and replaced with the value generated by the user-defined format, which is the FLD1AST field with asterisks.

Using an Edit Code:

You can define an edit code that replaces all blanks with asterisks. Here's an example:

A          R MYSCREEN
A                                  DSPATR(ND)
A            FLD1         10A  DSPATR(ND)  DSPATR(*UCASE)  EDTWRD('*' X)
A                                  ALARM
A                                  OVERLAY
A                                  ERASE
A                                  CLEAR
A                                  EXFMT MYSCREEN

In this example, the EDTWRD keyword is used to define an edit code that replaces all blanks with asterisks. When you specify DSPATR(ND) for the FLD1 field and EDTWRD('*' X) for the EDTWRD keyword, the value of the field will be suppressed and replaced with asterisks.

[Fuerchau]

Man lernt halt nie aus, EDTWRD für Nicht-Numerisch, darauf muss man mal kommen.

Allerdings ist das ja revers zu sehen. Ich sehe wieviele Zeichen das Feld groß ist und wieviele Zeichen ich noch habe. Jetzt muss man halt wissen, wie lang das Feld ist um zu errechnen, wieviel ich schon eingegeben habe.
Bei Passwordlevel 2 werden dann erst mal 255 Sternchen angezeigt. Ob das Sinn macht, sei dahingestellt.

Jetzt müsste es noch den umgekehrten Weg geben.
Allerdings wäre mal ein Link zur Doku interessant. Zu finden ist da im DDS-Handbuch und online nichts, bzw:

The EDTWRD keyword is valid for numeric only fields (Y specified in position 35).