XUSPURGE ;SFISC/STAFF - PURGE ROUTINE FOR XUSEC ; Oct 23, 2023@14:28:20
Source file <XUSPURGE.m>
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| SCPURG | ;Purge sign-on log to 365 days
 | 
|
| AOLD | ;
 | 
|
| DAYS | ||
| A02(XUDAYS) | ;Purge old Access codes in the AOLD x-ref.
 | 
|
| V02(XUDAYS) | ;Purge old Verify code from each users VOLD x-ref
 | 
|
| ENDA | ||
| RETENTION() | ; returns number of days to retain SIGN-ON LOG file entries
 | 
|
| EXPIRED(XUDA,XUDT) | ;Is XUDA older (smaller) than XUDT
 | 
|
| DELETE(XUDA,XUNOW) | ; delete entry XUDA from SIGN-ON LOG file
 | 
| Name | Line Occurrences | 
|---|---|
| Function Call: WRITE | 
  |