Expanded description
| Topic |
Description |
| Name |
listholdings |
| Synopsis |
/infobank/programs/dbase/listholdings/listholdings.for |
| Description |
Program to output a summary of the current WR CMG holdings
for an activity.
|
| Author |
Clint Steele 6/21/99
based on GAZREGIONS2HTML.FOR
|
| Opens |
open (unit = 90,
* status = 'old',
* form = 'formatted',
* access = 'sequential',
* name = '/infobank/programs/keep/equiptypes.keep')
open (unit = 92,
* status = 'unknown',
* form = 'formatted',
* access = 'sequential',
* name =
* DirPath(Loop)(1:DirPathLength(Loop))//'/'//
* SmallRegion(1:RegionLength)//
* '.holdings')
|
| Reads |
read (90, '(a)', end = 9) DataType(TypeCount)
read (91, '(t6,a)', end = 98)
* MapList(MapCount)
|
| Writes |
write (Level3(Loop), '(80x)')
write (Level3(Loop), '(80x)')
write (Level2(Loop), '(80x)')
write (Level3(Loop), '(80x)')
write (Level2(Loop), '(80x)')
write (Level1(Loop), '(80x)')
write (DirPath(Loop), '(255x)')
write (92, 15)
* CapRegion(1:RegionLength),
* DataType(Loop)(5:DataTypeLength(Loop)),
* DirPath(Loop)(1:DirPathLength(Loop)),
* SmallRegion(1:RegionLength)
write (92, 15)
* CapRegion(1:RegionLength),
* DataType(Loop)(3:DataTypeLength(Loop)),
* DirPath(Loop)(1:DirPathLength(Loop)),
* SmallRegion(1:RegionLength)
write (92, 15)
* CapRegion(1:RegionLength),
* DataType(Loop)(1:DataTypeLength(Loop)),
* DirPath(Loop)(1:DirPathLength(Loop)),
* SmallRegion(1:RegionLength)
write (92, 124)
* Level1(TypeLoop)(1:Length1(TypeLoop))//'/'//
* Level2(TypeLoop)(3:Length2(TypeLoop))//'/'//
* Level3(TypeLoop)(5:Length3(TypeLoop))//'/'//
* SmallRegion(1:RegionLength)//'.html',
* Level3(TypeLoop)(5:Length3(TypeLoop))
write (92, 227)
* Level1(TypeLoop)(1:Length1(TypeLoop))//'/'//
* Level2(TypeLoop)(3:Length2(TypeLoop))//'/'//
* SmallRegion(1:RegionLength)//'.html',
* Level2(TypeLoop)(3:Length2(TypeLoop))
write (92, 127)
* Level1(TypeLoop)(1:Length1(TypeLoop))//'/'//
* Level2(TypeLoop)(3:Length2(TypeLoop))//'/'//
* SmallRegion(1:RegionLength)//'.html',
* Level2(TypeLoop)(3:Length2(TypeLoop))
write (92, 228)
* Level1(TypeLoop)(1:Length1(TypeLoop))//'/'//
* SmallRegion(1:RegionLength)//'.html',
* Level1(TypeLoop)(1:Length1(TypeLoop))
write (92, 128)
* Level1(TypeLoop)(1:Length1(TypeLoop))//'/'//
* SmallRegion(1:RegionLength)//'.html',
* Level1(TypeLoop)(1:Length1(TypeLoop))
|
| Calls |
call stringlen (DataType(Loop), DataTypeLength(Loop))
call stringlen (Level1(Loop), Length1(Loop))
call stringlen (Level2(Loop), Length2(Loop))
call stringlen (Level3(Loop), Length3(Loop))
call stringlen (DirPath(Loop), DirPathLength(Loop))
call stringlen (TempDataType(Loop), TempLength(Loop))
call stringlen (DirPath(Loop), DirPathLength(Loop))
call stringlen (TempDataType(Loop), TempLength(Loop))
call stringlen (DirPath(Loop), DirPathLength(Loop))
call stringlen (TempDataType(Loop), TempLength(Loop))
call stringlen (DataType(Loop), DataTypeLength(Loop))
call stringlen (GazRegionList(GazRegion), TitleLength)
call stringlen (DataType(TypeLoop),
* DataTypeLength(TypeLoop))
|
|
