Line count? -- RPG400-L

[ Converted text/html to text/plain ]

Dear all,



I am writing a RPG III Report program using O-specs. Following is my problem:

I read File A and print all records, with each record on a different line.
Within this read loop, I read File B (File B may have one or more records
matching with File A).

Assume I print the first record from File A on Line 1.

Then I read File B, find 3 records. Each record must be printed on a different
line.

In order to print these records from Line 1, I specify 0 spaces before new
line is printed in the O-specs. This serves my purpose and I get the first
record from File B on Line 1. then I go ahead and print the other 2 records
from File B on Lines 2 & 3 respectively.

BUT now there is another File C which also may have one or more records
matching File A. These records also must be printed from Line 1. Because I
have already printed records from File B, I have reached Line number 3.

How do I get back to Line 1. and start printing data from File C?

(I hope this makes sense???)

 Please help.


Regards,

Hrishikesh Kotwal

>From: "Adam White"
>Reply-To: rpg400-l@midrange.com
>To:
>Subject: RE: Close File
>Date: Tue, 6 Nov 2001 07:27:13 -0000
>
>Ok,
>If you do an explicit CLOSE, the file WILL close. Unless, it is shared and
>open in another program.
>
>Is it failing on the open with a CPF message?
>
>Why don't you just do a SETLL to reposition? Or are you using OPNQRYF or the
>like?
>
>Regards
>Adam White
>adam@slic-systems.com
>www.slic-systems.com/
>
>-----Original Message-----
>From: rpg400-l-admin@midrange.com [mailto:rpg400-l-admin@midrange.com]On
>Behalf Of mohd khan
>Sent: 05 November 2001 19:38
>To: rpg400-l@midrange.com
>Subject: Re: Close File
>
>
>Ok, here is the logic
>I'm reading the file
>when EOF occour I'm closing that file
>but some how the file remain open
>I want to reopen this file, because I want to read it again for the 2nd time
>for the different Dept.
>
>The program was running fine from last two years,
>No one changed it, I did checked the object
>The program originally written in RPG/400
>our I.S dept. upgraded the ver, as well as hardware also, this change will
>not effect the object ? right I'm not sure
>
>
>
>_______________________________________________
>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.
>

------------------------------------------------------------------------------
Get your FREE download of MSN Explorer at http://explorer.msn.com[1]

===References:===
  1. http://go.msn.com/bql/hmtag_itl_EN.asp