RE: Data Array

["Rooney, Michael P [CI]" <michael.p.rooney@xxxxxxxxxxxxx>]

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?
> 
> Thank you.



_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.