RE: Test a packed number for validity - code included

[Buck Calabro <buck.calabro@xxxxxxxxxxxxxxxxx>]

Andy Batch wrote:

>d validC          s             10    inz(x'0000000001234567890C')
>what does the C at the end of the inz statement mean?

It is part of the hexadecimal value I'm setting my test variable to.
"Normal" character fields might be initialised as "ABC".  You could also
initialise them in hex as x'C1C2C3'.  A packed number looks like this in hex
x'12345F'  The "F" indicates the sign of the number.  D is negative and F is
positive.  In my data, the telephone switch is using "C" to indicate a
positive value.

Buck Calabro
Aptis; Albany, NY
"Nothing is so firmly believed as
 that which we least know" -- Michel Montaigne
Visit the Midrange archives at http://www.midrange.com
+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---