Re: Convert QUERY record select to RPG

["Richard ECUYER" <recuyer@xxxxxxx>]

here is what i usually do to clarify :

 /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


----- Original Message ----- 
From: "Bob Cozzi" <cozzi@xxxxxxxxx>
To: "'RPG programming on the AS400 / iSeries'" <rpg400-l@xxxxxxxxxxxx>
Sent: Saturday, March 12, 2005 6:11 PM
Subject: 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.
>
>
>
>
> -- 
> 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.
>
>