Expanded Description
| Topic |
Description |
| Name |
gettotals4gaz |
| Synopsis |
/infobank/programs/gaz/gazboothill/gettotals4gaz/gettotals4gaz.for |
| Description |
Program to cat the .onoff. data type files into
gazette data type .total_temp files.
|
| NOTES |
Expects existing directory structure from DIRS4GAZ
Typical execution time = 6 minutes
|
| AUTHOR |
Clint Steele 7/25/2000
|
| Reads |
read (90, '(a)', end = 99) DataType(TypeCount)
read (88, '(t13,q,a)', end = 988)
* TempPathLength,
* TempPath(1:TempPathLength)
read (88, '(t13,q,a)', end = 988)
* TempPathLength,
* TempPath(1:TempPathLength)
read (88, '(t13,q,a)', end = 987)
* TempPathLength,
* TempPath(1:TempPathLength)
read (88, '(t13,q,a)', end = 987)
* TempPathLength,
* TempPath(1:TempPathLength)
|
| Writes |
write (Level3, '(80x)')
write (Level3, '(80x)')
write (Level2, '(80x)')
write (Level3, '(80x)')
write (Level2, '(80x)')
write (Level1, '(80x)')
write (DirPath, '(255x)')
write (91, '(a,t30,a)') Level3(5:Length3),
* DirPath(1:DirPathLength)
write (91, '(a,t30,a)') Level2(3:Length2),
* DirPath(1:DirPathLength)
write (91, '(a,t30,a)') Level1(1:Length1),
* DirPath(1:DirPathLength)
write (InPath, '(255x)')
|
| Opens |
open (unit = 90,
* status = 'old',
* access = 'sequential',
* form = 'formatted',
* name = '/infobank/programs/keep/equiptypes.keep')
open (unit = 91,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = '/infobank/programs/keep/types4gaz.keep')
open (unit = 88,
* access = 'sequential',
* form = 'formatted',
* status = 'old',
* name = '/tmp/catter.temp')
open (unit = 88,
* access = 'sequential',
* form = 'formatted',
* status = 'old',
* name = '/tmp/catter.temp')
|
| Calls |
call stringlen (DataType(Loop), TypeLength)
call stringlen (Level1, Length1)
call stringlen (Level2, Length2)
call stringlen (Level3, Length3)
call stringlen (DirPath, DirPathLength)
call stringlen (DirPath, DirPathLength)
call stringlen (DirPath, DirPathLength)
call stringlen (InPath, InPathLength)
call stringlen (InPath, InPathLength)
call stringlen (InPath, InPathLength)
call stringlen (InPath, InPathLength)
call system
* ('grep -v \!'//
* ' /infobank/programs/keep/infobank_files.keep | '//
* 'grep -h '//char(39)//InPath(1:InPathLength)//
* char(39)//' | '//
* 'grep -v /infobank/gazette/'//
* ' >
* '/tmp/catter.temp')
call system ('/bin/cat '//
* TempPath(1:TempPathLength)//
* ' >
* DirPath(1:DirPathLength)//'/'//
* Level3(5:Length3)//'.total_temp')
call system ('/bin/cat '//
* TempPath(1:TempPathLength)//
* ' >&g
* DirPath(1:DirPathLength)//'/'//
* Level3(5:Length3)//'.total_temp')
call system ('/bin/cat '//
* DirPath(1:DirPathLength)//'/'//
* Level3(5:Length3)//'.total_temp'//
* ' >
* '/infobank/gazette/total/'//
* Level1(1:Length1)//'/'//
* Level2(3:Length2)//'/'//
* Level2(3:Length2)//'.total_temp')
call system ('/bin/cat '//
* DirPath(1:DirPathLength)//'/'//
* Level3(5:Length3)//'.total_temp'//
* ' >&g
* '/infobank/gazette/total/'//
* Level1(1:Length1)//'/'//
* Level2(3:Length2)//'/'//
* Level2(3:Length2)//'.total_temp')
call system ('/bin/cat '//
* DirPath(1:DirPathLength)//'/'//
* Level3(5:Length3)//'.total_temp'//
* ' >
* '/infobank/gazette/total/'//
* Level1(1:Length1)//'/'//
* Level1(1:Length1)//'.total_temp')
call system ('/bin/cat '//
* DirPath(1:DirPathLength)//'/'//
* Level3(5:Length3)//'.total_temp'//
* ' >&g
* '/infobank/gazette/total/'//
* Level1(1:Length1)//'/'//
* Level1(1:Length1)//'.total_temp')
call system
* ('grep -v \!'//
* ' /infobank/programs/keep/infobank_files.keep | '//
* 'grep -h '//char(39)//InPath(1:InPathLength)//
* char(39)//' | '//
* 'grep -v /infobank/gazette/'//
* ' >
* '/tmp/catter.temp')
call system ('/bin/cat '//
* TempPath(1:TempPathLength)//
* ' >
* DirPath(1:DirPathLength)//'/'//
* Level2(3:Length2)//'.total_temp')
call system ('/bin/cat '//
* TempPath(1:TempPathLength)//
* ' >&g
* DirPath(1:DirPathLength)//'/'//
* Level2(3:Length2)//'.total_temp')
call system ('/bin/cat '//
* DirPath(1:DirPathLength)//'/'//
* Level2(3:Length2)//'.total_temp'//
* ' >
* '/infobank/gazette/total/'//
* Level1(1:Length1)//'/'//
* Level1(1:Length1)//'.total_temp')
call system ('/bin/cat '//
* DirPath(1:DirPathLength)//'/'//
* Level2(3:Length2)//'.total_temp'//
* ' >&g
* '/infobank/gazette/total/'//
* Level1(1:Length1)//'/'//
* Level1(1:Length1)//'.total_temp')
call system ('/bin/rm '//
* '/infobank/gazette/total/regions/regions.total*')
call system ('/bin/cat '//
* '/infobank/gazette/total/*/*.total_temp'//
* ' >
* '/infobank/gazette/total/regions.total_temp')
call system ('/bin/mv '//
* '/infobank/gazette/total/regions.total_temp '//
* '/infobank/gazette/total/regions/regions.total_temp')
|
|
