Re: Unsigned Packed Decimal Data

["Peter Dow" <pcdow@xxxxxxxxxxxxxxx>]

Without a sample of the data, I'm going to assume it's something like
x'1234'. If so, try moving it to an overlaid field with x'00000f' (i.e.
one-byte larger) then divide by 10:

    d             ds
    d   Signed               5p 0 inz(*zero)
    d   Unsigned             2a   overlay(Signed)

    d Input       s          2a
    d Output      s          4p 0

    c              eval     Unsigned = Input
    c              eval     Output = Signed / 10

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


----- Original Message -----
From: "Shahid Yaqoob" <syaqoob@acp.com.sa>
To: <RPG400-L@midrange.com>
Sent: Wednesday, November 01, 2000 8:37 AM
Subject: Re: Unsigned Packed Decimal Data


>
>
> There is a Computational Class 6 (COMP-6) supported by RM-COBOL which is
> Unsigned Packed Decimal and I have to read that data in RPG.
>
> Thx
>
>
>
>
>
>
>
> Packed decimal data type is always signed.
>
>     Alexei Pytel
>
>
>
> "Shahid Yaqoob" <syaqoob@acp.com.sa>@midrange.com on 11/01/2000 09:48:04
AM
>
> Please respond to RPG400-L@midrange.com
>
> Sent by:  owner-rpg400-l@midrange.com
>
>
> To:   RPG400-L@midrange.com
> cc:
> Subject:  Unsigned Packed Decimal Data
>
>
>
>
>
> Hi
>
> How the can I read unsigned packed decimal data. Is there any special data
> type
> in RPG to handle this type of data.
>
> I will appreciate your help
>
>
>
> +---
> | 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
> +---
>
>
>
>
>
>
> +---
> | 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
+---