XMXGRP1 ;ISC-SF/GMB-Group creation/enrollment (cont.) ;04/17/2002 14:10
Source file <XMXGRP1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| FAFMSGS(XMDUZ,XMGRP,XMTO,XMINSTR,ZTSK) | ; Create task to find and forward messages
; The following line can be deleted once we enable "A": |
|
| FAFTSK | ; Find and add/forward messages
|
|
| PROCESS | ;
|
|
| INIT | ;
|
|
| SAVFWD(XMX) | ;
|
|
| CHKADD(XMX) | ;
|
|
| ADDFWD(XMDUZ,XMGROUP,XMWHAT,XMFDATE,XMTDATE,XMX) | ;
|
|
| FWD(XMDUZ,XMZ,XMX) | ; Forward the message to the user
|
|
| ADD(XMDUZ,XMZ,XMX) | ; Add user(s) to message.
; XMX("FWDBY") |
|
| NOTIFY(XMG,XMNEWMBR) | ; If the group is restricted in any way,
; notify the organizer & coordinator of the new members. |
