'TESTN ' RPG command is to indicate that char value is present in variable. In RPG400 this command is not working if the char value occurs in the last position. For example: Assume Field1(5)='123F4' then TESTN command works fine. Whereas if field1(5)='1234F' then TESTN command is not working.
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.