pro makeindxinfotxt

; Paul Withers, 2008.01.18
; Center for Space Physics, Boston University

; Make INDXINFO.TXT file

common bigpdsblock

;maxstrlen = bigpdsstruct.maxstrlen
;blankline = bigpdsstruct.blankline
outfile = bigpdsstruct.outfileindxinfotxt
pdsversionid = bigpdsstruct.pdsversionid

preamble = strarr(35)

i=0
preamble(i) = 'PDS_VERSION_ID        = PDS3' & i=i+1
preamble(i) = 'RECORD_TYPE           = FIXED_LENGTH' & i=i+1
preamble(i) = 'RECORD_BYTES          = 80' & i=i+1
preamble(i) = ' ' & i=i+1
preamble(i) = 'OBJECT                = TEXT' & i=i+1
preamble(i) = '  PUBLICATION_DATE    = ' + $
 bigpdsstruct.pubdateyyyymmdd & i=i+1
preamble(i) = '  NOTE                = "Description of the INDEX directory"' & i=i+1
preamble(i) = 'END_OBJECT            = TEXT' & i=i+1
preamble(i) = 'END' & i=i+1
preamble(i) = ' ' & i=i+1
preamble(i) = ' ' & i=i+1
preamble(i) = '             INDEX Directory Contents' & i=i+1
preamble(i) = ' ' & i=i+1
preamble(i) = 'The INDEX subdirectory on this CD-ROM volume contains the completed' & i=i+1
preamble(i) = 'index of data files on this volume. The index file is in ASCII.  Each line' & i=i+1
preamble(i) = 'is delimited with a carriage-return (ASCII 13) line-feed (ASCII 10) pair.' & i=i+1
preamble(i) = ' ' & i=i+1
preamble(i) = 'INDEX.LBL' & i=i+1
preamble(i) = '     A PDS label file describing INDEX.TAB.' & i=i+1
preamble(i) = ' ' & i=i+1
preamble(i) = 'INDEX.TAB' & i=i+1    
preamble(i) = '     An ASCII table containing an index of data files on this CD.' & i=i+1
preamble(i) = '     Columns included in this table are:' & i=i+1
preamble(i) = '        PATH_NAME' & i=i+1
preamble(i) = '        FILE_NAME' & i=i+1
preamble(i) = '        PRODUCT_ID' & i=i+1
preamble(i) = '        DATA_SET_ID' & i=i+1
preamble(i) = '        TARGET_NAME' & i=i+1
preamble(i) = '        START_TIME' & i=i+1
preamble(i) = '        STOP_TIME' & i=i+1
preamble(i) = '        RECORD_BYTES' & i=i+1
preamble(i) = '        FILE_RECORDS' & i=i+1
preamble(i) = ' ' & i=i+1
preamble(i) = 'INDXINFO.TXT' & i=i+1
preamble(i) = '     The file you are now reading.' & i=i+1



i=0
while i lt n_elements(preamble) do begin
if strlen(preamble(i)) ge bigpdsstruct.maxstrlen then stop
preamble(i) = preamble(i) + bigpdsstruct.blankline
junk = strmid(preamble(i),0,bigpdsstruct.maxstrlen)
preamble(i) = junk
i=i+1
endwhile
  
junk=''
openw, lun1, outfile, /get_lun
 
i=0
while i lt n_elements(preamble) do begin
printf, lun1, preamble(i)
i=i+1
endwhile

free_lun, lun1

end