Re: Unsigned Packed Decimal Data

["Peter Dow" <pcdow@xxxxxxxxxxxxxxx>]

Hi John,

No, that would zap the last digit. An unsigned packed decimal data field
would be something like x'1234' for decimal 1234. Using your code would
change it to x'123D', losing the last digit.  By appending x'0f' (giving
x'12340f') and dividing by 10, you get x'01234f'.

Clear as mud?

Peter Dow
Dow Software Services, Inc.
909 425-0194 voice
909 425-0196 fax

From: <jpcarr@TREDEGAR.COM>
> >There is no data type in RPG to handle unsigned packed decimal data.  You
> >will have to do some manipulation of the data before RPG can interpret
it.
> Bmorris
>
>
> You mean there's a use for the following in "Modern" code?
>
> C    MLLZO 'J' FIELDX
>

> +---
> | 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
> +---

+---
| 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
+---