get_datasets.pro (Documentation for /home/davin/idl/socware/)

;searches for the specified dataset abreviated string, e.g. 'AC_' in the specified db file
;returns an array of dataset names that meet the criteria
;
;Copyright 1996-2013 United States Government as represented by the 
;Administrator of the National Aeronautics and Space Administration. 
;All Rights Reserved.
;
;------------------------------------------------------------------
function get_datasets, dataset_list, db, no_string=no_string
if (n_elements(dataset_list) gt 0 and n_elements(db) gt 0) then begin
  for i = 0, n_elements(dataset_list)-1 do begin
     cmd = strarr(3)
     cmd(0) = "grep"
     cmd(1) = 'DATASET>'+dataset_list[i]
     cmd(2) = db
     spawn, cmd, /noshell, long_datasets
;print, 'DEBUG datasets found = ',long_datasets
     if (n_elements(long_datasets) ge 0) then begin
          if (n_elements(datasets_tmp) eq 0) then datasets_tmp = long_datasets else $
              datasets_tmp = [temporary(datasets_tmp),long_datasets]
     endif
  endfor
  if (n_elements(datasets_tmp) gt 0) then begin
     datasets = strmid(datasets_tmp,8)
     return, datasets
  endif else return, 'NO_DATASETS'
endif else begin
     print, 'please provide a valid DATASET abbreviation, e.g AC_ and/or a valid metadbase filename'
     return, 'NO_DATASETS'
 endelse
end