problem with using D-specs in a procedure

Joe, the compiler formerly failed to notice that the array DAY does not fit
within the subfield SUNDAY.  The rules for overlay say that the entire overlaid
field must fit.

This particular case might have actually worked, but there were some cases where
the compiler allowed programs to compile that caused data corruption in other
variables, so the compiler was PTF'd.

Starting in V4R2 you can say OVERLAY(data-structure-name) so change Day so it
has OVERLAY(Days).
For releases before that, try coding it this way:
     D Days            DS
     D  Sunday                       10A   Inz('Sunday')
     D  Monday                       10A   Inz('Monday')
     D  Tuesday                      10A   Inz('Tuesday')
     D  Wednesday                    10A   Inz('Wednesday')
     D  Thursday                     10A   Inz('Thursday')
     D  Friday                       10A   Inz('Friday')
     D  Saturday                     10A   Inz('Saturday')
     D Day             S             10A   Dim(7) Based(pDay)
     D pDay            S               *   Inz(%Addr(Days))

Barbara Morris

>Date: Tue, 31 Aug 1999 13:52:46 -0500
>From: "Joe Teff" <jteff19@idt.net>
>
>An associate was trying to use some code shown in
>Bob Cozzi's RPG IV book and it won't compile. I've looked
>at it and don't see the problem. What am I missing?
>
>Joe Teff
> ...
>
>     D Days            DS
>     D  Sunday                       10A   Inz('Sunday')
>     D  Monday                       10A   Inz('Monday')
>     D  Tuesday                      10A   Inz('Tuesday')
>     D  Wednesday                    10A   Inz('Wednesday')
>     D  Thursday                     10A   Inz('Thursday')
>     D  Friday                       10A   Inz('Friday')
>     D  Saturday                     10A   Inz('Saturday')
>     D  Day                          10A   Dim(7) Overlay(Sunday)
> ...
>          A d d i t i o n a l   D i a g n o s t i c   M e s s a g e s
> Msg id  Sv Number Seq     Message text
>*RNF7303 30    102 010200  Subfield DAY defined with keyword OVERLAY is =
>too big;
> ...


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