Expanded Description
| Topic |
Description |
| Name |
types4gaz |
| Synopsis |
/infobank/programs/gaz/gazboothill/types4gaz/types4gaz.for |
| Description |
Program to genarate regions/<area>.ty
lists of types of data in an area.
|
| NOTES |
Expects results of AREAS4GAZ to exist
Typical execution time = 3 minutes
|
| AUTHOR |
Clint Steele 7/25/2000
|
| Reads |
read (90, '(q,a)', end = 99)
* ALineLength, ALine(1:ALineLength)
|
| Writes |
write (Command, '(2048x)')
|
| Opens |
open (unit = 90,
* access = 'sequential',
* form = 'formatted',
* status = 'old',
* name = '/tmp/types4gaz.temp')
|
| Calls |
call system ('/bin/ls -1 '//
* '/infobank/gazette/metadata/regions/*.metadata >
* '/tmp/types4gaz.temp')
call stringlen (Command, CommandLength)
call system (Command(1:CommandLength))
call system ('/bin/mv '//
* '/infobank/gazette/metadata/regions/*.typelist '//
* '/infobank/gazette/typelist/')
|
