Mark:
Don't answer your question, but to delete old files I use this exec.
/*********************************************************/
/* CLEANUP EXEC - Delete old files, based on age (days) */
/*********************************************************/
Arg $days
If $days = "" Then $days = 30
"PIPE Literal" date(C) - $days ,
"| DATECONV 1-8 Rexx_Date_C ISOdate ",
"| var date "
"PIPE CMS LISTFILE * * A (NOH BEFORE" date,
'| stem files.'
If rc <> 0 Then Return
Do ct=1 to files.0
PARSE VALUE files.ct WITH fn ft fm .
If pos(ft,'EXEC.PARMS.CONFIG.UPDATE') <> 0 Then Iterate ct
Say 'ERASING' fn ft fm
'ERASE' fn ft fm
End
Return
To test it many times, I copy old files to my disk "A" using COPY with OLDD
parameter...
Regards, Clovis.
|------------>
| From: |
|------------>
>--------------------------------------------------------------------------------------------------------------------------------------------------|
|Mark Pace <[email protected]>
|
>--------------------------------------------------------------------------------------------------------------------------------------------------|
|------------>
| To: |
|------------>
>--------------------------------------------------------------------------------------------------------------------------------------------------|
|[email protected]
|
>--------------------------------------------------------------------------------------------------------------------------------------------------|
|------------>
| Date: |
|------------>
>--------------------------------------------------------------------------------------------------------------------------------------------------|
|17/08/2010 16:07
|
>--------------------------------------------------------------------------------------------------------------------------------------------------|
|------------>
| Subject: |
|------------>
>--------------------------------------------------------------------------------------------------------------------------------------------------|
|CMS file date
|
>--------------------------------------------------------------------------------------------------------------------------------------------------|
|------------>
| Sent by: |
|------------>
>--------------------------------------------------------------------------------------------------------------------------------------------------|
|The IBM z/VM Operating System <[email protected]>
|
>--------------------------------------------------------------------------------------------------------------------------------------------------|
Can I manipulate the date of a CMS file? I want to test a program that
deletes files older than a certain date. In linux I can use touch to set
the date to whatever I choose.
--
Mark D Pace
Senior Systems Engineer
Mainline Information Systems
