'TESTN ' RPG command is to indicate that char value is present in variable. In RPG400 this command is not working...
By submitting your email address, you agree to receive emails regarding relevant topic offers from TechTarget and its partners. You can withdraw your consent at any time. Contact TechTarget at 275 Grove Street, Newton, MA.
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.
Related Q&A from John Brandt
Have a question for an expert?
Please add a title for your question
Get answers from a TechTarget expert on whatever's puzzling you.