Re: Line count?

["Peter Dow" <pcdow@xxxxxxxxx>]

Wow! Cool, Mike.  I looked at your code, and after a couple of seconds I
realized it looks like an explanation of match record processing!

Peter Dow
Dow Software Services, Inc.
909 425-0194 voice
909 425-0196 fax

----- Original Message -----
From: <Mike.Collins@syan.co.uk>
To: <rpg400-l@midrange.com>
Sent: Wednesday, November 07, 2001 9:10 AM
Subject: Re: Line count?


>
> 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.
>
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> or email: RPG400-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.


_________________________________________________________
Do You Yahoo!?
Get your free @yahoo.com address at http://mail.yahoo.com