The NUMERIC directive allows you to treat a data item as an unsigned integer when it is declared as alphanumeric. You might use this when the data stored in the item is always numeric.
Syntax
$XFD NUMERIC
or
*(( XFD NUMERIC ))
Example
$xfd numeric
01 student-code pic x(7).