Expanded description
| Topic |
Description |
| Name |
holdingsheaders |
| Synopsis |
/infobank/programs/dbase/holdingsheaders/holdingsheaders.for |
| Description |
Program to produce a table of the header records for
holdings databases.
|
| Author |
Clint Steele 11/10/05
|
| Opens |
open (unit = 90,
* access = 'sequential',
* form = 'formatted',
* status = 'old',
* name = '/infobank/programs/keep/holdings_list.keep')
open (unit = 91,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = '/infobank/programs/keep/holdings_headers.keep')
open (unit = 92,
* access = 'sequential',
* form = 'formatted',
* status = 'old',
* name = InFile(1:InFileLength))
open (unit = 92,
* access = 'sequential',
* form = 'formatted',
* status = 'old',
* name = InFile(1:InFileLength))
|
| Reads |
read (90, '(q,a)', end = 98)
* InFileLength, InFile(1:InFileLength)
read (92, '(q,a)') ALineLength, ALine(1:ALineLength)
read (90, '(q,a)', end = 99)
* InFileLength, InFile(1:InFileLength)
read (92, '(q,a)') ALineLength, ALine(1:ALineLength)
|
| Writes |
write (91, '(a)') '<table border="5" bgcolor="#ccffff">'
write (91, '(2x,a)') '<tr>'
write (91, '(4x,a)') '<td>database</td>'
write (91, '(4x,a)') '<td align="center"><b>'//
* Alphabet(Tab:Tab)//'</b></td>'
write (91, '(4x,a)') '<td align="center"><b>'//
* Alphabet(SuperTab:SuperTab)//
* Alphabet(Tab:Tab)//'</b></td>'
write (91, '(4x,a)') '<td align="center"><b>'//
* Alphabet(SuperTab:SuperTab)//
* Alphabet(Tab:Tab)//'</b></td>'
write (91, '(2x,a)') '</tr>'
write (ALine, '(2048x)')
write (91, '(2x,a)') '<tr>'
write (91, '(4x,a)') '<td><a href="http://'//
* 'walrus.wr.usgs.gov'//
* InFile(1:InFileLength)//
* '"><b>'//InFile(Slash+1:Dot-1)//'</b></a></td>'
write (91, '(4x,a)') '<td>'//
* ALine(Tabs(Loop)+1:Tabs(Loop+1)-1)//'</td>'
write (91, '(2x,a)') '</tr>'
|
| Calls |
call system ('/bin/ls -1 '//
* '/infobank/holdings/*.txt | '//
* 'grep -v unknown_locations.txt > '//
* '/infobank/programs/keep/holdings_list.keep')
call stringlen (ALine(1:ALineLength), ALineLength)
|
|