I can think of 2 ways this can be done:

        1) Allow SMS to manage the temp files and then have them cleaned up via 
SMS
        2) You can also use the below JCL to clean up scratch volumes:

//CLEANSCR EXEC  PGM=ADRDSSU, PARM='TYPRUN=NORUN',                              
//  REGION=4000K                                                                
//SYSUT2 DD DUMMY                                                               
//INDD0  DD DISP=SHR,UNIT=SYSDA,VOL=SER=WRK907                                  
//INDD1  DD DISP=SHR,UNIT=SYSDA,VOL=SER=WRK908                                  
//INDD2  DD DISP=SHR,UNIT=SYSDA,VOL=SER=WRK909                                  
//INDD3  DD DISP=SHR,UNIT=SYSDA,VOL=SER=WRK910                                  
//INDD4  DD DISP=SHR,UNIT=SYSDA,VOL=SER=WRK911                                  
//INDD5  DD DISP=SHR,UNIT=SYSDA,VOL=SER=WRK912                                  
//INDD6  DD DISP=SHR,UNIT=SYSDA,VOL=SER=WRK913                                  
//INDD7  DD DISP=SHR,UNIT=SYSDA,VOL=SER=WRK915                                  
//SYSIN DD *,DCB=BLKSIZE=80                                                     
 DUMP INDD(INDD0,INDD1,INDD2,INDD3,INDD4,INDD5,INDD6,INDD7) -                   
     OUTDD(SYSUT2) -                                                            
     DATASET (INCLUDE (SYS%%%%%.T*.**)  -                                       
        BY ((CATLG EQ NO) (DSORG NE VSAM) (CREDT,LE,*,-2))) -                   
     DELETE                                                                     
/*                                                                              
//SYSOUT   DD SYSOUT=*                                                          
//SYSPRINT  DD SYSOUT=*                                                         
//SYSUDUMP  DD DUMMY  

You may need to play around with the dataset name and you will need to add a 
jobcard.  I also normally run this once with the TYPRUN=NORUN parm to make sure 
I'm not screwing up. 

Hope this helps. 

Todd Burrell, PMP, ITIL Expert, CISSPĀ | Project Manager | ITSO AHB | Centers 
for Disease Control and Prevention (CDC)
Contractor - HP Enterprise Services | 1600 Clifton Rd, Building 21, MS D24, RM 
1300 | Atlanta, GA 30338 | 404-971-7275 (Blackberry) 404-723-2017 (Mobile) | 
[email protected]


THIS COMMUNICATION MAY CONTAIN CONFIDENTIAL AND/OR OTHERWISE PROPRIETARY 
MATERIAL and is for use only by the intended recipient. If you received this in 
error, please notify the sender and delete the communication from all computers.



-----Original Message-----
From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf 
Of Scott Starkey
Sent: Monday, July 14, 2014 12:40 PM
To: [email protected]
Subject: Cleanup Sort Volumes

We have datasets dynamically allocated to our Sort volumes which don't get 
deleted. I was wondering if other shops have a process in place to delete 
datasets older than xx days from sort volumes? If so, would you please share 
your method for doing this.

Thanks,

Scott 

----------------------------------------------------------------------
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

Reply via email to