|
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 > > > >> > I've got a physical file that was defined without a unique key. > > Is there some way to tell if some logical over that physical > has a unique > key? > > Of course I could always do it the hard way: > 1) Look at the source or the DSPFD output for every logical > 2) Try to write some duplicate records. > > But I'm wondering if there's someplace on the system that tracks if a > physical file has some unique key defined somewhere. > > Thanks, > > > Charles Wilt > iSeries Systems Administrator / Developer > Mitsubishi Electric Automotive America > ph: 513-573-4343 > fax: 513-398-1121 > > > -- > 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. > > -- 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.
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.