;+
; NAME:
;     SRSP_DUMPREC
; PURPOSE:
;     Dumps the scan header information from an SRSP data file
; CATEGORY:
;     SRSP APC DATA-HANDLING
; CALLING SEQUENCE:
;     srsp_dumprec,filename
; INPUTS:
;     filename  the name of a valid SRSP data (.ARC) file
; OPTIONAL (KEYWORD) INPUT PARAMETERS:
; ROUTINES CALLED:
; OUTPUTS:
; COMMENTS:
; SIDE EFFECTS:
; RESTRICTIONS:
; MODIFICATION HISTORY:
;     Written 21-Jan-2002 by Dale E. Gary
;-

pro srsp_dumprec,filename

   if (n_elements(filename) eq 0) then filename = 'c:\working\daily.arc'
   lun = srsp_openarc(filename,a,nrec)
   if (lun eq 0) then return

   for i = 0, nrec-1 do begin
      data = getdata(i,a)
      tls = srsp_tl_decode(data)
      if (tls.segmentcode eq 1) then begin
         print,'Record ',i,' is HEADER for ',tls.scancode,' '+tls.date+tls.timstr
      endif
      if (tls.nrc eq 0) then begin
         free_lun,lun
         return
      endif
   endfor
   free_lun,lun
end