Module QM_USER_TABLES

  Define Type QM_CHAN_TYPES
    Keyword CCMAIL, Nonnegatable, Description = "cc_*"
    Keyword GROUPWISE, Nonnegatable, Description = "wpo_*"
    Keyword INTERNET, Nonnegatable, Description = "*tcp_*"
    Keyword LOCAL, Nonnegatable, Description = "l"
    Keyword LOTUS_NOTES, Nonnegatable, Description = "ln_*"
    Keyword MAILBUS_400, Nonnegatable, Description = "xapi_*"
    Keyword MICROSOFT_MAIL, Nonnegatable, Description = "ff_*"
    Keyword NETDATA, Nonnegatable, Description = "netdata_*"
    Keyword NOVELL_MHS, Nonnegatable, Description = "mhs_*"
    Keyword OVVM, Nonnegatable, Description = "ovvm_*"
    Keyword PAGER, Nonnegatable, Description = "pager*"
    Keyword POPSTORE, Nonnegatable, Description = "popstore"
    Keyword SNADS, Nonnegatable, Description = "snads_*"
    Keyword TCPIP, Nonnegatable, Description = "*tcp_*"
    Keyword UUCP, Nonnegatable, Description = "vn_*"
    Keyword WORDPERFECT, Nonnegatable, Description = "wpo_*"
    Keyword X400, Nonnegatable, Description = "*x400*"
!+!%ifdef __VMS
    Keyword ALL_IN_1, Nonnegatable, Description = "mr*_*"
    Keyword BITNET, Nonnegatable, Description = "*bit_*"
    Keyword DECNET, Nonnegatable, Description = "d*"
    Keyword FAX, Nonnegatable, Description = "*g3*"
    Keyword MAILWORKS, Nonnegatable, Description = "mr*_*"
    Keyword MESSAGE_ROUTER, Nonnegatable, Description = "mr*_*"
    Keyword TEAMLINKS, Nonnegatable, Description = "mr*_*"
!+!%endif

  Define Verb DATE
    Routine DATE

  Define Verb DIRECTORY
    Routine DIRECTORY
    Parameter P1, Label = CHANNEL, Value (Type = QM_CHAN_TYPES)

  Define Verb EXIT
    Routine EXIT

  Define Verb HELP
    Routine HELP
    Parameter P1, Label = TOPIC, Value (Type = $REST_OF_LINE)

  Define Verb HISTORY
    Routine HISTORY
    Parameter P1, Label = MSGID, Value (List)
    Qualifier ALL, Nonnegatable
    Qualifier CONFIRM

  Define Verb QUIT
    Routine EXIT

  Define Verb READ
    Routine READ
    Parameter P1, Label = MSGID, Value (List)
    Qualifier ALL, Nonnegatable
    Qualifier CONFIRM
    Qualifier CONTENT, Default

  Define Verb RETURN
    Routine RETURN
    Parameter P1, Label = MSGID, Value (List)
    Qualifier ALL, Nonnegatable
    Qualifier CONFIRM
    Qualifier LOG
    Qualifier DEBUG
