One way you could accomplish validation would be to use a level 88 item something like:
05 INPUT-DATA-TEMP PIC X(nn).
88 INPUT-IS-VALID VALUE ‘A’ thru ‘Z’
’0′ thru ’9′
‘@’ ‘%’ ‘+’.
MOVE MAP-IN-FIELDNAME TO INPUT-DATA-TEMP
Or something like this… you get the idea.
This example would result in upper case A through Z, numbers zero through 9 and special characters @, % and +
being treated as valid — everything else would be invalid.
Hope this helps you out.