26 lines
365 B
ObjectPascal
26 lines
365 B
ObjectPascal
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);
|
|
|
|
ProcessStatus ('Complete');
|
|
ProcessResult (rDONE, True);
|
|
End;
|
|
|
|
End.
|