AW: Testing An Array

["Birgitta Hauser" <Hauser@xxxxxxxxxxxxxxx>]

> > I think you could define the array in a data structure:

But I'd define the data structure containing the array as follows:

D  ArrDS         DS 			 Inz 
D  Array                       10A  Dim(100)

 /Free
    If %Len(%Trim(ArrDS)) = *Zeros;
       //Array contains only *Blanks
    EndIf;
                 


Mit freundlichen Grüßen / Best regards

Birgitta Hauser

"Shoot for the moon, even if you miss, you'll land among the stars." (Les
Brown)
"If you think education is expensive, try ignorance." (Derek Bok)
"What is worse than training your staff and losing them? Not training them
and keeping them!"

-----Ursprüngliche Nachricht-----
Von: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] Im
Auftrag von Gary Thompson
Gesendet: Thursday, 14. July 2011 16:23
An: RPG programming on the IBM i / System i
Betreff: Re: Testing An Array

Robert wrote:

> I need to test an array to determine if there are any non-blank 
elements.
>   In fixed format I recall that I could test the whole array.  That 
seems
>   not to work in /Free format.

I think you could define the array in a data structure: 
D                 DS 
D  aDS                    1     15 
D  a#                     1     15    DIM(15)