Re: Convert QUERY record select to RPG

[Barbara Morris <bmorris@xxxxxxxxxx>]

Bob Cozzi wrote:
> 
> 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.
> 

You can indent logical expressions like that in fixed-form IF too.

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