Re: Data Array

["Bill Meecham" <bmeecham@xxxxxxxxxxxxxxxxxxxx>]

If I ignore the SEU error the source compiles.  If I remove the length then SEU 
is happy as well.  I didn't realize that specifying the length would make a 
difference.  It only makes difference to SEU if the element is defined as an 
array since this is ok:   
d datesDS               ds
d dates                                  10d    datfmt(*usa). 
I'll remove the length, as Bob and Joel point out.
Thank you all for your insight!
Bill



----- Original Message ----- 
From: "Rooney, Michael P [CI]" <michael.p.rooney@xxxxxxxxxxxxx>
To: "RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
Sent: Friday, March 12, 2004 4:31 PM
Subject: RE: Data Array


> 
> Possibly a but in SEU.  What happens if you ignore the SEU error and compile?
> 
> 
> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of Bill Meecham
> Sent: Friday, March 12, 2004 4:09 PM
> To: RPG programming on the AS400 / iSeries
> Subject: Re: Data Array
> 
> 
> I get an error in seu:
> 
> Message ID . . . . . . :   RNF0525       Severity . . . . . . . :   20     
> Message type . . . . . :   Diagnostic                                      
>                                                                            
> Message . . . . :   The length of the date item is not valid.              
> Cause . . . . . :   The length of the date item is not valid.              
>     -- If the Date Format is *MDY, *DMY or *YMD then the length must be 8. 
>     -- If the Date Format *JUL then the length must be 6.                  
>     -- If the Date Format is *ISO, *USA, *EUR or *JIS then the length must 
>   10.                                                                      
>  The entry defaults to the correct value.                                  
> Recovery  . . . :   Change the definition such that the length is valid for
>   the Date Format. Compile again.                                          
> 
> 
> I think this is a bug!
> 
> 
> (end of day for me, pick up again Monday?)
> 
> Thank you,
> Bill
> 
> 
> ----- Original Message ----- 
> From: "Rooney, Michael P [CI]" <michael.p.rooney@xxxxxxxxxxxxx>
> To: "RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
> Sent: Friday, March 12, 2004 3:40 PM
> Subject: RE: Data Array
> 
> 
> > 
> > This works on my system:
> > 
> > DMAXENTRIES       C                   const(50)          
> > DdatesDS          DS                                     
> > Ddates                          10d   dim(MAXENTRIES)
> > 
> > How about on yours?
> > 
> >     
> > 
> > -----Original Message-----
> > From: rpg400-l-bounces@xxxxxxxxxxxx
> > [mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of Bill Meecham
> > Sent: Friday, March 12, 2004 3:06 PM
> > To: rpg400-l@xxxxxxxxxxxx
> > Subject: Data Array
> > 
> > 
> > This is ok:
> > 
> > d MAXENTRIES      c                        const(50)               
> > d dates                     s             10d    dim(maxentries)   
> > 
> > This is ok:
> > 
> > d datesDS               ds
> > d dates                                   10d    dim(50)   
> > 
> > This is not:
> > 
> > d MAXENTRIES      c                        const(50)               
> > d datesDS               ds
> > d dates                                   10d    dim(maxentries)   
> > 
> > 
> > Anyone know why?
> >