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.
$XFD NUMERIC
or
*(( XFD NUMERIC ))
$xfd numeric 01 student-code pic x(7).