PRO eis_report_raster_db

s = fix_zdbase(/EIS)
;replace call to astrolib
defsysv,'!DEBUG', 0
defsysv,'!TEXTUNIT', 0
defsysv,'!PRIV', 2
defsysv,'!TEXTOUT', EXIST = EXIST

status = eis_open_db(/RASTER)
items  = db_info('entries')
print  , STRJOIN(['number of items = ',STRCOMPRESS(items[0])],/SINGLE)
OPENW  , lun , '$HOME/eis_raster_report_db.txt' , /GET_LUN,width=200
PRINTF , lun , 'RA_ID   RA_acronym            RA_duration'           +  $
               '             RA_volume             '                 +  $
               '  RA_DR (kBits/s)  Comp'

FOR i = 1, items[0]    DO BEGIN

    index   = STRCOMPRESS(i,/REMOVE_ALL)
    percent = STRCOMPRESS( (i/FLOAT(items[0]))*100. ,/REMOVE_ALL)
    print,STRJOIN(['Item: ',index,'  ',percent,'%  done.'],/SINGLE)
    ra = db_read_raster_entry(i)

    idValue = STRING(format='(I06)',ra.id)

    format  = '(A-8,A-22,I-12,A-12,I-12,F-12.2,F-17.4,I-2)'
    ra_line = STRING(format=format,idValue,ra.acronym,ra.duration,      $
                      sec2dhms(ra.duration/1000.),ra.volume,            $
                      ra.volume/1024.,                                  $
                      (ra.volume/1024.)/(ra.duration/1000.) ,           $
                       ra.compression)


    PRINTF , lun , ra_line

;stop

;
;
;
;    FOR j = 0, st_array[i].nRasters - 1 DO BEGIN
;
;        sra = db_read_studyraster_entry(i , j)
;        st_array[i].studyRasters[j] = sra
;
;    ENDFOR



ENDFOR

CLOSE , lun

;stop

END