Expanded Description
| Topic |
Description |
| Name |
mailmetafile |
| Synopsis |
/infobank/programs/dbase/misc/infobank/mailmetafile.for |
| Description |
Subroutine to create a new or modify an existing metafile.
|
| AUTHOR |
Clint Steele 1/25/95
|
| Reads |
read (5, '(a)', end = 99) ActivityID
read (5, '(q,a)', end = 99) OptionLength,Option(1:OptionLength)
read (Option, '(i)', err = 200, iostat = Oops) OptionValue
|
| Writes |
write (Suffix, '(10x)')
write (FileName, 2) ActivityID(1:1), ActivityID(1:ActivityLength),
* ActivityID(1:ActivityLength), Suffix(1:SuffixLength)
write (6, 3) UserAddress(1:AddressLength)
write (Command, 4) FileName(1:NameLength)
write (6, 3) UserAddress(1:AddressLength)
write (Command, 4) FileName(1:NameLength)
|
| Opens |
open (unit = 88,
* file = FileName,
* access = 'SEQUENTIAL',
* carriagecontrol = 'LIST',
* form = 'FORMATTED',
* status = 'OLD',
* iostat = Oops,
* readonly,
* shared)
|
| Calls |
call stringlen (ActivityID, ActivityLength)
call changecase ('CAPITALS', ActivityID)
call helper ('ACTIVITYIDS', '??')
call helper ('ACTIVITYIDS', '?')
call commenter ('MailMetaFile')
call changecase ('CAPITALS', Option)
call helper ('MAILFILEMENU','??')
call helper ('MAILFILEMENU','?')
call commenter ('MailFiles Menu')
call stringlen (Suffix, SuffixLength)
call stringlen (UserAddress, AddressLength)
call stringlen (FileName, NameLength)
call stringlen (Command, CommandLength)
call stringlen (UserAddress, AddressLength)
call stringlen (FileName, NameLength)
call stringlen (Command, CommandLength)
|
|
