Expanded Description
| Topic |
Description |
| Name |
typepaths4gaz |
| Synopsis |
/infobank/programs/gaz/gazboothill/typepaths4gaz/typepaths4gaz.for |
| Description |
Program to create list of data types and their /gazette/* pathnames.
|
| NOTES |
Expects results of TYPES4GAZ to exist
Typical execution time = instant
|
| AUTHOR |
Clint Steele 7/25/2000
|
| Reads |
read (90, '(a)', end = 99) DataType(TypeCount)
|
| 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)') CapString(1:Length3),
* DirPath(1:DirPathLength)
write (91, '(a,t30,a)') CapString(1:Length2),
* DirPath(1:DirPathLength)
write (91, '(a,t30,a)') CapString(1:Length1),
* DirPath(1:DirPathLength)
|
| Opens |
open (unit = 90,
* status = 'old',
* access = 'sequential',
* form = 'formatted',
* name = '/infobank/programs/keep/equiptypes.keep')
open (unit = 91,
* status = 'unknown',
* access = 'sequential',
* form = 'formatted',
* name = '/infobank/programs/keep/equiptypepaths.keep')
|
| 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 changecase ('CAPITALS', CapString)
call changecase ('CAPITALS', CapString)
call changecase ('CAPITALS', CapString)
|
|
