Thanks. That's a thought. But what gets me is we did the same exact
thing for another VSAM file (except we used a fully qualified name) and
it worked no problem. The only difference was the OS level.

-----Original Message-----
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of O'Brien, David W. (NIH/CIT) [C]
Sent: Tuesday, August 21, 2007 11:44 AM
To: [email protected]
Subject: Re: SMS Question - Urgent


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: [email protected]
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

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