Expanded Description
| Topic |
Description |
| Name |
getonoffs4gaz |
| Synopsis |
/infobank/programs/gaz/gazboothill/getonoffs4gaz/getonoffs4gaz.for |
| Description |
Program to cat the .onoff. data type files into
gazette data type 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)')
write (92, '(a,1x,a)')
* TempPath(1:TempPathLength),
* DirPath(1:DirPathLength)//
* TempPath(Slash:TempPathLength)
write (92, '(a,1x,a)')
* TempPath(1:TempPathLength),
* DirPath(1:DirPathLength)//
* TempPath(Slash:TempPathLength)
write (92, '(a,1x,a)')
* TempPath(1:TempPathLength),
* DirPath(1:DirPathLength)//
* TempPath(Slash:TempPathLength)
write (92, '(a,1x,a)')
* TempPath(1:TempPathLength),
* DirPath(1:DirPathLength)//
* TempPath(Slash:TempPathLength)
|
| 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 = 92,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = '/infobank/programs/keep/onoffs4gaz.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 system ('/bin/rm /infobank/gazette/onoff/*/*/*/*.onoff.*')
call system ('/bin/rm /infobank/gazette/onoff/*/*/*.onoff.*')
call system ('/bin/rm /infobank/gazette/onoff/*/*.onoff.*')
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)//
* ' >
* '/tmp/catter.temp')
call system ('/bin/cp '//
* TempPath(1:TempPathLength)//
* ' '//
* DirPath(1:DirPathLength)//
* TempPath(Slash:TempPathLength))
call system ('/bin/cp '//
* TempPath(1:TempPathLength)//
* ' '//
* DirPath(1:DirPathLength)//
* TempPath(Slash:TempPathLength))
call system
* ('grep -v \!'//
* ' /infobank/programs/keep/infobank_files.keep | '//
* 'grep -h '//char(39)//InPath(1:InPathLength)//
* char(39)//
* ' >
* '/tmp/catter.temp')
call system ('/bin/cp '//
* TempPath(1:TempPathLength)//
* ' '//
* DirPath(1:DirPathLength)//
* TempPath(Slash:TempPathLength))
call system ('/bin/cp '//
* TempPath(1:TempPathLength)//
* ' '//
* DirPath(1:DirPathLength)//
* TempPath(Slash:TempPathLength))
|
|
