Re: Testing An Array

[Luis Rodriguez <luisro58@xxxxxxxxx>]

Oops! Just read your "non-blank" requirement as "blank". Definitively can't
multitask anymore :-(.

Regards,

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



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

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