Re: Convert QUERY record select to RPG

/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