Expanded description
| Topic |
Description |
| Name |
accessionlink |
| Synopsis |
/infobank/programs/dbase/accessionlink/accessionlink.for |
| Description |
(none) |
| Opens |
open (unit = HeadersFile,
* access = 'sequential',
* form = 'formatted',
* status = 'old',
* name = '/infobank/programs/keep/holdings_headers.keep')
open (unit = HoldingsFile,
* access = 'sequential',
* form = 'formatted',
* status = 'old',
* name = '/infobank/holdings/'//
* DBName(1:DBNameLength)//'.txt')
open (unit = UpdatedFile,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = '/tmp/accessionlink.'//
* DBName(1:DBNameLength)//'.txt')
|
| Reads |
read (HeadersFile, '(q,a)', end = 199)
* DBHeadLineLength, DBHeadLine(1:DBHeadLineLength)
read (HoldingsFile, '(q,a)', end = 299)
* RecordLength, Record(1:RecordLength)
|
| Writes |
write (UpdatedFile, '(a)')
* Record(2:RecordLength-1)
write (UpdatedFile, '(a)')
* UpdatedRecord(1:UpdatedRecordLength)
write (UpdatedFile, '(a)')
* Record(2:RecordLength-1)
|
| Calls |
call stringlen(AccessionNum, AccessionLength)
call stringlen(UpdatedAccession,
* UpdatedAccessionLength)
call stringlen(UpdatedRecord,
* UpdatedRecordLength)
call system ('/bin/rm /infobank/holdings/'//
* DBName(1:DBNameLength)//'.txt')
call system ('/bin/cp /tmp/accessionlink.'//
* DBName(1:DBNameLength)//
* '.txt /infobank/holdings/'//
* DBName(1:DBNameLength)//'.txt')
call system ('/bin/rm /tmp/accessionlink.'//
* DBName(1:DBNameLength)//
* '.txt')
|
|