PRO mdiquality, mdi_id, mag_qual, mag_vld
;
;
name='/auto/PAS/D136007/mdi_log/lev1.5/fd_M_96m_01d/00'+mdi_id+'.record.rdb'
info=strarr(17) 
mag_qual=strarr(15) & mag_vld=strarr(15)
mag_qual(0)='NoFile'
openr, 1, name, error=errout
if errout eq 0 then begin 
readf, 1, info
pos=strpos(info(0),'QUALITY')
val=strpos(info(0),'QUAL_VLD')
for i=0, 14 do begin
    quality=strmid(info(i+2), pos, 10)
    qualvld=strmid(info(i+2), val, 10)
    mag_qual(i)=quality & mag_vld(i)=qualvld
endfor 
endif
print, mag_qual
close,1
end