Expanded Description
| Topic |
Description |
| Name |
pubs2info |
| Synopsis |
/infobank/programs/dbase/pubs2info/pubs2info.for |
| Description |
Program to divide publist.keep into <activity>.publications
|
| AUTHOR |
Clint Steele 3/10/2000 .for
|
| Reads |
read (90, '(q,a)', end = 99) Length, ALine(1:Length)
|
| Writes |
write (LongID, 2) ALine(13:13), ALine(14:14),
* ALine(15:16), ALine(17:18)
write (LongID, 2) ALine(13:13), ALine(14:15),
* ALine(16:17), ALine(18:19)
write (91, '(a)') ALine(1:11)
write (88, '(a)') ALine(1:Length)
|
| Opens |
open (unit = 90,
* access = 'sequential',
* form = 'formatted',
* status = 'old',
* name = '/infobank/programs/keep/publist.keep')
open (unit = 91,
* access = 'append',
* form = 'formatted',
* status = 'unknown',
* name = '/infobank/'//
* ShortID(1:1)//'/'//
* ShortID(1:IDLength)//'/meta/'//
* LongID(1:IDLength+3)//'.publications')
|
| Calls |
call system ('/bin/rm /infobank/?/*/meta/*.publications')
call stringlen (ALine(1:Length), Length)
call changecase ('SMALLS', ALine(1:Length))
|
|
