XMA32 ;ISC-SF/GMB-Purge Messages by Date ;04/17/2002 07:20
Source file <XMA32.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ENTER | ;
|
|
| INIT(XMPARM,XMABORT) | ;
|
|
| LAST(XMPARM) | ; Find the audit record for the last date purge
|
|
| AUDTPURG | ; Kill off the earliest purge entries, so that only a certain # remain.
|
|
| SETUP(XMPARM,XMABORT) | ;
|
|
| PDATE(XMPARM,XMABORT) | ;
|
|
| TESTMODE(XMPARM,XMABORT) | ;
|
|
| GRACE(XMPARM,XMABORT) | ;
|
|
| PROCESS(XMPARM) | ;
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^XMB(1 - [#4.3] | Classic Fileman Calls |