Anne,
This is our routine:
dte= date("U",date("B") - 7,"B")
'pipe cms list * * ' mde ' (before ' dte ,
'| sort w8 ',
'| stem files.'
do n= 1 to files.0
trace r
'erase' files.n
end
Jim
-----Original Message-----
From: The IBM z/VM Operating System [mailto:[EMAIL PROTECTED] On
Behalf Of Anne Crabtree
Sent: Tuesday, January 23, 2007 12:49 PM
To: IBMVM@LISTSERV.UARK.EDU
Subject: Year end cleanup of diskacnt and accsrv
Does anyone have a routine (pipe or otherwise) that will clean up
records for diskacnt and accsrv on January 1 of each year? I usually
keep 7 days worth of accounting records and each night old files are
deleted. However, on January 1, the routine fails to work because the
files are sorted in mmddyy order, thereby, putting the December files
before the January files. It keeps the last 7 days of December and
deletes new January files each night. I need something that will
recognize it as first day of the year and kick off yearend cleanup
routine to get rid of all files prior to the January 1 file being
created. Cannot figure out a way to "automate" this!
--------------------------------------------------------
If you are not an intended recipient of this e-mail, please notify the sender,
delete it and do not read, act upon, print, disclose, copy, retain or
redistribute it. Click here for important additional terms relating to this
e-mail. http://www.ml.com/email_terms/
--------------------------------------------------------
