Re: single Line If stateement

[Maria Lucia Stoppa <mlstoppa@xxxxxxxxx>]

I regularly use it the way John suggested, otherwise I write the whole if.

Il dom 6 set 2020, 16:28 Chris Holko <christopherholko@xxxxxxxxx> ha
scritto:

> I always wanted and IIF function so usually just write one myself
>
> > On Sep 6, 2020, at 10:16 AM, John Yeung <gallium.arsenide@xxxxxxxxx>
> wrote:
> > On Sun, Sep 6, 2020 at 9:27 AM Alan Campin <alan0307d@xxxxxxxxx> wrote:
> > > Years ago, a boss of mine did something like this
> > >
> > > If Identity = Yes:'Y':'N';
> > >
> > > which doesn't compile.
> >
> > If the variable being assigned was an indicator, then perhaps you are
> > thinking of something of the form
> >
> >  my_ind = (test > threshold);
> >
> > No IF at all, but it's one line, which folks who don't know (or don't
> > like) that idiom would do like this:
> >
> >  if test > threshold;
> >    my_ind = *on;
> >  else;
> >    my_ind = *off;
> >  endif;
> >
> > But if you really are thinking of a character variable, taking on
> > possibly 'Y' or 'N', then the custom subprocedure (function) approach
> > is the nicest I can think of. (Maybe some would say "use embedded SQL
> > instead".)
> >
> > John Y.
> > --
> > This is the RPG programming on IBM i (RPG400-L) mailing list
> > To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx
> > To subscribe, unsubscribe, or change list options,
> > visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
> > or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
> > Before posting, please take a moment to review the archives
> > at https://archive.midrange.com/rpg400-l.
> >
> > Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription
> related questions.
> > Help support midrange.com by shopping at amazon.com with our affiliate
> link: https://amazon.midrange.com
>
> --
> This is the RPG programming on IBM i (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at https://archive.midrange.com/rpg400-l.
>
> Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related
> questions.
>
> Help support midrange.com by shopping at amazon.com with our affiliate
> link: https://amazon.midrange.com