RE: Insert a record -- RPG400-L

Is this biscom?  We used to have that before we went all blue (IBM).  We
modified the print program to put the 'output queue entry control commands'
at the top of each fax.  I still have these commands thumbtacked to my
wall.

Rob Berendt

==================
A smart person learns from their mistakes,
but a wise person learns from OTHER peoples mistakes.



                    "Condon, Mike"
                    <M1C@ingersoll-im       To:     "'rpg400-l@midrange.com'" 
<rpg400-l@midrange.com>
                    c.com>                  cc:
                    Sent by:                Fax to:
                    rpg400-l-admin@mi       Subject:     RE: Insert a record
                    drange.com


                    10/24/2001 02:01
                    PM
                    Please respond to
                    rpg400-l






The thing is, this report file has all of our customers in it.
It looks like I'll have to come up with some multiple file handling stuff.

-----Original Message-----
From: Jim Langston [mailto:jlangston@celsinc.com]
Sent: Wednesday, October 24, 2001 12:34 PM
To: 'rpg400-l@midrange.com'
Subject: RE: Insert a record


Have you considered...
Put a blank line in, or even the fax number, before you copy the spool
file.  A quick and dirty example:

CPYF FROMFILE(FAXHEADER)
     TOFILE(SPOOLFILE)
     FROMMBR(CUST1234)
     TOMBR(NEWFAX)
     MBROPT(*NONE)

CPYSPLF FILE(QSYSPRT)
        TOFILE(SPOOLFILE)
        JOB(123456/QPGMR/FAXITDUDE)
        SPLNBR(3)
        TOMBR(NEWFAX)
        MBROPT(*ADD)

Basically, copying the header information into the member first,
then copying the spool file, adding the records.

A CL solution to an RPG question, but if you wanted you could
add the Fax number line in RPG instead of copying a member.
Myself, I would probably copy a member based on the customer
number so it would be easy to edit this to include any specific
information they wanted.

HTH

Regards,

Jim Langston

-----Original Message-----
From: Condon, Mike [mailto:M1C@ingersoll-imc.com]
Sent: Wednesday, October 24, 2001 8:40 AM
To: 'rpg400-l@midrange.com'
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.