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