Record Keys and Field Attributes SQL

SELECT r.recname, r.fieldname, l.longname, l.shortname, decode(f.fieldtype, 0, 'Character', 1, 'Long Character', 2, 'Number', 3, 'Signed Number', 4, 'Date', 5, 'Time', 6, 'Date Time', 8, 'Image', 9, 'Image Reference', ' ') fieldtype, f.LENGTH, decode(
  (SELECT 'Y'
   FROM pskeydefn k
   WHERE r.recname = k.recname AND r.fieldname = k.fieldname AND k.indexid = '_'), 'Y', 'Y', ' ')
KEY, decode(
  (SELECT ascdesc
   FROM pskeydefn k
   WHERE r.recname = k.recname AND r.fieldname = k.fieldname AND k.indexid = '_'), '1', 'Ascend', 0, 'Descend', ' ')
keytype, decode(
  (SELECT 'Y'
   FROM psrecfieldall rf
   WHERE rf.recname = r.recname AND rf.fieldname = r.fieldname AND bitand(rf.useedit, 256) > 0), 'Y', 'Y', ' ')
required
FROM psrecfieldall r, psdbfldlabl l, psdbfield f
WHERE r.fieldname = l.fieldname AND l.default_label = 1 AND r.fieldname = f.fieldname AND r.recname IN(Provide Record List)
ORDER BY r.recname, decode(
  (SELECT 'Y'
   FROM pskeydefn m
   WHERE r.recname = m.recname AND r.fieldname = m.fieldname AND m.indexid = '_'), 'Y', 'Y', ' ')
DESC;