Re: Convert QUERY record select to RPG

[Alan C <steelville@xxxxxxxxxxx>]

Thanks Bob!

And Richard too--I just might incorporate that too.

Think is for Bob, some of us can just look at those columns and we've 
been doing it so long that the logic becomes part of the "view". LOL.

- Alan


> 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
>