Re: No of Digits

["Joyce White" <Jwhiteaz@xxxxxxxxxxxx>]

I know of no opcodes or built in function in the OS 2.3 - 3.2 range.  Our
date conversion product must function for these levels therefore we had to
code for the same conditions you mentioned in determining valid date fields.

We move field to array.  Evaluate each element.  Move selected elements to
new array.  Move new array to field for numeric functions.  You know how to
test bits on each element for numeric values (if packed field) otherwise
simply TESTN on each element for selection.

Hope this helps get you started.

JWhite
M2i Software Solutions

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* This is the RPG/400 Discussion Mailing List!  To submit a new         *
* message, send your mail to "RPG400-L@midrange.com".  To unsubscribe   *
* from this list send email to MAJORDOMO@midrange.com and specify       *
* 'unsubscribe RPG400-L' in the body of your message.  Questions should *
* be directed to the list owner / operator: david@midrange.com          *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *