Verhindern das weniger als 8 Stellen in einer Displayfile eingegeben werden

[DKSPROFI]

Moin,

quick and dirty:

if 8 stellige zahl < 10000000
fehler.
else
mach was
endif

mfg

DKSPROFI

[DKSPROFI]

Moin,

Du kannst aber auch so lösen, für den Fall das Dein Feld Alpha ist.

For $i = 1 To %Len(%Trim(DeinFeld)) ;
If %Subst ( DeinFeld : $i : 1 ) = DeinZeichen' ;
Fehler ;
EndIf ;
EndFor ;

mfg

DKSPROFI

[ExAzubi]

Wenn es noch Spaltengebunden sein darf/soll ist TESTN ein guter befehl:

IF                %LEN(%TRIM(FELD))<>8
*FEHLER
ELSE
TESTN          FELD            979899
   *IN97 = *ON   // Ist rein nummerich
   *IN98 = *ON   //Nummerisch und Blanks
   *IN99 = *ON   // Ist Blanks
   Alle *OFF = Ungültige Nummerische Werte
ENDIF

[Pikachu]

Wie ist das Feld in der Bildschirmdatei definiert? Bei welcher Zahl läuft es auf MSGW?