Re: Copying multi-format PF -- RPG400-L

You could also create multiple members in the individual files always using
the original file name(s) for the programming outputting to the files.  Then
instead of duplicating the files, rename the members to INV123456.

Eric A. Wolf

----- Original Message -----
From: "Mike Barton" <Mike.Barton@xxxxxxxxxxxxxxxxx>
To: "RPG programming on the AS400/iSeries" <rpg400-l@xxxxxxxxxxxx>
Sent: Friday, April 25, 2003 8:14 AM
Subject: Re: Copying multi-format PF


>
> >I understand that this scenerio can be/is confusing, and maybe I'm going
> about
> >it all wrong. What is happening is: We will run our custom-built
invoicing
> >process, which will populate the header, detail and total PFs which have
> the LF
> >over them. I will then "rename" the logical to the invoice number for
this
> >particular invoice. Then the process happens again. Each invoice number
> needs
> >it's own set of header, detail and total files. It would look like this:
> >Header_invoice_123 ---
> >Detail_invoice_123    ---
> >Detail_invoice_123   --- ----> InvoiceLF -----> rename (or copy) to
File123
> >Total_invoice_123  ----
> >
> >Header_invoice_456 ----
> >Detail_invoice_456  ----- -----> InvoiceLF -----> rename to File456
> >Total_invoice_456   -----
>
> John
> i suggest you either CRTDUPOBJ or CPYF the three physical files
> to the new names .
> e.g. CPYF FROMFILE(Header_invoice) TOFILE(Header_invoice_123)
CRTFILE(*YES)
> CPYF FROMFILE(Detail_invoice) TOFILE(Detail_invoice_123) CRTFILE(*YES)
> CPYF FROMFILE(Total_invoice) TOFILE(Total_invoice_123) CRTFILE(*YES)
>
> And then do a CRTLF  specifying the 3 files
> e.g.CRTLF FILE(InvoiceLF_123) DTAMBRS((Header_invoice_123)
> (Detail_invoice_123) (Total_invoice_123))
>
> Pls note I haven't actually tried this !
>
> Mike
>
> ###########################################
>
> This message has been scanned by F-Secure Anti-Virus for Microsoft
Exchange.
> For more information, connect to http://www.F-Secure.com/
>
>
> This communication and the information it contains: - (a) Is intended for
the person(s) or organisation(s) named above and for no other person(s) or
organisation(s). Access to this mail by anyone else is unauthorised. (b) Is
confidential, and may be legally privileged or otherwise protected in law.
Unauthorised use, circulation, copying or disclosure of any part of this
communication may be unlawful. (c) May be susceptible to interference, and
should not be assumed that it has come in its original form and/or from the
stated sender or PinkRoccade UK accepts no responsibility for information,
errors or omissions in this e-mail or use or misuse thereof or any act done
or omitted to be done in connection with this communication. If you are not
the intended recipient, please inform postmaster@xxxxxxxxxxxxxxxxx
immediately and delete it and all copies from your system.
>
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo.cgi/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>
>