RCRJR ;WISC/RFJ,TJK-nightly process, monthly data extractors ;1 Mar 98
Source file <RCRJR.m>
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Name | Comments | DBIA/ICR reference |
---|---|---|
START | ; start the nightly process
; called by PRCABJ |
|
QUEUE(ZTDESC,ZTRTN) | ; create taskmanager task
|
|
CLEANXMB | ; clean up old mailman messages generated by AR
|
|
GETXMZ(RCSUBJCT,RCVERIFY) | ; find a message to delete
; loop through a subject, execute a check on the message, kill it |
|
KILLXMZ(XMZ) | ; kills a message and responses
|
|
WARNKILL(RCXMZ) | ; enter response to the message warning the user the message
; will deleted on the first of the month |
|
LDATE(X) | ; DETERMINE CUT-OFF DATE FOR THE MONTH
|
|
LDAY(X) | ;SECOND LAST WORKDAY OF THE MONTH
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^RC(342 - [#342] | START+34 |
^RCD(340 - [#340] | START+36 |
^XMB(3.9 - [#3.9] | GETXMZ+4, GETXMZ+6, GETXMZ+7 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
% | WARNKILL+2~, WARNKILL+11* |
%H | WARNKILL+2~ |
%I | WARNKILL+2~ |
%X | QUEUE+1~ |
%Y | QUEUE+1~ |
DATA | GETXMZ+2~, GETXMZ+7* |
DT | START+5, START+9, START+27, START+30, START+38, GETXMZ+13, GETXMZ+18, WARNKILL+6 |
I | WARNKILL+2~ |
K | KILLXMZ+1~ |
MESSAGE | WARNKILL+2~, WARNKILL+11 |
MESSAGE(1 | WARNKILL+8* |
MESSAGE(2 | WARNKILL+9* |
MESSAGE(3 | WARNKILL+10* |
RCSUBJ | GETXMZ+2~, GETXMZ+3*, GETXMZ+4*, GETXMZ+6 |
RCSUBJCT | GETXMZ~, GETXMZ+3, GETXMZ+4 |
RCVERIFY | GETXMZ~, GETXMZ+8 |
RCXMZ | GETXMZ+2~, GETXMZ+5*, GETXMZ+6*, GETXMZ+7, GETXMZ+13, GETXMZ+18, GETXMZ+20, WARNKILL~, WARNKILL+11 |
SUBJECT | CLEANXMB+1~, CLEANXMB+4*, CLEANXMB+6, CLEANXMB+9*, CLEANXMB+11, CLEANXMB+14*, CLEANXMB+16 |
VERIFY | CLEANXMB+1~, CLEANXMB+5*, CLEANXMB+6, CLEANXMB+10*, CLEANXMB+11, CLEANXMB+15*, CLEANXMB+16 |
X | START+2~, START+30*, START+31, START+36, START+38, KILLXMZ+1~, LDATE~, LDATE+1*, LDATE+2*, LDATE+3* , LDATE+4, LDAY~, LDAY+1*, LDAY+2*, LDAY+3*, LDAY+4 |
>> X1 | START+38* |
>> X2 | START+38* |
XMABORT | KILLXMZ+1~, KILLXMZ+2*, KILLXMZ+3 |
XMKILL | KILLXMZ+1~, KILLXMZ+3 |
XMKILL("MSG" | KILLXMZ+2* |
XMKILL("RESP" | KILLXMZ+2* |
XMZ | KILLXMZ~, KILLXMZ+3 |
XMZ2 | WARNKILL+2~ |
Y | START+2~, QUEUE+1~, KILLXMZ+1~, WARNKILL+2~, WARNKILL+6*, WARNKILL+8, WARNKILL+10 |
ZTDESC | QUEUE~ |
>> ZTDTH | QUEUE+2* |
>> ZTIO | QUEUE+2* |
ZTRTN | QUEUE~ |
ZTSAVE | START+33~ |
ZTSAVE("RCDOC" | START+37*, START+39* |
ZTSK | QUEUE+1~ |