RE: Testing An Array

[Alan Shore <ashore@xxxxxxxx>]

Hi Birgitta
Just curious as to why you coded your answer the way you did
Would the following be just as good
/Free
    If ArrDS = *blanks;
       //Array contains only *Blanks
    EndIf;

Alan Shore
Programmer/Analyst, Direct Response
E:AShore@xxxxxxxx
P:(631) 200-5019
C:(631) 880-8640
"If you're going through Hell, keep going" - Winston Churchill


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Birgitta Hauser
Sent: Thursday, July 14, 2011 10:55 AM
To: 'RPG programming on the IBM i / System i'
Subject: AW: Testing An Array

> > 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)
--
This is the RPG programming on the IBM i / System i (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.