RE: Convert QUERY record select to RPG

Alan,
I like that style but hadn't done it before because I only code the
fully-free format style when I write C/C++ code.
In RPG IV I prefer to use parens to help with the clarity, but again, I like
your suggestion too.

-Bob Cozzi
www.RPGxTools.com
If everything is under control, you are going too slow.
- Mario Andretti

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Alan C
Sent: Saturday, March 12, 2005 10:56 AM
To: RPG programming on the AS400 / iSeries
Subject: Re: Convert QUERY record select to RPG

As a possibly nit-picky matter of personal taste, I like to indent the 
"and"'s as in:

/FREE
       if  cotsz1 >= '0'
          and %scan('AN':COAT1) = 0
        or size <= '00014
          and %scan('X':size) = 0
          and %scan('S':size) = 0
        or size <= SZDIA1
        or cotsz2 <= COTSZ1
          and cotsz2 > '0'
          and %scan('B':size) = 0
        or UTS >= 820000
        or WGT <= 0
        or UTS < YTS
        or %scan('NOMAT':desc) > 0
         and %scan('BX':size) = 0;
      /END-FREE

-- Alan



>Really?
>      /FREE
>       if  cotsz1 >= '0'
>        and %scan('AN':COAT1) = 0
>        or size <= '00014'
>        and %scan('X':size) = 0
>        and %scan('S':size) = 0
>        or size <= SZDIA1
>        or  cotsz2 <= COTSZ1
>        and cotsz2 > '0'
>        and %scan('B':size) = 0
>        or UTS >= 820000
>        or WGT <= 0
>        or UTS < YTS
>        or %scan('NOMAT':desc) > 0
>        and %scan('BX':size) = 0;
>      /END-FREE
>
>If you say so.
>
>-Bob Cozzi
>www.RPGxTools.com
>If everything is under control, you are going too slow.
>- Mario Andretti
>  
>

-- 
This is the RPG programming on the AS400 / iSeries (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.