RE: Determine if a uniquely keyed logical exists for a givenphysical

Habit....that all.

The corrections I mentioned where to the join fields and the table name.

Charles Wilt
iSeries Systems Administrator / Developer
Mitsubishi Electric Automotive America
ph: 513-573-4343
fax: 513-398-1121
 

> -----Original Message-----
> From: midrange-l-bounces@xxxxxxxxxxxx
> [mailto:midrange-l-bounces@xxxxxxxxxxxx]On Behalf Of rob@xxxxxxxxx
> Sent: Friday, February 04, 2005 3:12 PM
> To: Midrange Systems Technical Discussion
> Subject: RE: Determine if a uniquely keyed logical exists for a
> givenphysical
> 
> 
> Curious, why move the join to the where clause?
> 
> Rob Berendt
> -- 
> Group Dekko Services, LLC
> Dept 01.073
> PO Box 2000
> Dock 108
> 6928N 400E
> Kendallville, IN 46755
> http://www.dekko.com
> 
> 
> 
> 
> 
> "Wilt, Charles" <CWilt@xxxxxxxxxxxx> 
> Sent by: midrange-l-bounces@xxxxxxxxxxxx
> 02/04/2005 02:54 PM
> Please respond to
> Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxx>
> 
> 
> To
> "Midrange Systems Technical Discussion" <midrange-l@xxxxxxxxxxxx>
> cc
> 
> Subject
> RE: Determine if a uniquely keyed logical exists for a givenphysical
> 
> 
> 
> 
> 
> 
> Thanks Don.  That put m on the right track.
> 
> For the archive, I made some corrections to Don's code.
> 
> select dbxlib, dbxfil 
> from qadbxref, qadbfdep 
> where dbxunq = 'U' 
>   and dbxlib = dbfldp and dbxfil = dbffdp 
>   and dbflib = 'yourlib' and dbffil = 'your_pf'
> 
> Charles Wilt
> iSeries Systems Administrator / Developer
> Mitsubishi Electric Automotive America
> ph: 513-573-4343
> fax: 513-398-1121
>  
> 
> > -----Original Message-----
> > From: midrange-l-bounces@xxxxxxxxxxxx
> > [mailto:midrange-l-bounces@xxxxxxxxxxxx]On Behalf Of Don Tully
> > Sent: Wednesday, February 02, 2005 5:12 PM
> > To: Midrange Systems Technical Discussion
> > Subject: RE: Determine if a uniquely keyed logical exists for a
> > givenphysical
> > 
> > 
> > Charles,
> > 
> > Here is an SQL that you can run to find unique keys for a PF.
> > 
> > Select dbflib, dbffil from qadxref
> > join   qadbfdep  on dbxfil = dbffil
> > Where dbxlib = 'yourlib' and dbxfil = 'your_pf' and dbxunq = 'U'
> > 
> > I am not currently attached to an AS400 to verify this but it 
> > should work
> > for you.  It will return the name of all dependent logicals over
> > YourLib/your_pf with a unique key in any library.
> > 
> > Don Tully
> > Tully Consulting LLC
> > 
> >