XMAPHOST ;ISC-SF/GMB-Print to Message (P-MESSAGE) ;07/29/2003 14:36
Source file <XMAPHOST.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
GET() | ; Read a record from the file
|
|
KSETS | ;
|
|
EN | ; Entry from pre-open execute of P-MESSAGE entry in DEVICE file.
; If the user chooses to queue the print, we don't want this code ; (the pre-open execute of the DEVICE file entry) to execute when ; the task starts up. |
|
EOF | ;
|
|
SETUP(XMAPHOST,XMABORT) | ; Entry during close-execute (called from READ^XMAPHOST)
|
|
PUT(XMZZ,XMREC,XMI) | ; Put data into message.
|
|
READ | ; Entry from close-execute of P-MESSAGE entry in TERMINAL TYPE file.
; Read the host file into a message, send it, erase it. ; Read record from file. ; Each time <CR> is found in record it ends a message line. |
|
GETSUBJ(XMSUBJ,XMAPHOST,XMABORT) | ;
|
|
EOFERR | ;
|
|
CLEANUP | ;
|
|
CHKSUBJ(XMSUBJ) | ;
|
|
SENDMSG(XMDUZ,XMZ,XMINSTR) | ; Here, send the message to recipient.
|
|
FROMWHOM(XMDUZ,XMINSTR,XMABORT) | ;
|
|
ADDRMSG(XMDUZ,XMINSTR,XMABORT) | ;
|
|
INIT(XMDUZ,XMAPHOST,XMINSTR,XMABORT) | ;
|
Name | Field # of Occurrence |
---|---|
UNWIND^%ZTER | EOFERR+2 |
$$EZBLD^DIALOG | GETSUBJ+3, FROMWHOM+7, FROMWHOM+8, FROMWHOM+9, ADDRMSG+10, READ+20, EOF+5, EOF+8, EOF+9, SENDMSG+1 , SENDMSG+8 |
BLD^DIALOG | FROMWHOM+12 |
^DIR | FROMWHOM+13 |
ERROR^XM | INIT+8 |
CHKBSKT^XMD | ADDRMSG+6 |
SETFROM^XMD | INIT+3 |
SUBJ^XMJMS | GETSUBJ+4 |
TOWHOM^XMJMT | ADDRMSG+10 |
FWD^XMKP | SENDMSG+5 |
SEND^XMKP | SENDMSG+7 |
CHECK^XMKPL | SENDMSG+9 |
INITAPI^XMVVITAE | INIT+7 |
CHKADDR^XMXADDR | ADDRMSG+7 |
CLEANUP^XMXADDR | EN+12, SETUP+8, CLEANUP+2 |
INIT^XMXADDR | ADDRMSG+2 |
$$XMSUBJ^XMXPARM | CHKSUBJ+5 |
CRE8XMZ^XMXSEND | READ+17 |
MOVEPART^XMXSEND | SENDMSG+2 |
$$CTRL^XMXUTIL1 | PUT+1 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^TMP("XM-MESS" | EN+4!, EN+9*, EN+10*, EN+11*, READ+5, READ+8, READ+9, READ+10, READ+11! |
^TMP("XMERR" | CHKSUBJ+2!, CHKSUBJ+6!, ADDRMSG+3!, CLEANUP+4! |
^TMP("XMY" | EN+9, READ+8* |
^TMP("XMY0" | EN+10, READ+9* |
^XMB(1 - [#4.3] | READ+15 |
^XMB(3.7 - [#3.7] | FROMWHOM+3 |
^XMB(3.9 - [#3.9] | READ+30!, PUT+1*, EOF+3*, EOF+4*, EOF+5*, EOF+6*, EOF+10*, SENDMSG+3* |
Name | Line Occurrences |
---|---|
$$GET | READ+25, READ+37 |
ADDRMSG | SETUP+6 |
CHKSUBJ | GETSUBJ+1 |
CLEANUP | EOF+12 |
EOF | READ+38, EOFERR+1 |
FROMWHOM | SETUP+5 |
GETSUBJ | SETUP+4 |
INIT | SETUP+3 |
KSETS | EN+13, SETUP+9, CLEANUP+3 |
PUT | READ+34 |
SENDMSG | EOF+11 |
SETUP | EN+8, READ+6 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
%H | EN+5~ |
>> %ZISQUIT | EN+8* |
>> DDS | EN+6 |
DIR | FROMWHOM+6~ |
DIR("A" | FROMWHOM+7* |
DIR("B" | FROMWHOM+11* |
DIR(0 | FROMWHOM+10* |
>> DIRUT | FROMWHOM+13 |
>> DUOUT | EN+8* |
DUZ | INIT+1, SENDMSG+3 |
IO | READ+22, PUT+2 |
IO("Q" | EN+8! |
IO(0 | READ+19, PUT+2, EOF+8, EOF+9 |
>> IONOFF | CLEANUP+1* |
>> POP | EN+8* |
U | FROMWHOM+3, READ+15, SENDMSG+3 |
X | FROMWHOM+6~, READ+4~, GET+1~ |
XMABORT | EN+7~, EN+8, SETUP~, SETUP+2*, SETUP+3, SETUP+4, SETUP+5, SETUP+6, SETUP+7, INIT~ , INIT+3*, INIT+5, INIT+8*, GETSUBJ~, GETSUBJ+4, FROMWHOM~, FROMWHOM+13*, ADDRMSG~, ADDRMSG+9, ADDRMSG+10 , READ+4~, READ+5, READ+6 |
XMAPHOST | EN+7~, EN+8, EN+11, SETUP~, SETUP+3, SETUP+4, INIT~, GETSUBJ~, READ+4~, READ+6 , READ+10* |
XMAPHOST("CHG | XMDUZ" , INIT+2*, INIT+4!, ADDRMSG+5, KSETS+3 |
XMAPHOST("EOF" | READ+25, READ+26, READ+29*, READ+33 |
XMAPHOST("SET | XMDUZ" , INIT+1*, KSETS+1, XMV" , INIT+6*, KSETS+2 |
XMAPHOST("XMDUZ" | INIT+10*, READ+12 |
XMAPHOST("XMINSTR" | SETUP+7*, READ+14 |
XMAPHOST("XMSUB" | GETSUBJ+5*, READ+17 |
XMAPHOST("XMV" | INIT+11*, READ+13 |
XMAPHOST("XMZBACK" | INIT+9*, CLEANUP+5 |
>> XMAPSUBJ | SETUP+4 |
XMDISPI | KSETS+2! |
XMDUN | KSETS+2! |
XMDUZ | SETUP+3, SETUP+5, SETUP+6, INIT~, INIT+1*, INIT+2, INIT+3, INIT+10, FROMWHOM~, FROMWHOM+1 , FROMWHOM+3, ADDRMSG~, ADDRMSG+5, ADDRMSG+7, ADDRMSG+10, READ+12*, EOF+11, SENDMSG~, SENDMSG+2, SENDMSG+5 , SENDMSG+7, KSETS+1!, KSETS+3* |
XMERR | CHKSUBJ+2!, CHKSUBJ+6!, ADDRMSG+3!, CLEANUP+4! |
XMFROM | FROMWHOM+2~, FROMWHOM+3*, FROMWHOM+5, FROMWHOM+11 |
XMI | READ+4~, READ+23*, READ+25, READ+30*, READ+34, PUT~, PUT+1*, PUT+2, EOF+2, EOF+3* , EOF+4*, EOF+5*, EOF+6*, EOF+10 |
XMINSTR | SETUP+1~, SETUP+3, SETUP+5, SETUP+6, SETUP+7, INIT~, INIT+3, FROMWHOM~, ADDRMSG~, ADDRMSG+6 , ADDRMSG+7, ADDRMSG+10, READ+4~, READ+14*, EOF+11, SENDMSG~, SENDMSG+2, SENDMSG+5, SENDMSG+7 |
XMINSTR("FROM" | INIT+4, FROMWHOM+1, FROMWHOM+5*, FROMWHOM+14*, SENDMSG+3, SENDMSG+4 |
XMINSTR("SELF | BSKT" , SENDMSG+4 |
XMLEN | READ+4~, READ+32*, READ+37* |
XMLIMIT | READ+4~, READ+15*, READ+16*, READ+25, EOF+2, EOF+5, EOF+8 |
XMME | FROMWHOM+6~, FROMWHOM+8*, FROMWHOM+10, FROMWHOM+11 |
>> XMMG | INIT+3 |
XMNOSEND | KSETS+2! |
XMNULCNT | READ+4~, READ+23*, READ+27*, READ+28, READ+31* |
XMPOST | FROMWHOM+6~, FROMWHOM+9*, FROMWHOM+10, FROMWHOM+11, FROMWHOM+14 |
XMPRIV | KSETS+2! |
>> XMQUIET | EN+6, GETSUBJ+2, FROMWHOM+4, ADDRMSG+4, READ+18, PUT+2, EOF+7, EOF+9, SENDMSG+1, SENDMSG+8 |
XMREC | READ+4~, READ+23*, READ+25*, READ+26, READ+32, READ+33, READ+34, READ+35*, READ+36, READ+37* , PUT~, PUT+1 |
>> XMSUB | SETUP+4 |
XMSUBJ | GETSUBJ~, GETSUBJ+1, GETSUBJ+3*, GETSUBJ+4, GETSUBJ+5, CHKSUBJ~, CHKSUBJ+1!, CHKSUBJ+3*, CHKSUBJ+4*, CHKSUBJ+5* , CHKSUBJ+6! |
XMV | INIT+1!, INIT+8, INIT+11, READ+13*, KSETS+2! |
XMV("ERROR" | INIT+8 |
XMV("NAME" | INIT+5, GETSUBJ+3 |
XMY | ADDRMSG+6, ADDRMSG+7, ADDRMSG+8! |
XMY( | ADDRMSG+5* |
XMZ | SENDMSG~, SENDMSG+1, SENDMSG+2, SENDMSG+3, SENDMSG+5, SENDMSG+7, CLEANUP+5* |
XMZBACK | INIT+9! |
XMZZ | READ+4~, READ+17, READ+30, READ+34, PUT~, PUT+1, EOF+3, EOF+4, EOF+5, EOF+6 , EOF+10, EOF+11, CLEANUP+5 |
Y | FROMWHOM+6~, FROMWHOM+14, GET+1~, GET+3*, GET+4 |
>> ZTQUEUED | EN+6, INIT+8, GETSUBJ+2, FROMWHOM+4, ADDRMSG+4, READ+18, PUT+2, EOF+7, EOF+9, SENDMSG+1 , SENDMSG+8 |