Expanded Description
| Topic |
Description |
| Name |
numbers2pubs |
| Synopsis |
/infobank/programs/dbase/numbers2pubs/numbers2pubs.for |
| Description |
Program to add ID: information to .pub files from .nums control files.
|
| AUTHOR |
Clint Steele 2/11/98
|
| Reads |
read (90, '(q,a)', end = 99) NumLength, NumLine(1:NumLength)
read (91, '(q,a)') IDLength, IDLine(1:IDLength)
read (91, '(q,a)', end = 4) IDLength,
* IDLine(1:IDLength)
|
| Writes |
write (92, 2) NumLine(Space+1:NumLength)
write (92, '(a)') IDLine(1:IDLength)
write (92, '(a)') IDLine(1:IDLength)
write (89, '(a)') IDLine(1:IDLength)
write (89, '(a)') NumLine(1:NumLength)
|
| Opens |
open (unit = 89,
* access = 'sequential',
* status = 'unknown',
* form = 'formatted',
* file = '/infobank/programs/dbase/numbers2pubs/'//
* InName(1:Dot)//'conflicts')
open (unit = 91,
* access = 'sequential',
* status = 'old',
* form = 'formatted',
* file = '/infobank/pubs/'//NumLine(1:2)//'/'//
* NumLine(1:Space-1)//'.pub')
open (unit = 92,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* file = '/infobank/tmp/numbers2pubs.temp')
|
| Calls |
call openem (1,0)
call stringlen (NumLine(1:NumLength), NumLength)
call system
* ('/bin/cp /infobank/tmp/numbers2pubs.temp '//
* '/infobank/pubs/'//NumLine(1:2)//'/'//
* NumLine(1:Space-1)//'.pub')
call system
* ('/bin/rm /infobank/tmp/numbers2pubs.temp')
|
|
