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                                                        

-----Original Message-----
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of Tom Marchant
Sent: Tuesday, August 21, 2007 11:09 AM
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: SMS Question - Urgent


On Tue, 21 Aug 2007 10:54:36 -0400, Dean Montevago wrote:
>
>I didn't forget about all of you who helped me. Thank you for the 
>suggestions. I opened a PMR with IBM, it appears that the unit being 
>passed to SMS is zeros.

Not surprising.  If you must check the UNIT, perhaps you want to check
that 
it is not tape.

-- 
Tom Marchant

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