pro makecatinfotxt

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

common bigpdsblock

outfile = bigpdsstruct.outfilecatinfotxt

preamble = strarr(10)
i=0
preamble(i) = 'PDS_VERSION_ID         = PDS3' & i=i+1
preamble(i) = 'RECORD_TYPE            = STREAM' & i=i+1
preamble(i) = 'OBJECT                 = TEXT' & i=i+1
preamble(i) = '  PUBLICATION_DATE     = ' + $
 bigpdsstruct.pubdateyyyymmdd & i=i+1
preamble(i) = '  INTERCHANGE_FORMAT   = ASCII' & i=i+1
preamble(i) = '  NOTE                 = "Description of the CATALOG directory contents for' & i=i+1
preamble(i) = '                         the ' + $
 bigpdsstruct.volumenamemixedcase + '"' & i=i+1
preamble(i) = 'END_OBJECT             = TEXT' & i=i+1
preamble(i) = 'END' & i=i+1
preamble(i) = bigpdsstruct.blankstr

cattxt = strarr(29)
i=0
cattxt(i) = '                      CATALOG Directory Contents' & i=i+1
cattxt(i) = ' ' & i=i+1
cattxt(i) = 'The CATALOG directory contains high-level catalog objects for the' & i=i+1
cattxt(i) = bigpdsstruct.volumenamemixedcase + $
 '. These catalog objects are' & i=i+1
cattxt(i) = 'often updated as more precise information becomes available. For the' & i=i+1
cattxt(i) = 'latest versions of these files, please consult the Planetary Data' & i=i+1
cattxt(i) = 'System Data Set Catalog available on the PDS web site at:' & i=i+1
cattxt(i) = bigpdsstruct.blankstr & i=i+1
cattxt(i) = '        http://pds.jpl.nasa.gov/' & i=i+1
cattxt(i) = bigpdsstruct.blankstr & i=i+1
cattxt(i) = '(More information about contacting the PDS Central Node is available' & i=i+1
cattxt(i) = 'in the AAREADME.TXT file on this CD.)' & i=i+1
cattxt(i) = bigpdsstruct.blankstr & i=i+1
cattxt(i) = 'The following files are found in this directory:' & i=i+1
cattxt(i) = bigpdsstruct.blankstr & i=i+1
cattxt(i) = 'CATINFO.TXT  - The file you are now reading.' & i=i+1
cattxt(i) = bigpdsstruct.blankstr & i=i+1
cattxt(i) = 'DATASET.CAT  - Description of the' & i=i+1 
cattxt(i) = '               ' + bigpdsstruct.volumenamemixedcase + '.' & i=i+1
cattxt(i) = bigpdsstruct.blankstr & i=i+1
cattxt(i) = 'INST.CAT     - An overview of the accelerometer instrument on Odyssey.' & i=i+1
cattxt(i) = bigpdsstruct.blankstr & i=i+1
cattxt(i) = 'PERSON.CAT   - High-level catalog object for personnel officially' & i=i+1
cattxt(i) = '               responsible for the production and distribution of the' & i=i+1
cattxt(i) = '               ' + $
 bigpdsstruct.volumenamemixedcase + '.' & i=i+1
cattxt(i) = ' ' & i=i+1
cattxt(i) = 'REF.CAT      - High-level catalog object for references cited in the' & i=i+1
cattxt(i) = '               other catalog object files and documents on this CD.' & i=i+1
cattxt(i) = bigpdsstruct.blankstr & i=i+1
;help, i

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

i=0
while i lt n_elements(cattxt) do begin
if strlen(cattxt(i)) ge bigpdsstruct.maxstrlen then stop
cattxt(i) = cattxt(i) + bigpdsstruct.blankline
junk = strmid(cattxt(i),0,bigpdsstruct.maxstrlen)
cattxt(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

i=0
while i lt n_elements(cattxt) do begin
printf, lun1, cattxt(i)
i=i+1
endwhile

free_lun, lun1

end