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)