Expanded Description
| Topic |
Description |
| Name |
costcenters |
| Synopsis |
/infobank/programs/dbase/costcenters/costcenters.for |
| Description |
Program to generate a list of Scientists and associated
cost centers from .item files.
|
| AUTHOR |
Clint Steele 4/11/2003
|
| Reads |
read (90, '(q,a)', end = 99)
* ALineLength, ALine(1:ALineLength)
|
| Writes |
write (Item, '(a,i3.3,a,i5.5,a)')
* '/infobank/items/',
* Loop/100,
* '00s/',
* Loop,
* '.item'
write (91, '(a)')
* '! *** INFORMATION FROM COST CENTER DATABASE ***'
write (91, '(a)')
* ALine(1:ALineLength)
|
| Opens |
open (unit = 90,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = Item(1:ItemLength))
open (unit = 91,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = '/infobank/tmp/costcenters.temp')
|
| Calls |
call stringlen (Item, ItemLength)
call system ('/bin/mv /infobank/tmp/costcenters.temp '//
* Item(1:ItemLength))
|
|
