Re: Non-Join Multi PF Logical File Format

[Jim Langston <jlangston@xxxxxxxxxxxxxxxx>]

Oh, use Rename on the file input I belive.

FMultiLogic  IF     E              K  Disk Rename(Format1:FormatX)

This should rename one of the duplicatly named formats (the first one
I believe) to a different name and should get rid of your error.

Regards,

Jim Langston

rajan tangri wrote:

> Hey David,
>
> I missed the original question.So I am taking a guess that you need  multi
> format LF .We do something similar.
>
> PF1 -- Order Header
>
> REC1        ---
> Fld1
> Fld2
>
> K Fld1
>
> PF2      --- Order Detail
> REC2
> FLD3
> FLD4
> K FLD4
>
> LF--
>
> REC1        PFILE(PF1)
> K FLD1
>
> REC2        PFILE(PF2)
> K FLD3
>
> FLD1 AND FLD3 have the same attributes and in the program you read by the
> file name and not the RECORD name but you can record name to
> update records to individual PF.we differentiate between them by Flags so
> update the corresponding PF.
>
> Hope that helps,
>
> Rajan
>
> >-----Original Message-----
> >From: David Shea [mailto:dshea@arctools.com]
> >Sent: Wednesday, May 24, 2000 11:42 AM
> >To: Stone, Joel; COBOL400-L@midrange.com; RPG400-L@midrange.com
> >Subject: Re: Non-Join Multi PF Logical File Format
> >
> >
> >OH MY GOD IT @#$@!$%^ WORKS!  Almost.
> >
> >When I attempt to compile an RPG program with a logical file using this
> >approach, the compile fails on a severity 40 - it doesn't like the
> >duplicate
> >record format.  I tried this before and gave up after the compile failed.
> >
> >BUT...  When I tell the compile that it's OK to create the program at a
> >level 40 error, the program actually works!
> >
> >So.... how do I get RPG to stop complaining about the LF?
> >
> >----- Original Message -----
> >
>

+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---