Expanded description
| Topic |
Description |
| Name |
items2analog |
| Synopsis |
/infobank2/programs/edit/items2analog/items2analog.for |
| Description |
Program to create <ID>.analog files from <#>.item files.
|
| Author |
Clint Steele 7/19/96
|
| Opens |
open (unit = 90,
* access = 'sequential',
* file = ItemPath(1:ItemPathLength),
* form = 'formatted',
* status = 'old')
open (unit = 91,
* access = 'append',
* file = OutPath(1:OutPathLength),
* form = 'formatted',
* status = 'unknown')
|
| Reads |
read (90, '(q,a)', end=999)
* ItemIDLength, ItemID(1:ItemIDLength)
read (90, '(q,a)') LocationLength,
* Location(1:LocationLength)
read (90, '(a)', end = 99) Other
read (ActivityID(3:4), '(i2)', err = 98)
* Year
read (ActivityID(4:5), '(i2)', err = 98)
* Year
|
| Writes |
write (Command, '(1024x)')
write (Command, '(1024x)')
write (ItemPath, 3) Loop/100, Loop
write (LongID, '(10x)')
write (ActivityID, '(255x)')
write (ItemID, '(255x)')
write (Location, '(255x)')
write (OutPath, '(255x)')
write (Other, '(1024x)')
write (Other, '(1024x)')
write (LongID, '(10x)')
write (ActivityID, '(255x)')
write (OutPath, '(255x)')
write (Other, '(1024x)')
write (LongID, 4) ActivityID(1:1),
* ActivityID(2:2), ActivityID(3:4),
* ActivityID(5:6)
write (OutDir, '(255x)')
write (OutDir, 55)
* ActivityID(1:1),
* ActivityID(1:ActivityIDLength)
write (OutPath, 5)
* ActivityID(1:1),
* ActivityID(1:ActivityIDLength),
* LongID(1:LongIDLength)
write (LongID, 4) ActivityID(1:1),
* ActivityID(2:3), ActivityID(4:5),
* ActivityID(6:7)
write (OutDir, '(255x)')
write (OutDir, 55)
* ActivityID(1:1),
* ActivityID(1:ActivityIDLength)
write (OutPath, 5)
* ActivityID(1:1),
* ActivityID(1:ActivityIDLength),
* LongID(1:LongIDLength)
write (OutPath, 6)
* ActivityID(1:ActivityIDLength)
write (OutPath, 6)
* ActivityID(1:ActivityIDLength)
write (91, '(a)' ) Divider
write (91, '(a)') ItemID(1:ItemIDLength)
write (91, '(a)') Location(1:LocationLength)
write (91, '(a)') Other(1:OtherLength)
|
| Calls |
call stringlen (Command, CommandLength)
call system (Command(1:CommandLength))
call stringlen (Command, CommandLength)
call system (Command(1:CommandLength))
call stringlen (ItemPath, ItemPathLength)
call stringlen (Other, OtherLength)
call stringlen (ActivityID, ActivityIDLength)
call changecase ('SMALLS',
* ActivityID(1:ActivityIDLength))
call stringlen (LongID, LongIDLength)
call stringlen (OutDir, OutDirLength)
call stringlen (OutPath, OutPathLength)
call stringlen (LongID, LongIDLength)
call stringlen (OutDir, OutDirLength)
call stringlen (OutPath, OutPathLength)
call stringlen (OutPath, OutPathLength)
call stringlen (OutPath, OutPathLength)
call system ('chmod 664 /infobank/*/*/meta/*.analog')
call system
* ('chmod 664 /infobank/programs/edit/items2analog/*.analog')
|
|
