RE: Determine if a uniquely keyed logical exists for a givenphysi cal

Charles,

I believe you need to test for "U" or "V" in the unique column...   You
might want to check to be sure you're not missing something...

Eric DeLong
Sally Beauty Company
MIS-Project Manager (BSG)
940-297-2863 or ext. 1863



-----Original Message-----
From: Wilt, Charles [mailto:CWilt@xxxxxxxxxxxx]
Sent: Friday, February 04, 2005 1:55 PM
To: Midrange Systems Technical Discussion
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.