Just curious as to why you coded your answer the way you did
... because I didn't reflect, the data structure is fixed length.
I often work with fixed and varying character fields. If I have to check for
an empty field I always check with %Len(%Trim... .
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 Alan Shore
Gesendet: Thursday, 14. July 2011 17:38
An: 'RPG programming on the IBM i / System i'
Betreff: RE: Testing An Array
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.
midrange.com
