;+
; PROJECT
;           SolarB EIS
;
; NAME
;           DB_READ_RASTER_ALL
;
; PURPOSE
;           Function to return info of all rasters in the raster 
;           database
;
; CATEGORY
;           EIS Technical Planning
;           Database
;
; INPUTS
;           none
;
; WRITTEN
;           John A Rainnie, RAL, Jan-2006
;
; MODIFICATION HISTORY
;           v0.1 JAR 10-Feb-2006
;               Using eis_open_db function
;-
;************************************************************************
FUNCTION db_read_raster_all

status = eis_open_db(/RASTER)
n      = db_info('entries')

ra_db = STRARR(3,n)
FOR i = 1 , n[0] DO BEGIN

    ra_db[0,i-1] = STRING(FORMAT='(I6.6)', dbval(i,'ID'))
    ra_db[1,i-1] =                         dbval(i,'ACRONYM')
    ra_db[2,i-1] =                         dbval(i,'TITLE')

ENDFOR

dbclose

RETURN , ra_db

END