Alpha-Feld auf nummerisch prüfen

[B.Hauser]

Hallo,

eine solche Prüfung macht man am einfachsten mit der Built-in-Funktion %CHECK oder dem OpCode CHECK.
Das Ergebnis ist jeweils das erste Zeichen, das nicht in dem angegebenen String ist. Ist also das Ergebnis > Null, sind ungültige Zeichen in dem ursprünglichen String enthalten.

D Alpha           S              5A   inz('123A5')               
D Zahlen          C                   const('1234567890') 
 *----------------------------------------------------
 /Free                                        
    If %Check(Zahlen: Alpha) = *Zeros;        
       Dsply 'Nur Zahlen';                    
    Else;                                     
       Dsply 'Ungültige Zeichen';             
    EndIf;
   *InLR = *ON;
 /End-Free 

Beim TESTN werden die Buchstaben A-R als numerische Werte interpretiert, da deren Hex-Werte im 1. Halbbyte D, C oder F (Vorzeichen) und im 2.Halbbyte eine Zahl zwischen 0 und 9 haben.

Birgitta