Expanded Description
| Topic |
Description |
| Name |
commaker |
| Synopsis |
/infobank/programs/dbase/misc/infobank/commaker.for |
| Description |
Subroutine to create a command procedure that extracts
infomation for InfoBank.
|
| AUTHOR |
Clint Steele 2/3/95
|
| Reads |
read (5, '(a1)', end = 99) Answer
|
| Writes |
write (FileName, '(255x)')
write (FileName, 533) UserName(1:UserNameLength)
write (ReadMeName, 300) UserName(1:UserNameLength)
write (90, 532) UserName(1:UserNameLength)
write (91, 603)
write (91, 604) CurrentDate, UserName(1:UserNameLength),
* UserAddress(1:UserAddressLength)
write (91, 605)
write (91, 608)
write (91, 609)
write (90, 537) FileList(Loop)(Bracket+1:BangLength)
write (90, 528) FileList(Loop)(3:BangLength),
* FileList(Loop)(Bracket+1:BangLength)
write (91, 602) FileList(Loop)(Bracket+1:BangLength),
* FileList(Loop)(Bang+1:Length)
write (TempFile, '(100x)')
write (90, 534) CopyFileName(1:Length)
write (5, 626) FileMegs / 1000.0, DiskMegs / 1000.0
write (5, 627) FileMegs, DiskMegs
write (5, 628) FileMegs * 1000.0, DiskMegs * 1000.0
write (5, 623)
write (90, 620) Expiration,
* FileList(Loop)(Bracket+1:Blank-1)
write (5, 629) FileMegs / 1000.0
write (5, 630) FileMegs
write (5, 631) FileMegs * 1000.0
write (Command, 536) CopyFileName(1:Length)
write (6, 535) UserName(1:UserNameLength)
|
| Opens |
open (unit = 90,
* file = FileName,
* access = 'SEQUENTIAL',
* carriagecontrol = 'LIST',
* form = 'FORMATTED',
* status = 'NEW')
open (unit = 91,
* file = ReadMeName(1:ReadMeLength),
* access = 'SEQUENTIAL',
* carriagecontrol = 'LIST',
* form = 'FORMATTED',
* status = 'NEW')
|
| Calls |
call stringlen (UserName, UserNameLength)
call stringlen (UserAddress, UserAddressLength)
call stringlen (UserName, UserNameLength)
call stringlen (ReadMeName, ReadMeLength)
call date (CurrentDate)
call stringlen (UserAddress, UserAddressLength)
call stringlen (SearchOptionKeep, Length)
call reportconstraints (91)
call stringlen (SaveOption, Length)
call reportoutputs (SaveOptionKeep)
call stringlen (FileList(Loop)(1:Bang-1), BangLength)
call stringlen (FileList(Loop), Length)
call stringlen (CopyFileName, Length)
call lib$getdvi (dvi$_freeblocks,, 'pmg$proc', DiskSize,,)
call stringlen (FileList(Loop)(1:Bang-1), BangLength)
call stringlen (FileList(Loop), Length)
call yesno ('[Y]N', Answer)
call stringlen (CopyFileName, Length)
call stringlen (Command, Length)
call changecase ('CAPITALS', Answer)
call commenter ('FTP message')
|
|
