Re: Nested IF, OR and AND in /free

[Alan Campin <alan0307d@xxxxxxxxx>]

You can't use a list on RPG Free

/free
 if (chk1 = '7' or
     chk1 = '8' or
     chk1 = '9' or
     chk1 = '1') and
    chk6 <> '  ';
/end-free

On Tue, Oct 25, 2011 at 2:53 PM, <Nick_Radich@xxxxxxxxxxxxxx> wrote:

> Hello everyone,
>
> We are at V5R4.
>
> I am trying to get more into using /free, after 30 years of programming.
>
> I have included the following snippet of code that will not compile.  I
> get error RNF7421 on the compile listing.
>
> I have also tried entering this using WDSC.
>
> Can I do this code at V5R4?
>
> /free
>        if chk1 = ('7' or '8' or '9')
>        or chk1 = '1'
>        and chk6 <> '  ';
> /end-free
>
>
> Any help or pointers will be greatly appreciated.
>
>
>
> Thanx,
>
> Nick
>
>
>
> Nick Radich
> Sr. Programmer/Analyst
> EPC Molding, Inc.
> Direct  (320) 679-6683
> Toll free  (800) 388-2155 ext. 6683
> Fax  (320) 679-4516
> nick_radich@xxxxxxxxxxxxxx
> --
> 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.