× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



Robert,

My apologies for the almost telegraphic nature of my previous posts. Just
have been trying to do several things at once and I am not that good at
multitasking anymore :-)

This code should work:

------------------------------
D my_array S 80 Dim(100)
D num_entries S 3S 0
D n S 3S 0
/Free
my_array(1) = '1';
my_array(2) = '2';
my_array(3) = ' ';
my_array(4) = '4';
num_entries = 4;

n = %LOOKUP(' ':my_array: 1: num_entries) ;
IF n <> 0;
// There is a blank element on the array, in position n ...
ENDIF;
*inlr = *on;

/End-Free

------------------------------

HTH,


Luis Rodriguez
IBM Certified Systems Expert — eServer i5 iSeries
--



On Thu, Jul 14, 2011 at 9:53 AM, Luis Rodriguez <luisro58@xxxxxxxxx> wrote:

Of course, there is always the LOOKUP family of op codes / BIFS...

Regards,

Luis Rodriguez
IBM Certified Systems Expert — eServer i5 iSeries
--



On Thu, Jul 14, 2011 at 9:52 AM, Luis Rodriguez <luisro58@xxxxxxxxx>wrote:

Robert,

Why don't you just sort the array and check if the first element is
blank?. On the other hand, unless the array is very big a loop gets done
quite quickly.

Regards,

Luis Rodriguez
IBM Certified Systems Expert — eServer i5 iSeries
--



On Thu, Jul 14, 2011 at 9:34 AM, Robert Munday <rwmunday@xxxxxxxxxxxxx>wrote:

Greetings from the sunny south.



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.



What would I need to make this concept work:



If MyArray <> *Blanks;



I don't want to spin through the numerous individual elements. Any
suggestions on how to make this happen?





Thanks,







Robert Munday

Munday Software Consultants

Montgomery, AL
--
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.





As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:
Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.