RE: Non-Join Multi PF Logical File Format

Rename one of the record formats.  The rename will only pick one of the
formats to rename(I don't know how it picks which one) and then the compile
will work fine.  Not sure but I think you will want to read/chain from the
file (not the record format) to get records that belong to either file.

Scott Mildenberger

> -----Original Message-----
> From: David Shea [SMTP:dshea@arctools.com]
> Sent: Wednesday, May 24, 2000 12:42 PM
> 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 ----- 
> 
>       From: Stone, Joel <mailto:StoneJ@GourmetAward.com> 
>       To: 'David Shea' <mailto:dshea@arctools.com> 
>       Sent: Wednesday, May 24, 2000 2:07 PM
>       Subject: RE: Non-Join Multi PF Logical File Format
> 
>       Here is my test:  does this tell you all you want to know?
>        
> 
>       Yes - this works fine in COBOL.
>        
>       PF - FILEA:
>       R REC1               
>         FLD1          10   
>        
>       PF - FILEB:
>       R REC1               
>         FLD1          10   
>        
>       LF - FILEAB:
>                                    UNIQUE              
>        R REC1                      PFILE(FILEA FILEB)  
>        K FLD1                                          
>        
>        
> 
+---
| 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
+---