I'm not aware of anything distributed by IBM. Why not just write some REXX code
to use IGGCSI00 to find the DSNs you want (or parse a LISTCAT) and use that to
generate a series of jobs. Each job just does something like:
//JOBNAME JOB ...
//TOUCH EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//INDSN DD DISP=SHR,DSN=<dsn>
//SYSIN DD *
PRINT INFILE(INDSN) COUNT(1)
/*
//
Submit those from your REXX simply by using EXECIO to a DD name such as:
//SUBMIT DD SYSOUT=(*,INTRDR)
Now for my obligatory weird way to use UNIX to do this. Install Dovetailed
Technologies' Data Set Pipes and Co:Z launcher. In fact, get all their stuff.
It's really great and is freely licensed (you don't even need to register, or
give them an email address or anything). Run a job such as:
//TOUCH EXEC PROC=COZPROC
//STDOUT DD SYSOUT=*
//STDERR DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD *
catsearch -l 'HLQ.**'|\
awk '$9 == "PS" && $1 != "MIGRAT" {print $NF;}' |\
while read i;do
fromdsn "$i"|head -1 >/dev/null 2>&1
done
/*
//
No, I don't suggest doing this! I just sometimes like to mess around with some
of the other members' minds. You know who you are! <grin>
http://www.dovetail.com
--
John McKown
Systems Engineer IV
IT
Administrative Services Group
HealthMarkets®
9151 Boulevard 26 . N. Richland Hills . TX 76010
(817) 255-3225 phone .
[email protected] . www.HealthMarkets.com
Confidentiality Notice: This e-mail message may contain confidential or
proprietary information. If you are not the intended recipient, please contact
the sender by reply e-mail and destroy all copies of the original message.
HealthMarkets® is the brand name for products underwritten and issued by the
insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance
Company®, Mid-West National Life Insurance Company of TennesseeSM and The MEGA
Life and Health Insurance Company.SM
> -----Original Message-----
> From: IBM Mainframe Discussion List
> [mailto:[email protected]] On Behalf Of John Dawes
> Sent: Thursday, May 10, 2012 7:02 AM
> To: [email protected]
> Subject: UPDATING LAST REFERNCE DATE
>
> G'Day To All,
>
> Is there a batch job/utility I could use to update the last
> reference date of a dsn? I understand that I can do it by
> browsing the dsn, however since I have about 335 dsns it
> would be cumbersome. I tried a LISTCAT but it did not change
> the last reference date. The reason why I want to do this is
> to prevent the expiration of these dsns. I realise that SMS
> management class modification would do the trick but these
> dsns are not in a SMS managed environment. There is a DFDSS
> job which runs to delete these dsns if they haven't been
> referred for 6 months.
>
> Thanks.
>
> ----------------------------------------------------------------------
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to [email protected] with the message: INFO IBM-MAIN
>
>
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
