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
|
| 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)') '<t
write (91, '(4x,a)') '<td>database
write (91, '(4x,a)') '<td align="center">
* Alphabet(Tab:Tab)//'</b>
write (91, '(4x,a)') '<td align="center">
* Alphabet(SuperTab:SuperTab)//
* Alphabet(Tab:Tab)//'</b>
write (91, '(4x,a)') '<td align="center">
* Alphabet(SuperTab:SuperTab)//
* Alphabet(Tab:Tab)//'</b>
write (91, '(2x,a)') '</t
write (ALine, '(2048x)')
write (91, '(2x,a)') '<t
write (91, '(4x,a)') '<td><a href="h
* 'walrus.wr.usgs.gov'//
* InFile(1:InFileLength)//
* '"><b>'//InFile(Slash+1:Dot-1)//'</
write (91, '(4x,a)') '<td&
* ALine(Tabs(Loop)+1:Tabs(Loop+1)-1)//'</t
write (91, '(2x,a)') '</t
|
| 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))
|
| 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)
|
|
