Expanded Description
| Topic |
Description |
| Name |
pubs2publications |
| Synopsis |
/infobank/programs/dbase/pubs2publications/pubs2publications.for |
| Description |
Program to create <ID>.publications files from <#>
|
| AUTHOR |
Clint Steele 7/19/96
|
| Reads |
read (CommaUnit, '(q,a)', end = 399)
* ItemPathLength, ItemPath(1:ItemPathLength)
read (90, '(t6,q,a)', end = 399)
* CommaLength, Other(1:CommaLength)
read (ChangesUnit, '(q,a)', end = 299)
* ItemPathLength, ItemPath(1:ItemPathLength)
read (ChangesUnit, '(q,a)') ActivityIDLength,
* ActivityID(1:ActivityIDLength)
read (ActivityID(3:4), '(i2)', err = 98)
* Year
read (ActivityID(4:5), '(i2)', err = 98)
* Year
read (90, '(a)', end = 99) Other
|
| Writes |
write (Command, '(1024x)')
write (Command, 201) Loop
write (ChangesUnit, '(a)') ItemPath(1:ItemPathLength)
write (ChangesUnit, '(a)') Other(CommaStart:CommaEnd)
write (Command, '(1024x)')
write (Command, '(1024x)')
write (LongID, '(10x)')
write (ActivityID, '(255x)')
write (ItemID, '(255x)')
write (OutPath, '(255x)')
write (Other, '(1024x)')
write (LongID, '(10x)')
write (ActivityID, '(255x)')
write (OutPath, '(255x)')
write (Other, '(1024x)')
write (LongID, 4) ActivityID(1:1),
* ActivityID(2:2), ActivityID(3:4),
* ActivityID(5:6)
write (OutDir, '(255x)')
write (OutDir, 55)
* ActivityID(1:1),
* ActivityID(1:ActivityIDLength)
write (OutPath, 5)
* ActivityID(1:1),
* ActivityID(1:ActivityIDLength),
* LongID(1:LongIDLength)
write (LongID, 4) ActivityID(1:1),
* ActivityID(2:3), ActivityID(4:5),
* ActivityID(6:7)
write (OutDir, '(255x)')
write (OutDir, 55)
* ActivityID(1:1),
* ActivityID(1:ActivityIDLength)
write (OutPath, 5)
* ActivityID(1:1),
* ActivityID(1:ActivityIDLength),
* LongID(1:LongIDLength)
write (OutPath, 6)
* ActivityID(1:ActivityIDLength)
write (OutPath, 6)
* ActivityID(1:ActivityIDLength)
write (91, '(a)' ) Divider
write (OtherAN, '(1024x)')
write (OtherAU, '(1024x)')
write (OtherBA, '(1024x)')
write (OtherBK, '(1024x)')
write (OtherCL, '(1024x)')
write (OtherCT, '(1024x)')
write (OtherID, '(1024x)')
write (OtherII, '(1024x)')
write (OtherPB, '(1024x)')
write (OtherPP, '(1024x)')
write (OtherPU, '(1024x)')
write (OtherPY, '(1024x)')
write (OtherRN, '(1024x)')
write (OtherSN, '(1024x)')
write (OtherSO, '(1024x)')
write (OtherTI, '(1024x)')
write (OtherOT, '(1024x)')
write (Other, '(1024x)')
write (OtherRN, '(1024x)')
write (OtherII, '(1024x)')
write (OtherSN, '(1024x)')
write (OtherRN, '(1024x)')
write (OtherII, '(1024x)')
write (OtherSN, '(1024x)')
write (91, '(a, 5x, a)') CodeAU, OtherAU(1:Length)
write (91, '(a, 5x, a)') CodeAU, OtherBA(1:Length)
write (91, '(a, 5x, a)') CodeAU, OtherCL(1:Length)
write (91, '(a, 5x, a)') CodeTI, OtherTI(1:Length)
write (91, '(a, 5x, a)') CodeTI, OtherBK(1:Length)
write (91, '(a, 5x, a)') CodeTI, OtherCT(1:Length)
write (91, '(a)') CodeRN
write (91, '(a)') CodePB
write (91, '(a)') CodeOther
|
| Opens |
open (unit = CommaUnit,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* file = '/infobank/tmp/pubs2publications.tmp')
open (unit = ChangesUnit,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* file = '/infobank/tmp/pubs2publications.temp')
open (unit = 90,
* access = 'sequential',
* file = ItemPath(1:ItemPathLength),
* form = 'formatted',
* status = 'old')
open (unit = ChangesUnit,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* file = '/infobank/tmp/pubs2publications.temp')
open (unit = 90,
* access = 'sequential',
* file = ItemPath(1:ItemPathLength),
* form = 'formatted',
* status = 'old')
open (unit = 91,
* access = 'append',
* file = OutPath(1:OutPathLength),
* form = 'formatted',
* status = 'unknown')
|
| Calls |
call stringlen (Command, CommandLength)
call system (Command(1:CommandLength))
call stringlen (Command, CommandLength)
call system (Command(1:CommandLength))
call stringlen (Command, CommandLength)
call system (Command(1:CommandLength))
call changecase ('SMALLS',
* ActivityID(1:ActivityIDLength))
call stringlen (LongID, LongIDLength)
call stringlen (OutDir, OutDirLength)
call stringlen (OutPath, OutPathLength)
call stringlen (LongID, LongIDLength)
call stringlen (OutDir, OutDirLength)
call stringlen (OutPath, OutPathLength)
call stringlen (OutPath, OutPathLength)
call stringlen (OutPath, OutPathLength)
call stringlen (Other(1:), OtherLength)
call stringlen (OtherPB, Length)
call stringlen (OtherAU, Length)
call stringlen (OtherBA, Length)
call stringlen (OtherCL, Length)
call stringlen (OtherPY, Length)
call stringlen (OtherTI, Length)
call stringlen (OtherBK, Length)
call stringlen (OtherCT, Length)
call stringlen (OtherSN, Length)
call stringlen (OtherII, Length)
call stringlen (OtherPP, Length)
call stringlen (OtherPU, Length)
call stringlen (OtherOT, Length)
call stringlen (OtherBA, Length)
call stringlen (OtherBK, Length)
call stringlen (OtherCL, Length)
call stringlen (OtherCT, Length)
call stringlen (OtherSO, Length)
call stringlen (OtherAN, Length)
call stringlen (OtherID, Length)
call system ('chmod 664 /infobank/*/*/meta/*.publications'//
* ' >& /dev/nul
call system ('chmod 664 /infobank/programs/dbase/'//
* 'pubs2publications/*.publications'//
* ' >& /dev/nul
|
|
