Re: Unsigned Packed Decimal Data

>Here is the example of unsigned packed decimal data which was supported by
>RM-COBOL only.
>05  PACKQTY                     PIC 9(6)       COMP-6.
>05  ORGDATE                    PIC 9(6)       COMP-6.
>05  MDATE                          PIC 9(6)       COMP-6.
>05  USER                             PIC 99          COMP-6.
>05  DESC                             PIC X(19).
>05  FILLER                          PIC X(39).

I do not think that this has something to do with the packed data format.

In the ILE COBOL (i know it isn't) one finds that COMP-0 to COMP-9 are 
reserved words.

The data looks more like unsigned integer or binary. But possible field 
lengths for binary fields in RPG are 2 bytes (for 4 digits) and 4 bytes 
(for 9 digits) only. For unsigned integers its also 2 bytes (for 5 digits) 
and 4 bytes (for 10 digits).

But this seems to be pretty old, not external described, no date fields 
(and ORGDATE is DDMMYY, MDATE is YYMMDD) which makes this all a good 
candidate for a re-design to match current possiblities and methods...

0.02 Euro

Mit freundlichen Grüssen / best regards

Anton Gombkötö

e-mail Office   :       mailto:Anton.Gombkoetoe@avenum.com
Homepage        :       http://www.avenum.com

----------
Avenum Technologie GmbH
Brigittenauer Lände 50-54, Stiege 6     Salzburger Strasse 29   Dreifelder 
Strasse 4
A-1200 Wien / Austria                   A-5163 Mattsee          D-70599 
Stuttgart

Tel./phone      :       +43-1/92101-148         +43-6217/5995 - 
0               +49-711/4411 116
Fax             :       +43-1/92101-300         +43-6217/5995 - 
13      +49-711/4411 563

----------
Avenum ist der Zusammenschluss von AS Software und Black System.

----------

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