you could set the data type on the field to D this means only digts 0-9 can be entered
Michael Dratwa wrote:
Have the numeric field redefined as alphanumeric (or move the field to a test alphanumeric fld) and use the test for numeric's.
05 ws-data-fld1 pic 9(5).
05 ws-data-fld1x redefines ws-data-fld1 pic x(5).
if ws-data-fld1x not numeric
(do error routine)
Last Wiki Answer Submitted: December 24, 2008 3:32 pm by Markpg155 pts.