RE: Nested IF, OR and AND in /free

You are welcome :)

Gary


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of
Nick_Radich@xxxxxxxxxxxxxx
Sent: Tuesday, October 25, 2011 3:00 PM
To: RPG programming on the IBM i / System i
Cc: rpg400-l-bounces@xxxxxxxxxxxx
Subject: Re: Nested IF, OR and AND in /free

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.