Supplied Action Routines › Archive Cleanup › Customizing the Archive Cleanup Action Routine

Customizing the Archive Cleanup Action Routine

You can modify this routine yourself to free space in the archive area after you have backed up the old data. Some changes you might want to make are as follows:

• Change the length of time that the archive files are kept (default is previous 24 hours).
• Back up existing archive files to tape before they are deleted.

Note: If you customize this action routine, place your version in the user action directory (CONSOLE$USER_ACTIONS). Otherwise, if you replace the supplied action routine that is in the system action directory, your customizations will be lost if you upgrade Console Manager.

The following example shows the archive cleanup command procedure:

$!
$! COPYRIGHT NOTICE 
$!
$! Copyright (C) 1997, CA, Inc. All Rights
$! Reserved.
$!
$! This computer software program is proprietary and confidential informa-
$! tion owned by CA, Inc. Use of this soft-
$! ware is authorized only pursuant to a valid written license agreement
$! from CA. This computer software program is protected by
$! the copyright laws of the United States and by international treaty and
$! may not be disclosed, reproduced or duplicated in whole or in part with-
$! out the express written authorization of CA.
$!
$! This computer program and documentation is provided with "Restricted
$! Rights." Use, duplication or disclosure by the U.S. Government is
$! subject to the restrictions set forth in 48 CFR 52.227-19(c)(1) and (2)
$! or DFARS 252.227-7013(c)(1)(ii) or applicable successor provisions. The
$! manufacturer is CA, Inc.
$!
$ verify = 'F$VERIFY(0)'
$
$ ON SEVERE_ERROR THEN EXIT "Archive cleanup failed"
$
$!++
$! Facility:
$! {~tbs~}
$!
$! Abstract:
$! {~tbs~}
$!
$! Author:
$! {~tbs~}
$!
$! Creation Date: 18-NOV-1993
$!
$! Modification History:
$!--
$!
$
$ TimeNow = F$TIME() + " -2-00:00:00.00"
$ TimeNow = F$CVTIME("''TimeNow'", "COMPARISON", )
$
$ Archive_Location = "''P1'"
$ If Archive_Location .EQS. ""
$ Then
$ Archive_Location = "CONSOLE$ARCHIVE:*.*;*"
$ Else
$ Archive_Location = Archive_Location + "*.*;*"
$ EndIf
$
$ Start:
$ Archive_File = F$SEARCH("''Archive_Location'")
$ If Archive_File .EQS. "" Then Goto End_Procedure
$ Created = F$FILE_ATTRIBUTES(Archive_File, "CDT")
$
$ Created = F$CVTIME("''Created'", "COMPARISON", )
$ If Created .LES. TimeNow
$ Then
$ Delete 'Archive_File
$ EndIf
$
$ Goto Start
$
$ End_Procedure:
$ verify = F$VERIFY(verify)
$ EXIT 1

(1) Checks to see if this archive file is older than the specified time.

(2) If the file is older than the specified time, then delete it.