Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: XMA3

Package: MailMan

Routine: XMA3


Information

XMA3 ;ISC-SF/GMB-XMCLEAN, XMAUTOPURGE ;04/18/2002 07:09

Source Information

Source file <XMA3.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
MailMan 5 (AUDIT,DONTPURG,USERSTAT)^XMA30  AUDTPURG^XMA32  (CHKAUDT,INITAUDT)^XMA32A  MAILBOX^XMUT4  KILLMSG^XMXUTIL  
VA FileMan 4 ($$EZBLD,BLD,MSG)^DIALOG  WAIT^DICD  ^DIK  ^DIR  
Kernel 2 $$S^%ZTLOAD  ($$DOW,$$FMADD,$$FMTE)^XLFDT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
MailMan 4 XMAUTOPURGE  XMCLEAN  XMPURGE  XMSTAT  

Entry Points

Name Comments DBIA/ICR reference
EN ;
STAT ;
SCAN ; PURGE MESSAGES
PURGEIT(XMPARM) ;
INIT(XMIEN,XMPARM,XMKILL,XMABORT) ;
GETPARMS(XMPARM) ;
PDATE(XMDAYS,XMDEFALT) ; Subtract so many days from today and return that date.
FINISH(XMIEN,XMCRE8,XMKILL,XMCNT,XMABORT) ;
MPURGE(XMCRE8,XMPARM,XMKILL,XMCNT,XMABORT) ;
PURGE(XMZ,XMKILL) ; Purge message and responses
KILLRESP(XMZ,XMKILL) ; Kill response
KILLMSG(XMZ,XMKILL) ; Kill message
CLEAN ; Clean various files
CSTAT ; Clean Statistics file audits - delete records more than 2 years old
CMBOX ; Clean the mailbox file
CWASTE(XMDUZ,XMCNT,XMABORT) ; Clean a user's WASTE basket
CARRIVE ; Clean the postmaster's ARRIVING basket

External References

Name Field # of Occurrence
$$S^%ZTLOAD MPURGE+8, CWASTE+3
$$EZBLD^DIALOG SCAN+26, CMBOX+6, CWASTE+9
BLD^DIALOG SCAN+5, SCAN+13, SCAN+16, SCAN+25, GETPARMS+19, FINISH+10
MSG^DIALOG SCAN+22, GETPARMS+20, FINISH+11
WAIT^DICD SCAN+29
^DIK CSTAT+8, CARRIVE+7, CARRIVE+12
^DIR SCAN+4, SCAN+28, SCAN+31
$$DOW^XLFDT GETPARMS+9
$$FMADD^XLFDT PDATE+2
$$FMTE^XLFDT GETPARMS+16, GETPARMS+17, GETPARMS+18
AUDIT^XMA30 STAT+1, SCAN+3
DONTPURG^XMA30 INIT+7
USERSTAT^XMA30 STAT+2
AUDTPURG^XMA32 INIT+6
CHKAUDT^XMA32A FINISH+13
INITAUDT^XMA32A INIT+8
MAILBOX^XMUT4 INIT+3
KILLMSG^XMXUTIL KILLRESP+3, KILLMSG+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: SCAN+21
Function Call: WRITE
  • Prompt: !
  • Line Location: SCAN+23
Function Call: WRITE
  • Prompt: !!,"*** Stopping prematurely per user request ***"
  • Line Location: FINISH+3
Function Call: WRITE
  • Prompt: !
  • Line Location: FINISH+9
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X>40
  • Line Location: MPURGE+7
Function Call: WRITE
  • Prompt: XMCNT,"."
  • Line Location: MPURGE+7
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X>40
  • Line Location: CWASTE+2
Function Call: WRITE
  • Prompt: XMCNT,"."
  • Line Location: CWASTE+2
Routine Call
  • DIALOG
  • Line Location:
    • SCAN+26
    • CMBOX+6
    • CWASTE+9
Routine Call
  • DIALOG
  • Line Location:
    • SCAN+5
    • SCAN+13
    • SCAN+16
    • SCAN+25
    • GETPARMS+19
    • FINISH+10
Routine Call
  • DIALOG
  • Line Location:
    • SCAN+22
    • GETPARMS+20
    • FINISH+11
Routine Call
  • DIR
  • Line Location:
    • SCAN+4
    • SCAN+28
    • SCAN+31

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^XMB(3.7 - [#3.7] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP("XM" FINISH+1!, MPURGE+11
^XMB("NETNAME" GETPARMS+11
^XMB(1 - [#4.3] SCAN+12, INIT+3, GETPARMS+4, GETPARMS+10, CARRIVE+2
^XMB(3.7 - [#3.7] MPURGE+10, KILLRESP+2, CMBOX+4, CWASTE+4, CWASTE+7!, CWASTE+8!, CWASTE+9*, CWASTE+10*, CWASTE+11, CARRIVE+3
, CARRIVE+5, CARRIVE+14*, CARRIVE+15
^XMB(3.9 - [#3.9] INIT+5, GETPARMS+16, MPURGE+3, MPURGE+4, MPURGE+5, MPURGE+9!, MPURGE+12, MPURGE+14, PURGE+3, PURGE+4
, KILLRESP+1, CARRIVE+6, CARRIVE+10
^XMBS(4.2999 - [#4.2999] CSTAT+4, CSTAT+7

Label References

Name Line Occurrences
$$PDATE GETPARMS+5, GETPARMS+6, GETPARMS+13, CARRIVE+2
CARRIVE CMBOX+2
CMBOX CLEAN+2
CSTAT CLEAN+1
CWASTE CMBOX+5
EN SCAN+1
FINISH PURGEIT+4
GETPARMS SCAN+24, INIT+2
INIT PURGEIT+2
KILLMSG PURGE+6
KILLRESP PURGE+5
MPURGE PURGEIT+3
PURGE MPURGE+15
PURGEIT EN+2, SCAN+30
STAT SCAN+32

Naked Globals

Name Field # of Occurrence
^(1 CARRIVE+14*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA CSTAT+1~, CSTAT+8*, CARRIVE+7*, CARRIVE+12*
DA(1 CSTAT+5*, CARRIVE+7*, CARRIVE+12*
DA(2 CARRIVE+7*, CARRIVE+12*
DIK CSTAT+1~, CSTAT+5*, CARRIVE+7*, CARRIVE+12*
DIR SCAN+2~, SCAN+4!, SCAN+31!
DIR("B" SCAN+26*
DIR(0 SCAN+4*, SCAN+27*, SCAN+31*
>> DIRUT SCAN+4, SCAN+31
DT GETPARMS+9, PDATE+2, CSTAT+2
U SCAN+12, INIT+3, INIT+5, GETPARMS+5, GETPARMS+6, GETPARMS+10, MPURGE+13, MPURGE+14, PURGE+4, CARRIVE+2
, CARRIVE+10, CARRIVE+14
XMABORT PURGEIT+1~, PURGEIT+2, PURGEIT+3, PURGEIT+4, INIT~, INIT+1*, INIT+3, FINISH~, MPURGE~, MPURGE+6
, MPURGE+8*, CMBOX+1~, CMBOX+3*, CMBOX+4, CMBOX+5, CWASTE~, CWASTE+1, CWASTE+3*
XMAUDT CSTAT+1~, CSTAT+6*, CSTAT+7*, CSTAT+8
XMBUFREC GETPARMS+1~, GETPARMS+4*, GETPARMS+5, GETPARMS+6
XMCNT PURGEIT+1~, PURGEIT+3, PURGEIT+4, FINISH~, FINISH+6, MPURGE~, MPURGE+2*, MPURGE+6*, MPURGE+7, CMBOX+1~
, CMBOX+3*, CMBOX+5, CWASTE~, CWASTE+1*, CWASTE+2, CARRIVE+1~, CARRIVE+4*, CARRIVE+13*, CARRIVE+14
XMCRE8 PURGEIT+1~, PURGEIT+3, PURGEIT+4, FINISH~, FINISH+13, MPURGE~, MPURGE+3*, MPURGE+4*, MPURGE+5, MPURGE+9
, MPURGE+14
XMCUTOFF CSTAT+1~, CSTAT+2*, CSTAT+7
XMDATE CARRIVE+1~, CARRIVE+10*, CARRIVE+11
XMDAYS PDATE~, PDATE+1*, PDATE+2
XMDEFALT PDATE~, PDATE+1
XMDUZ CMBOX+1~, CMBOX+3*, CMBOX+4*, CMBOX+5, CWASTE~, CWASTE+4, CWASTE+7, CWASTE+8, CWASTE+9, CWASTE+10
, CWASTE+11
XMIEN PURGEIT+1~, PURGEIT+2, PURGEIT+4, INIT~, INIT+8, FINISH~, FINISH+13, PURGE+1~, PURGE+2*, PURGE+3*
, PURGE+4
XMINST CSTAT+1~, CSTAT+3*, CSTAT+4*, CSTAT+5, CSTAT+7
XMKILL PURGEIT+1~, PURGEIT+2, PURGEIT+3, PURGEIT+4, INIT~, FINISH~, FINISH+13, MPURGE~, MPURGE+15, PURGE~
, PURGE+5, PURGE+6, KILLRESP~, KILLMSG~
XMKILL("MSG" INIT+4*, FINISH+2, KILLMSG+2*
XMKILL("RESP" INIT+4*, FINISH+2, KILLRESP+4*
XMKILL("START" INIT+5*, FINISH+6, FINISH+7, FINISH+8
XMKILL("TOTAL" FINISH+2*, FINISH+7, FINISH+8
XMPARM EN+1~, EN+2, SCAN+2~, SCAN+24, SCAN+30, PURGEIT~, PURGEIT+2, PURGEIT+3, INIT~, INIT+2
, INIT+8, GETPARMS~, MPURGE~, CARRIVE+1~
XMPARM("END" GETPARMS+5*, GETPARMS+17, MPURGE+4, CARRIVE+2*, CARRIVE+11
XMPARM("PDATE" GETPARMS+6*, GETPARMS+18, MPURGE+14
XMPARM("START" GETPARMS+2*, GETPARMS+13*, GETPARMS+16, MPURGE+3
XMPARM("TYPE" GETPARMS+2*
XMSBUF GETPARMS+1~, GETPARMS+10*, GETPARMS+11*, GETPARMS+12, GETPARMS+13
XMTEXT SCAN+2~, GETPARMS+15~, FINISH+5~
XMVAR GETPARMS+15~, GETPARMS+19, FINISH+5~, FINISH+10
XMVAR(1 GETPARMS+16*, FINISH+6*
XMVAR(2 GETPARMS+17*, FINISH+7*
XMVAR(3 GETPARMS+18*, FINISH+8*
XMZ MPURGE+1~, MPURGE+2*, MPURGE+5*, MPURGE+9, MPURGE+10, MPURGE+11, MPURGE+12, MPURGE+14, MPURGE+15, PURGE~
, PURGE+3, PURGE+4, PURGE+6, KILLRESP~, KILLRESP+1, KILLRESP+2, KILLRESP+3, KILLMSG~, KILLMSG+1, CWASTE+5~
, CWASTE+6*, CWASTE+7*, CARRIVE+1~, CARRIVE+4*, CARRIVE+5*, CARRIVE+6, CARRIVE+7, CARRIVE+10, CARRIVE+12, CARRIVE+13
XMZLAST CARRIVE+1~, CARRIVE+4*, CARRIVE+13*, CARRIVE+14
XMZR PURGE+1~, PURGE+4*, PURGE+5
XMZREC MPURGE+1~, MPURGE+12*, MPURGE+13, MPURGE+14
>> Y SCAN+28
>> ZTQUEUED EN+3, SCAN+1, GETPARMS+14, FINISH+4, MPURGE+7, CLEAN+3, CMBOX+6, CWASTE+2
>> ZTREQ EN+3*, CLEAN+3*
>> ZTSTOP MPURGE+8*, CWASTE+3*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All