•SELECT trim(DBFLDP) AS LIBRARY, trim(DBFFDP) AS
FILENAME,
• trim(DBXTXT) AS SHORT_DESC, DBKPOS AS OFF,
•
trim(DBKFLD) AS KEY_FIELD,
DBITYP AS DATATYPE,
•
DBITXT AS FIELD_DESC, DBICLN AS CLEN,
•
DBINLN AS NLEN, DBINSC AS
NSCLE, DBXREL AS REL,
•
DBkORD AS DIR, dbxatr AS TYPE,
•
(CASE dbxunq WHEN 'U' THEN 'Y' ELSE 'N' END) AS UNIQUE
• From QSYS.QADBLDEP
•
LEFT JOIN QSYS.QADBXLFI
• ON (dbffdp=dbxfil AND
dbfldp=dbxlib)
•
LEFT JOIN QSYS.QADBKATR
• ON (DBFFDP=DBKFIL AND
• DBFLDP = DBKLIB AND
• DBFRDP = DBKFMT)
•
LEFT JOIN QSYS.QADBIATR
• ON (DBFFDP=DBIFIL AND DBFLDP=DBILIB
AND
• DBFRDP=DBIFMT AND
DBKFLD=DBIFLD)
• WHERE dbflib=? AND dbffil=? AND
DBXATR IN ('LF','IX') AND dbxrel='Y'
• ORDER BY FILENAME, OFF