Dean,
 
  You might consider replacing (&UNIT EQ &DASD_UNITS))   with 
(&DSORG EQ 'VS'))  
 
A VSAM file is obviously allocated to DASD. If a user/programmer has used a 
variation of REFPROD.REFXXXX.DNO.** 
for a tape backup then the test will fail.                                      
                                                       

________________________________

From: Dean Montevago [mailto:[EMAIL PROTECTED]
Sent: Tue 8/21/2007 11:20 AM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: SMS Question - Urgent



FILTLIST DASD_UNITS INCLUDE('3390','SYSDA','SYSALLDA')                 
                                                                       
FILTLIST TAPE_UNITS INCLUDE('3590*','MAGSTAR','T3590')                 
                                                                       
FILTLIST DB2_VOL INCLUDE(* )                                           
                                                                      

*****************************************************************/    
/** PRODUCTION VSAM */                                                 
/*****************************************************************/    
FILTLIST PRODVSAM INCLUDE(REFPROD.REFXXXX.DNO.**)                      
                                                                       
WHEN ((&DSN EQ &PRODVSAM) AND                                         
      (&UNIT EQ &DASD_UNITS))                                          
   DO                                                                  
    SET &DATACLAS EQ 'PRODVSAM'                                        
    WRITE '&DATACLAS SPECIFIED (' &DATACLAS ')'                        
    EXIT                                                               
   END                                                       




----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Reply via email to