This Operations code has never worked properly. I use xlate to check for numerics:
D CN C CONST('0123456789') D CB C CONST(' ') ... C CN:CB XLATE TA0COD WKCOD C TA0COD IfNe WKCOD ...Not a numeric C Else ...Numeric C End
================================== MORE INFORMATION ON THIS TOPIC ==================================
The Best Web Links: tips, tutorials and more.
Ask your systems management questions--or help out your peers by answering them--in our live discussion forums.
This was first published in May 2002