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

I hesitated to send the SQL because I was not attached to a 400 to test it
first.  My memory is really good, at least as far as I recall :)

I'm happy it was of help to you Charles.

Don Tully
Tully Consulting LLC

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx]On Behalf Of Wilt, Charles
Sent: Friday, February 04, 2005 2:36 PM
To: Midrange Systems Technical Discussion
Subject: 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
> >
> >

--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.