0
how do you write $12.00 in a numeric character?
Any character except numbers. So letters, punctuation symbols etc. are non-numeric.
IF WS-AGE NUMERIC DISPLAY "NUMERIC" ELSE DISPLAY "NOT NUMERIC' END-IF