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~ |