Alpha-Feld auf nummerisch prüfen

[malzusrex]

hier Birgittas COde in nicht Free-Format

D Alpha           S              5A   inz('123A5')          
D Zahlen          C                   const('1234567890')   
                                                            
c                   If        %Check(Zahlen: Alpha) = *Zeros
c     'Nur Zahlen'  Dsply                                   
c                   Else                                    
c     'Fehler'      Dsply                                   
c                   EndIf                                   
c                                                           
c                   Eval      *InLr = *On 

gruß ronald