Expanded Description
| Topic |
Description |
| Name |
commenter |
| Synopsis |
/infobank/programs/dbase/misc/infobank/commenter.for |
| Description |
Subroutine to allow users to conveniently submit comments to
the Information Bank administrator.
|
| AUTHOR |
Clint Steele 2/10/95
|
| Reads |
read (5, '(q,a)', end = 99) Length, ALine(1:Length)
|
| Writes |
write (59, '(/,a,2x,a)') CurrentDate,
* UserAddress(1:UserAddressLength)
write (59, '(a)') CommentSource(1:SourceLength)
write (ALine, '(255x)')
write (59, '(a)') ALine(1:Length)
|
| Opens |
open (unit = 59,
* file = 'PMG$DISK:[PROGRAMS.DBASE]INFOBANK_COMMENTS.KEEP',
* access = 'APPEND',
* carriagecontrol = 'LIST',
* form = 'FORMATTED',
* iostat = ErrorFlag,
* status = 'UNKNOWN')
|
| Calls |
call date (CurrentDate)
call stringlen (UserAddress, UserAddressLength)
call stringlen (CommentSource, SourceLength)
call forerror (ErrorFlag)
call reportconstraints (59)
|
|
