Using the %Check bif to test for non-numeric in an alpha field.

D Digits          C                   Const('0123456789')
D xxx             S              3  0                    
D GlSbl           S              5A

/Free
    xxx = %Check(digits:glsbl);
    
     // If glsbl = '12345' then xxx will equal 0.
     // If glsbl = '12 45' then xxx will equal 3.

/End-Free 

[report a broken link by clicking here]