Expanded Description
| Topic |
Description |
| Name |
accessionlink |
| Synopsis |
/infobank/programs/dbase/accessionlink/accessionlink.for |
| Description |
program that generates accession link in
the appropriate holdings files if it has
accession number and corresponding pdf.
Alex Ma 4/18/2006
|
| Reads |
read (HeadersFile, '(q,a)', end = 199)
* DBHeadLineLength, DBHeadLine(1:DBHeadLineLength)
read (HoldingsFile, '(q,a)', end = 299)
* Record1Length, Record1(1:Record1Length)
|
| Writes |
write (UpdatedFile, '(a)')
* Record1(2:Record1Length-1)
write (UpdatedFile, '(a)')
* UpdatedRecord1(1:UpdatedRecord1Length)
write (UpdatedFile, '(a)')
* Record1(2:Record1Length-1)
|
| 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 = '/infobank/tmp/accessionlink.'//
* DBName(1:DBNameLength)//'.txt')
|
| Calls |
call stringlen(AccessionNum, AccessionLength)
call stringlen(UpdatedAccession,
* UpdatedAccessionLength)
call stringlen(UpdatedRecord1,
* UpdatedRecord1Length)
call system ('/bin/rm /infobank/holdings/'//
* DBName(1:DBNameLength)//'.txt')
call system ('/bin/cp /infobank/tmp/accessionlink.'//
* DBName(1:DBNameLength)//
* '.txt /infobank/holdings/'//
* DBName(1:DBNameLength)//'.txt')
call system ('/bin/rm /infobank/tmp/accessionlink.'//
* DBName(1:DBNameLength)//
* '.txt')
|
|
