RE: Non-Join Multi PF Logical File Format

[Chris Bipes <rpg@xxxxxxxxxxxxxxx>]

use the RENAME option on the file spec.

 

ffilea  if a         k disk rename(rcdfmtname:newfmtname)

 

Christopher K. Bipes     mailto:ChrisB@Cross-Check.com
Sr. Programmer/Analyst   mailto:Chris_Bipes@Yahoo.com
CrossCheck, Inc.         http://www.cross-check.com
6119 State Farm Drive    Phone: 707 586-0551 x 1102
Rohnert Park CA  94928 Fax: 707 586-1884

If consistency is the hobgoblin of little minds, only geniuses work here.  Karen Herbelin - Readers Digest 3/2000

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

From: Stone, Joel

To: 'David Shea'

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