Re: using an array as part of a multiple occurrence data structure

[bmorris@xxxxxxxxxx]

>Date: Tue, 21 Dec 1999 14:33:48 -0800
>From: "Thom Randolph" <trandolph@seapacsales.com>
> ...
> I am trying to use an array as part of a MODS, which is defined as
follows
>
> dsorttray         ds                  occurs(50)
> d   whatcde               1      8
> d   dys                          4  0 dim(275)
> d   hrs                          3  0 dim(25)
> ...
> d    d#           s              3  0
> ...
>
> c                   if        dys(d#) = 0
>
> and I am receiving error MCH1202 - Decimal data error.

Thom, you've probably run into one of the more horrid "features"
of RPG: if you initialize (INZ keyword) for the DS or subfields,
it will be initialized to blanks (x'40') (even the numeric
subfields).  If you use numeric subfields before giving them
a value, you'll get decimal data error.

Barbara Morris


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