Re: Unsigned Packed Decimal Data

["Rolf Mittag" <rm@xxxxxxxxxxxx>]

I cannot get anything meaningful out of the comp6.dta

1.rcd looks like
818095 2E0157 800000 00 003030003000F1F540 . . .

which seems not to whats described by the COBOL str.

I remember data formats like x'871201' e.g. for Dec. 1 87
when space was expensive.

You can handle data like that with a simple trick

dtrickyDs    ds
d trickNum         4a
d comp6Num     3a       overlay(trickNum)
d sign                 1p 0    overlay(trickNum : *next)
d wrkNum         7p 0    overlay(trickNum)

dvalidNum  s      6p 0

c        eval        comp6Num = PACKQTY
c        eval        sign = *zero

c        eval        validnum = wrkNum / 10

but be shure to test your input data for validity

HTH Rolf

Dipl.Inf.(FH) Rolf P Mittag
IBM Partner In Development
Leipziger Str. 50
D-69214 Eppelheim
eMl: rm@r-m-e-d-v.de
Fon: +49 (6221) 76 78 60
Fax: +49 (6221) 76 80 26


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