NUMERIC Directive
The NUMERIC directive causes the subsequent field to be treated as a numeric if it is declared as alphanumeric.
$EFD NUMERIC
or
*(( EFD NUMERIC ))
or
*>(( EFD NUMERIC ))
Example
The field customer-code will be stored as numeric data type in the table.
$EFD NUMERIC
 03 CUSTOMER-CODE PIC X(7).