Re: Nested IF, OR and AND in /free

[Nick_Radich@xxxxxxxxxxxxxx]

Thank you everyone for your replies.

I used the format that Tommy H. had.  I was thinking along those lines 
anyway.

Just wish it could have been shorter/cleaner.

Thank you again.

Gary, I have the ENDIF farther down in my code in the program.  Thank you 
though.



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



From:   Alan Campin <alan0307d@xxxxxxxxx>
To:     "RPG programming on the IBM i / System i" <rpg400-l@xxxxxxxxxxxx>
Date:   10/25/2011 04:56 PM
Subject:        Re: Nested IF, OR and AND in /free
Sent by:        rpg400-l-bounces@xxxxxxxxxxxx



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.