Re: Convert QUERY record select to RPG

[Alan C <steelville@xxxxxxxxxxx>]

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
>