pro filelist,dd_type
;
;
if dd_type eq 0 then begin  ; database selection is BDB
   filesearch = '*.BDB'
   files = findfile (concat_dir((chklog('BATSE_BDB'))(0),filesearch), count=count)
   if count eq 0 then begin
      print,'No BDB files found.'
      goto,getout
   endif else begin
      print, ' '
      print, 'List of available BDB files:'
      print, '(File names indicate date of file - YYMMDD.BDB)'
      print, ' '
      for i=0,count-1 do begin
         bracket = strpos(files(i), ']')
         print, i+1, '.   ', strmid (files(i), bracket+1, 25)
      endfor
   endelse 
endif else begin  ; database selection is FDB
   date = ' '
   read, 'Enter YY/MM/DD of interest: (press return to abort) ', date
   if date eq '' then goto,getout
   date = atime(utime(date))  ; make sure it is regular format (e.g. not YY/M/D)
   case 1 of
   dd_type eq 1: filetype = 'FDB'
   dd_type eq 2: filetype = 'CONT'
   dd_type eq 3: filetype = 'DISCSP' 
   endcase
   parse_atime, date, year=year, month=month, day=day, /string
   filesearch= year + month + day + '*.' + filetype + '*'
   files = findfile (concat_dir((chklog('BATSE_'+filetype))(0),filesearch), count=count)
;
   if count eq 0 then begin
      print, ' '
      print,'No ', filetype, ' files on requested day. (Wildcard name = ', $
         filesearch, ')'
      goto,getout
   endif else begin
      print, ' '
      print, 'The following ', filetype, ' files are available:'
      print, '(File names indicate start time of file and flare number.)'
      print, ' '
      for i = 0,count-1 do begin
         bracket = strpos(files(i), ']')
         print, i+1, '.   ', strmid (files(i), bracket+1, 50)
      endfor
   endelse
endelse
;
getout:
return&end