RE: Join Logical file using the same physical file twice

Here is a self-join logical from the depths, to show parent-child
relationships up to 19 levels - used in our in-house BOM indent. Created
2/26/1991, revised 1/20/1994.

A JDFTVAL
A R JOINREC JFILE(EDP9101 EDP9101 EDP9101 +
A EDP9101 EDP9101 EDP9101 +
A EDP9101 EDP9101 EDP9101 +
A EDP9101 EDP9101 EDP9101 +
A EDP9101 EDP9101 EDP9101 +
A EDP9101 EDP9101 EDP9101 +
A EDP9101 EDP9101)
A J JOIN(1 2)
A JFLD(CPART NPART)
A J JOIN(2 3)
A JFLD(CPART NPART)
A J JOIN(3 4)
A JFLD(CPART NPART)
A J JOIN(4 5)
A JFLD(CPART NPART)
A J JOIN(5 6)
A JFLD(CPART NPART)
A J JOIN(6 7)
A JFLD(CPART NPART)
A J JOIN(7 8)
A JFLD(CPART NPART)
A J JOIN(8 9)
A JFLD(CPART NPART)
A J JOIN(9 10)
A JFLD(CPART NPART)
A J JOIN(10 11)
A JFLD(CPART NPART)
A J JOIN(11 12)
A JFLD(CPART NPART)
A J JOIN(12 13)
A JFLD(CPART NPART)
A J JOIN(13 14)
A JFLD(CPART NPART)
A J JOIN(14 15)
A JFLD(CPART NPART)
A J JOIN(15 16)
A JFLD(CPART NPART)
A J JOIN(16 17)
A JFLD(CPART NPART)
A J JOIN(17 18)
A JFLD(CPART NPART)
A J JOIN(18 19)
A JFLD(CPART NPART)
A J JOIN(19 20)
A JFLD(CPART NPART)
A NPART JREF(1)
A AST JREF(1)
A CPART JREF(1)
A PART02 RENAME(CPART)
A JREF(2)
A PART03 RENAME(CPART)
A JREF(3)
A PART04 RENAME(CPART)
A JREF(4)
A PART05 RENAME(CPART)
A JREF(5)
A PART06 RENAME(CPART)
A JREF(6)
A PART07 RENAME(CPART)
A JREF(7)
A PART08 RENAME(CPART)
A JREF(8)
A PART09 RENAME(CPART)
A JREF(9)
A PART10 RENAME(CPART)
A JREF(10)
A PART11 RENAME(CPART)
A JREF(11)
A PART12 RENAME(CPART)
A JREF(12)
A PART13 RENAME(CPART)
A JREF(13)
A PART14 RENAME(CPART)
A JREF(14)
A PART15 RENAME(CPART)
A JREF(15)
A PART16 RENAME(CPART)
A JREF(16)
A PART17 RENAME(CPART)
A JREF(17)
A PART18 RENAME(CPART)
A JREF(18)
A PART19 RENAME(CPART)
A JREF(19)
A PART20 RENAME(CPART)
A JREF(20)
A K CPART



Loyd Goodbar
Senior programmer/analyst
BorgWarner
TS Water Valley
662-473-5713

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Mike Cunningham
Sent: Wednesday, March 05, 2008 09:10
To: 'Midrange Systems Technical Discussion'
Subject: RE: Join Logical file using the same physical file twice

Sequence of the DDS makes a difference.

This does not work... (defined the first join then listed the fields
from that join, then defined the second join). This sequence does work
with other join LFs we have as long as the join files are all different.