× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



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 thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

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.