;+
; PROJECT
;           SolarB EIS
;
; NAME
;           DB_READ_LINELIST_ALL
;
; PURPOSE
;           Function to return ID, Acronym and Title 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_linelist_all

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

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

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

ENDFOR

dbclose

RETURN , ll_db

END