;+
; PROJECT:
;           SolarB EIS
;
; NAME:
;           DB_READ_STUDY_ALL
;
; PURPOSE:
;           Function to return ID, Acronym, Title and study Type info of
;           all line lists in the line list 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_study_all

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

st_db = STRARR(5,n)
FOR i = 1 , n[0] DO BEGIN

    st_db[0,i-1] = STRING(FORMAT='(I6.6)', dbval(i,'ID'))
    st_db[1,i-1] =                         dbval(i,'ACRONYM')
    st_db[2,i-1] =                         dbval(i,'TITLE')
    st_db[3,i-1] =                         dbval(i,'TYPE')
    st_db[4,i-1] =                         dbval(i,'WRITE_LOCKED')

ENDFOR

dbclose

RETURN , st_db

END