Procedure..

[Gade_R_Reddy@xxxxxxxxxxxxxxxxxx]

I have this small routine..

P WeekDay         B
D WeekDay         PI            10A
D  WeekNum                       1S 0 Const

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)    <<<----- 
Error at this line

C                   Return      Day(WeekNum)
P WeekDay         E

When i compile the program, it give me this error...

*RNF7303 30      1 Subfield defined with keyword OVERLAY is too big;
                        specification ignored.

Please help me out

Thanks.
Gade.

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