Expanded Description
| Topic |
Description |
| Name |
regions2idshtml |
| Synopsis |
/infobank/programs/html/regions2idshtml/regions2idshtml.for |
| Description |
Program to convert a list of regions into a script that
will generate <region>_ids.html files for
region ID.
|
| EXECUTION_TIME |
2 minutes
|
| AUTHOR |
Clint Steele 3/12/96
|
| Reads |
read (RegionList, '(q,a)', end = 99)
* IDLength, ID(1:IDLength)
|
| Writes |
write (Command, '(255x)')
write (Command, 2) SmallRegion(1:SmallRegionLength)
write (HtmlName, 5) SmallRegion(1:SmallRegionLength)
write (Title, '(a)')
* 'CMG Activities by Region ('//
* ID(Tab(8)+1:Tab(9)-1)//
* ')'
write (Path, 7) SmallRegion(1:SmallRegionLength)
write (IDHtml, '(2x,a)') '</t
|
| Opens |
open (unit = RegionList,
* access = 'sequential',
* file = '/infobank/programs/keep/gazette.keep',
* form = 'formatted',
* status = 'old')
open (unit = IDHtml,
* access = 'sequential',
* file = HtmlName,
* form = 'formatted',
* status = 'unknown')
|
| Calls |
call changecase ('SMALLS', SmallRegion)
call stringlen (SmallRegion, SmallRegionLength)
call system (Command)
call stringlen (Title, TitleLength)
call htmlhead (IDHtml, Title(1:TitleLength))
call includeit (IDHtml,
* '/infobank/programs/html/tools/activities.tabs')
call includeit (IDHtml,
* '/infobank/programs/html/tools/activities.regions.tabs')
call stringlen (Path, PathLength)
call sortids (IDHtml, 'regions2idshtml', OutputCount,
* Path(1:PathLength))
call htmlfoot (IDHtml, Path(1:PathLength))
|
|
