Feldinhalt prüfen auf Nummerisch

[Fuerchau]

Wie immer eine Darstellungssache dieses Forums:

%len(%trim(%xlate('0123456789':'          ':'0045958')));

Die Anzahl der Zeichen von/nach muss identisch sein, also 10 Leerzeichen statt einem.
Aber wie Birgitta schon schrieb:

%dec(Var:n:m) kommt mit Leer- und Vorzeichen zurecht.
Bei nicht numerisch gibts eine Exception, folglich:

monitor;
  mydec = %dec(...);
on-error *all;
  // nicht numerisch
endmon;

Das Ganze kann man sich auch in eine Funktion packen.

[Lucky662]

Danke,
wie weit ich damit gehen kann weiß ich noch nicht. Der Kunde arbeitet noch mit I- und O-Karten, auch beim Display! Aber ich werde das mal so einbauen. Auf partielles FreeRPG bin ich ja schon gegangen.

[E305GL]

Danke,
wie weit ich damit gehen kann weiß ich noch nicht. Der Kunde arbeitet noch mit I- und O-Karten, auch beim Display! Aber ich werde das mal so einbauen. Auf partielles FreeRPG bin ich ja schon gegangen.

nach 55 Jahren RPG-Erfahrung hat sich gezeigt, egal RPG400 ILE/Free/VARPG, dass die sicherste und am einfachsten durchschaubare Methode sich bis heute bewährt hat:
- übertrage(MOVEA) dein alpha-Feld in eine Feldgruppe mit Elementlänge 1(ARR)
- definiere eine Ziffernkonstante '0123456789' (ZIFFER)
- definiere eine DO-Schleife mit Index (X)
- prüfe ARR,X SCAN ZIFFER Bezugszahl auf GLEICH
- weiteren Prüfungen und Logiken sind keine Grenzen gesetzt.
- ENDDO

[Fuerchau]

Genau, warum einfach wenn es auch kompliziert geht;-).

[E305GL]

es freut mich diese sachliche Antwort, frei vom Emotionen. Das Risiko einer roten Karte scheint gebannt zu sein. Vielleicht eine zusätzliche Grüne, wäre ein nettes Farbenspiel.

[Fuerchau]

Ich hätte da jetzt eher einen Hinweis auf ChatGPT erwartet...