Verhindern das weniger als 8 Stellen in einer Displayfile eingegeben werden

[hel400]

..
Ich hatte zuerst an %len gedacht, aber das gibt mir anscheinend nur die Länge der deklarierten Variable zurück, aber nicht die Länge des Inhaltes.
...

Die EINGEGEBENEN Zeichen mit "%LEN" ermitteln geht so:
ANZAHL =%LEN(%TRIM(Feldname))

Aber nur bei Alpha.
Wenn numerisch, dann hat DKSPROFI in seiner ersten Antwort ja schon beantwortet
(if... < 10000000)

[Fuerchau]

Egal ob Numerisch oder Alpha:
%len(%trim(%char(Feld)))
Bei Zeichenfeldern gibts keine Wandlung, bei numerischen Feldern gibts Edit ohne Vornull.
Aber eine typgerechte Prüfung ist dem immer vorzuziehen.

[Pikachu]

D                 DS
DNUMMER                          8S 0 INZ(12345678)
DSTELLE1                         1A   OVERLAY(NUMMER)
D
C     STELLE1       IFNE      '0'
C                   ENDIF 

[Dominic K.]

Ah ok

Mit Trim wird also der tatsächliche Inhalt gezählt. Hatte das anders verstanden.
Hätte ich vllt. erst einmal praktisch testen sollen >.<

Danke für die Hilfe und allen einen guten Rutsch ins neue Jahr!

[Pikachu]

Mit %TRIM werden die Enden gestutzt.

[Fuerchau]

Zu unterscheiden sind die Funktionen
%trim(): Blanks am Anfang und Ende entfernen
%triml(): Blanks am Anfang
%trimr(): Blanks am Ende
Das Ergebnis ist ein Varying-Feld, dessen Länge mit %len() abgefragt werden kann.

Übrigens %checkr() liefert die 1. Position eines ungültigen Zeichens aus einer Liste.
%checkr(' ':Feld) liefert also die Position des letzten Zeichens vor Blank und somit ebenso die Länge des Inhalts ohne Leerzeichen.

[Dominic K.]

@Pikachu : Das weis ich :-) dachte nur nicht das dies mit %len koppelbar ist und dann der tatsächliche inhalt zurückgegeben wird. Habe die Beispiele in der Reference zu %len nicht korrekt gelesen.

[GJV23]

Du könntest auch das DDS Field-Keyword RANGE verwenden:

00080A FIELD 8 0B 2 2RANGE(10000000 99999999)

Einen Guten Rutsch ins neue Jahr
GJV

[Dominic K.]

Oha!
Das ist perfekt! Kein neuer Code ins Programm, einfach direkt im DDS abfangen.

Vielen Dank dafür : D