Re: Testing An Array

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.

--
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.