2012-09-08 01:27:43 -07:00
|
|
|
Unit MUTIL_MsgPurge;
|
|
|
|
|
|
|
|
|
|
{$I M_OPS.PAS}
|
|
|
|
|
|
|
|
|
|
Interface
|
|
|
|
|
|
|
|
|
|
Procedure uPurgeMessageBases;
|
|
|
|
|
|
|
|
|
|
Implementation
|
|
|
|
|
|
|
|
|
|
Uses
|
|
|
|
|
m_Strings,
|
|
|
|
|
mUtil_Common,
|
|
|
|
|
mUtil_Status;
|
|
|
|
|
|
|
|
|
|
Procedure uPurgeMessageBases;
|
|
|
|
|
Begin
|
|
|
|
|
ProcessName ('Purging Message Bases', True);
|
|
|
|
|
ProcessResult (rWORKING, False);
|
|
|
|
|
|
2012-09-24 20:57:45 -07:00
|
|
|
ProcessStatus ('Complete', True);
|
2012-09-08 01:27:43 -07:00
|
|
|
ProcessResult (rDONE, True);
|
|
|
|
|
End;
|
|
|
|
|
|
|
|
|
|
End.
|
