We want to Test numeric data in Our application program.We don't want to use indictor in this case .We want to use built in Error functionality of RPGIV. Can we have built in function for Testing numeric data which is having similar functionality of TESTN opcode used in RPG/400?
Take a look at:http://www.rpgiv.com/rpgivforum/view...14443416&NRL=8
Or, you could do this. Not the most efficient code, but simple and works. Note, however, that this allows a decimal point and blanks.
EVAL WorkField = %dec(Anyfield:9: )
...... do whatever
C Eval Pos = %Check( '0123456789' : SomeString )
C If Pos > *Zero
* Process information
All my answers were extracted from the "Big Dummy's Guide to the As400"
and I take no responsibility for any of them.
Actually it should be pretty efficient because MONITOR is a relatively lightweight function. It doesn't add much overhead and it is probably a lot more efficient to do it this way than scanning for valid characters and then converting.Originally Posted by arrow483
[QUOTE=FaStOnE]@#%@#%@#%@#% Jamie... are you going to take that standing up?
Not Jamie. He always strikes back. Just the other day he was saying how someone out in Arizona had pissed him off and he was going to hack into their computer in the middle of the night and...
The again maybe you're not suppose to know about that FastOne