PRO RDMSS,time,code,id,files
;+
;
; NAME:	
;	RDMSS
; PURPOSE: 
;	Reads in the time ordered list of message codes and id's
; CATEGORY: 
;	Verification Tool
; CALLING SEQUENCE: 
;	RDMSS,time,code,id,files
; INPUTS:  
;	None	
; OPTIONAL INPUT PARAMETERS:
;	None
; OUTPUTS:
;	time:   Array of mission time
;	code: 	Array of codes of messages
;  	id:	Array of message id's
;	files:  Array of filenames in time order
;	All arrays have the same length as the time ordered list.
; OPTIONAL OUTPUT PARAMETERS:
;	None
; KEYWORDS:
;	None
; COMMON BLOCKS:
;	None
; SIDE EFFECTS:
;	None
; RESTRICTIONS:
;	None
; EXAMPLE:
;	rdmss,time,code,id,files
; PROCEDURE:
;	Determine size of input file: post/timelist/t01mess.list
;	Read in file
; MODIFICATION HISTORY:
;	Created by Laura Ellen Dafoe 14 June 1994
;	Tested by Laura Ellen Dafoe on test log: baptism2 on 25 June 1994
;		Manually compared 1st and last records of time ordered list
;		with arrays read in by this routine.
; REVISION:
;	1.0
;
;----------------------------------------------------------------------------
;		        D I S R S O F T    (C)  1 9 9 4      
;-----------------------------------------------------------------------------
;-
if (N_PARAMS(0) NE 4) then print,'Call is RDMSS,time,code,id,files'
InputFile='post/timelist/t01mess.list'
spawn,'wc '+InputFile,WC
NumLines=fix(strmid(WC,0,7))
NumLines=NumLines(0)

openr,infile,Inputfile,/get_lun
time=fltarr(NumLines)
code=intarr(NumLines)
id=lonarr(NumLines)
files=strarr(NumLines)
id1=0L
a=''

for i=0,NumLines-1 do begin
	readf,infile,format='(g10.4,i7,i17,x,a48)',time1,code1,id1,a
	time(i)=time1
	code(i)=code1
	id(i)=id1
	files(i)=strtrim(a,2)
endfor

free_lun,infile

end