Expanded description
| Topic |
Description |
| Name |
findbydate2html |
| Synopsis |
/infobank/programs/html/findbydate2html/findbydate2html.for |
| Description |
Program to find activity ID by date
Author
Alex Ma 9/28/06
|
| Opens |
open (unit = 87,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = '/infobank/programs/html'//
* '/findbydate2html/jdindex.html')
open (unit = 95,
* access = 'sequential',
* form = 'formatted',
* status = 'old',
* name = '/tmp/dates.temp')
open (unit = JDFile,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = '/infobank/programs/html/'//
* 'findbydate2html/datelist/'//
* CharJD//'.html')
|
| Reads |
read (95, '(q,a)', end = 199)
* InfoLength, Info(1:InfoLength)
read (Info(10:11), '(i)') StartMonth
read (Info(13:14), '(i)') StartDay
read (Info(16:19), '(i)') StartYear
read (Info(25:27), '(i)') StartJD
read (Info(34:35), '(i)') EndMonth
read (Info(37:38), '(i)') EndDay
read (Info(40:43), '(i)') EndYear
read (Info(49:51), '(i)') EndJD
|
| Writes |
write (87, '(4x,a)') '</td>'
write (87, '(2x,a)') '</tr>'
write (87, '(a)') '</table>'
write (87, '(2x,a)') '<table>'
write (CharJD, '(i3.3)') JDCount
write (87, '(4x,a)') '<tr>'
write (87, '(6x,a)') '<td>'
write (87, '(6x,a)') '<a href="http://walrus.wr.usgs.gov'//
* '/infobank/programs/html/findbydate2html/datelist/'//
* CharJD//'.html">'//CharJD//'</a>'
write (87, '(6x,a)') '</td>'
write (87, '(4x,a)') '</tr>'
write (87, '(2x,a)') '</table>'
write (CharJD, '(i3.3)') CurrentJD
write (JDFile, '(4x,a)') '</td>'
write (JDFile, '(2x,a)') '</tr>'
write (JDFile, '(a)') '</table>'
write (JDFile, '(a)') '<table>'
write (JDFile, '(2x,a)') '<tr>'
write (JDFile, '(4x,a)') '<td>'
write (JDFile, '(6x,a)') Info(1:9)
write (JDFile, '(4x,a)') '</td>'
write (JDFile, '(2x,a)') '</tr>'
write (JDFile, '(a)') '</table>'
|
| Calls |
call htmlhead (87, 'JD Index')
call includeit (87,
* '/infobank/programs/html/tools/home.tabs')
call includeit (87,
* '/infobank/programs/html/tools/home.uses.tabs')
call includeit (87,
* '/infobank/programs/html/tools/home.cmgstaff.tabs')
call includeit (87,
* '/infobank/programs/html/tools/home.cmgfacilities.tabs')
call includeit (87,
* '/infobank/programs/html/tools/home.cmgdirections.tabs')
call includeit (87,
* '/infobank/programs/keep/contents.keep')
call stringlen (Path, PathLength)
call htmlfoot (87, Path(1:PathLength))
call system ('/bin/cat /infobank/'//
* Alphabet(AlphaCount:AlphaCount)//
* '/*/meta/*.dates > /tmp/dates.temp')
call system ('/bin/cat /infobank/'//
* Alphabet(AlphaCount:AlphaCount)//
* '/*/meta/*.dates >> /tmp/dates.temp')
call stringlen (Path, PathLength)
call htmlhead (JDFile, 'Activities By Date: JD '//CharJD)
call includeit (JDFile,
* '/infobank/programs/html/tools/home.tabs')
call includeit (JDFile,
* '/infobank/programs/html/tools/home.uses.tabs')
call includeit (JDFile,
* '/infobank/programs/html/tools/home.cmgstaff.tabs')
call includeit (JDFile,
* '/infobank/programs/html/tools/home.cmgfacilities.tabs')
call includeit (JDFile,
* '/infobank/programs/html/tools/home.cmgdirections.tabs')
call includeit (JDFile,
* '/infobank/programs/keep/contents.keep')
call htmlfoot (JDFile, Path(1:PathLength))
|
|
