Forgot that I had to reply to mailing list not post to newsgroup ... "Don" <[email protected]> wrote in message news:<[email protected]>... > I used to invoke the TSO "LISTDS" command to reset the last ref date on my
> TSO libraries in the bad old days when HSM recalls were less than "snappy". > :-) > > -- > be seeing you ... Don > Don Melton, Sr. Consultant, Vatic Technologies Limited > "McKown, John" <[email protected]> wrote in message > news:[email protected]... > > 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 > > > > HealthMarketsR > > > > 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. HealthMarketsR is the brand name for products underwritten and > > issued by the insurance subsidiaries of HealthMarkets, Inc. -The > > Chesapeake Life Insurance CompanyR, 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 > > ---------------------------------------------------------------------- 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
