Q

'TESTN ' RPG command is not working

'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.


This was first published in May 2002

Have a question for an expert?

Please add a title for your question

Get answers from a TechTarget expert on whatever's puzzling you.

You will be able to add details on the next page.

0 comments

Oldest 

Forgot Password?

No problem! Submit your e-mail address below. We'll send you an email containing your password.

Your password has been sent to:

-ADS BY GOOGLE

SearchEnterpriseLinux

SearchDataCenter

Close