|
I believe what you are asking for is not possible. If you have a file with three records - RRN1, RRN2 & RRN3 You cannot insert a record between RRN1 and RRN2 because there is no such thing as RRN1.5. You could do this by keying every record and inserting a record in a key sequence. Or you could read from one file and write to another and then insert (write) a record when it is needed. Which may be the best solution for your application. Dan Wiesner ----- Original Message ----- From: "Condon, Mike" <M1C@ingersoll-imc.com> To: <rpg400-l@midrange.com> Sent: Wednesday, October 24, 2001 10:39 AM Subject: RE: Insert a record Ok, here's the application: I have a report spool file (from a 3rd party application) that I copy to a physical file. The customer number is 14-10-00-01. We are faxing the statements to the customer, and I need to add some text before the 1st line of the report for each customer, as in: >>>fax number here<<< Date: 10/12/01 BRYLI 14-10-00-01 105 SCOTT LANE WEATHERFORD, TX 76085 Invoice Date Due Date Balance Due -------- --------- -------- ------------------- 00400788 07/09/01 08/09/01 101.00 *** 400002 07/02/01 11/03/01 104.41 406515 08/06/01 09/06/01 113.80 ** 8000208 07/28/01 08/29/01 -104.41 ** ------------------- Total 214.80 =================== * 1 - 30 days overdue -----Original Message----- From: Joep Beckeringh [mailto:joep@beckeringh.myweb.nl] Sent: Tuesday, October 23, 2001 5:10 PM To: rpg400-l@midrange.com Subject: Re: Insert a record Mike, Would you care to explain why you want this? Although it might be possible, but definitely not easy, to do what you describe, I can't help thinking there should be an easier to accomplish whatever you want to accomplish, Joep Beckeringh ----- Original Message ----- From: "Condon, Mike" <M1C@ingersoll-imc.com> To: <rpg400-l@midrange.com> Sent: Monday, October 22, 2001 4:26 PM Subject: RE: Insert a record > Here's an example: > > File with records > > (RRN1) AAAA > (RRN2) BBBB > (RRN3) CCCC > (RRN4) DDDD > > I would like to insert record 1234 using RRN3 so the file looks like: > (RRN1) AAAA > (RRN2) BBBB > (RRN3) 1234 > (RRN4) CCCC > (RRN5) DDDD _______________________________________________ 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. _______________________________________________ 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.
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.