Auto-creating file names for daily reports

This code will allow you to create a filename that ends with the date created (mm/dd).

If you have reports that run daily (or on any set schedule) you may want to be able to keep a history of past reports for some period of time. If your job overwrites the same file every day you have to manually copy or rename it to keep it around for comparison. This bit of code will allow you to create a filename that ends with the date created (mm/dd) so that you can immediately know which day the report was run, as well as delete...

older reports in a timely manner. It could easily be modified to use a time stamp rather that the date, or to automatically delete files older than a certain date.


 
RTVSYSVAL  SYSVAL(QDATE) RTNVAR(&DAT)                     
CHGVAR     VAR(&MON) VALUE(%SST(&DAT 1 2))                
CHGVAR     VAR(&DAY) VALUE(%SST(&DAT 3 2))                
 
CHGVAR     VAR(&FILE) VALUE('FILE' *TCAT &MON *TCAT &DAY)                                 
		
		Code: DCL        VAR(&DAT) TYPE(*CHAR) LEN(6) 
DCL        VAR(&FILE) TYPE(*CHAR) LEN(10)
DCL        VAR(&MON) TYPE(*CHAR) LEN(2) 
DCL        VAR(&DAY) TYPE(*CHAR) LEN(2) 
 
RTVSYSVAL  SYSVAL(QDATE) RTNVAR(&DAT)                     
CHGVAR     VAR(&MON) VALUE(%SST(&DAT 1 2))                
CHGVAR     VAR(&DAY) VALUE(%SST(&DAT 3 2))                
 
CHGVAR     VAR(&FILE) VALUE('FILE' *TCAT &MON *TCAT &DAY)    

==================================
MORE INFORMATION ON THIS TOPIC
==================================

The Best Web Links: tips, tutorials and more.

Ask your systems management questions--or help out your peers by answering them--in our live discussion forums.

Ask the Experts yourself: Our systems management gurus are waiting to answer your technical questions.

This was first published in August 2001

Dig deeper on Performance

0 comments

Oldest 

Forgot Password?

No problem! Submit your e-mail address below. We'll send you an email containing your password.

Your password has been sent to:

-ADS BY GOOGLE

SearchEnterpriseLinux

SearchDataCenter

Close