Re: Line count?

[Mike.Collins@xxxxxxxxxx]

you can't go back to line 1. your loop needs to read both files B and C and
print accordingly. Something like:

          READ FILEA                     99
*IN99          DOWEQ'0'
KEY       CHAINFILEB               98
KEY       CHAINFILEC               97

Use dou to ensure line always printed for filea

*IN97          DOUEQ'1'
*IN98          ANDEQ'1'
          EXCPTLINE
*IN98          IFEQ '0'
KEY       READEFILEB                     98
          ENDIF
*IN97          IFEQ'0'
KEY       READEFILEC                     97
          ENDIF
          ENDDO
          READ FILEA                     99
          ENDDO

Your output specs need to then condition the output from records on FILEB
and FILEC with indicators 97 and 98.