FUNCTION sdcobj, gzfile,  destdir=destdir, keepfits=keepfits, level2=level2, maxplotsz=maxplotsz, $
               noprep=noprep
  ;; A quick and dirty way to create a sotobs, xrtobs or eisobs object based
  ;; on filename found with the Hinode SDC archive (i.e. filename without file
  ;; extention(s)). The object will get the SDC default paths.
  
  filename = prune_filename(gzfile[0])
  objtype = gt_sdc_objtype(filename, level2=level2)
  instrtxt = strmid(objtype,0,3)
       
  IF instrtxt EQ 'EIS' THEN BEGIN
     hk_cmn_dir = '~/cmn/'
     hk_status_dir = '~/status/'
  ENDIF
  
  IF instrtxt EQ 'IRI' THEN instrtxt = 'IRIS'
  destdir = '~/icons/'+instrtxt+'/'
  IF ~file_test(destdir) THEN file_mkdir, destdir
  
  IF instrtxt EQ 'SP1' THEN BEGIN
     destdir = '~/icons/SOT_SP/' + strmid(filename,4,15) + '/'
     file_mkdir, destdir
  ENDIF
  
  IF instrtxt EQ 'SPL' THEN BEGIN
     destdir = '~/icons/SOT_SPL2/'
     file_mkdir, destdir
  ENDIF
  
  osdc=obj_new('osdc')
  osdc->condition,'FILE: ,'+filename
  osdc->order,''
  osdc->search,out
  gzfile = osdc->paths(out,/fetch)
  obj_destroy,osdc
  
  IF keyword_set(destdir) THEN destdir = destdir
   
  return, obj_new(objtype, gzfile, destdir=destdir, $
                  hk_cmn_dir=hk_cmn_dir, hk_status_dir=hk_status_dir, $
                  keepfits=keepfits, maxplotsz=maxplotsz, noprep=noprep)
END