David,

I'll take a second look.  When I checked earlier I didn't notice anything.  
Thanks.
--------------------------------------------
On Wed, 2/19/14, Jousma, David <[email protected]> wrote:

 Subject: Re: IDC3009I ** VSAM CATALOG RETURN CODE IS 48 - REASON CODE IS 
IGG0CLAT-80
 To: [email protected]
 Received: Wednesday, February 19, 2014, 4:59 AM
 
 This is a sample of our code to allow
 "special people" or certain overrides to be honored by
 SMS.   Do you have any checking for
 VOLSER?  Like when a VOLSER is specified to quit doing
 SMS assignments?
 
 /*********************************************************************/
 
 /* ALLOW SPECIAL USERS TO PLACE SELECTED DATA SETS OUTSIDE
 OF SMS    */ 
 /* BY USING STORCLAS=SCNOSMS AT ALLOCATION   
                
        */ 
 /*********************************************************************/
 
                
                
                
                
         
            
    WHEN ((&JOB EQ
 &OKAY_SYSTEM_TASK)         
               
            
    AND (&STORCLAS EQ 'SCNOSMS')) 
                
           
                
    /* HONOR NO SMS FOR TDMF   
                
       */ 
                
    DO         
                
                
          
                
        SET &STORCLAS = '' 
                
              
                
        EXIT     
                
                
        
                
    END /* DO */       
                
              
    
                
                
                
                
         
            
    WHEN ((&USER EQ
 &OKAY_SYSTEM_USER)         
              
            
    AND (&STORCLAS EQ 'SCNOSMS')) 
                
           
                
    /* HONOR NO SMS FOR SPECIAL PEOPLE 
               */ 
                
    DO         
                
                
          
                
        SET &STORCLAS = '' 
                
              
                
        EXIT     
                
                
        
                
    END /* DO */       
                
              
    
 
 -----Original Message-----
 From: IBM Mainframe Discussion List [mailto:[email protected]]
 On Behalf Of willie bunter
 Sent: Wednesday, February 19, 2014 7:43 AM
 To: [email protected]
 Subject: Re: IDC3009I ** VSAM CATALOG RETURN CODE IS 48 -
 REASON CODE IS IGG0CLAT-80
 
 I checked to see if there is the GUARANTEED SPACE for this
 DSN and my user however there is none.
 --------------------------------------------
 On Wed, 2/19/14, Jousma, David <[email protected]>
 wrote:
 
  Subject: Re: IDC3009I ** VSAM CATALOG RETURN CODE IS 48 -
 REASON CODE IS IGG0CLAT-80
  To: [email protected]
  Received: Wednesday, February 19, 2014, 4:23 AM
  
  I think Tom is onto
  something.   Seems like there is something in  your
 ACS routines that if you code VOLSER, then it "doesn't"
  do the rest.  Check the ACS routines again for what 
 occurs with VOLSER, or by chance are there certain 
 privileges granted when your ID does thing?  I know
 in  ours there is the magic list of ID's that can
 override  things.
  
  -----Original Message-----
  From: IBM Mainframe Discussion List [mailto:[email protected]
 On Behalf Of willie bunter
  Sent: Wednesday, February 19, 2014 7:17 AM
  To: [email protected]
  Subject: Re: IDC3009I ** VSAM CATALOG RETURN CODE IS 48
 -  REASON CODE IS IGG0CLAT-80
  
  Tom,
  
  I checked the STORCLASS ROUTINE and it doesn't. 
 Below  are excerpts of the ACS routine:
  
  FILTLIST CICSALL   INCLUDE(CICSALL.**)
  WHEN (&DSN EQ &CICSALL) DO     
        
          SET &STORCLAS =
  'CICSALL'
          EXIT CODE(0)     
                  
          END       
                 
         
  
  DATACLAS:
  
  FILTLIST CICSALL   INCLUDE(CICSALL.**)
  WHEN (&DSN EQ &CICSALL) DO     
      
         SET
  &DATACLAS='CICSALL'
         END     
                 
         
  
  STORGRP :
  
  FILTLIST CICSALL   INCLUDE(CICSALL.**)
     WHEN (&DSN EQ &CICSALL ) DO 
       
        SET &STORGRP = 'SGCICSALL' 
     
        EXIT CODE(0)       
            
        END         
               
     
  
  --------------------------------------------
  On Tue, 2/18/14, Tom Marchant <[email protected]>
  wrote:
  
   Subject: Re: IDC3009I ** VSAM CATALOG RETURN CODE IS
 48 -  REASON CODE IS IGG0CLAT-80
   To: [email protected]
   Received: Tuesday, February 18, 2014, 10:50 AM
   
   On Tue, 18 Feb 2014 08:52:24 -0800,
   willie bunter wrote:
   
   >I cannot understand why the job was failing when
 I  coded  the vol parm.
   
   Does your STORCLAS ACS routine make the data
 set  non-managed  when VOL is specified?
   
   --
   Tom Marchant
   
  
 ----------------------------------------------------------------------
   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
  
  This e-mail transmission contains information that is
  confidential and may be privileged.   It is
  intended only for the addressee(s) named above. If you
  receive this e-mail in error, please do not read, copy or
  disseminate it in any manner. If you are not the intended
  recipient, any disclosure, copying, distribution or use of
  the contents of this information is prohibited. Please
 reply
  to the message immediately by informing the sender that
 the
  message was misdirected. After replying, please erase it
  from your computer system. Your assistance in correcting
  this error is appreciated.
  
  ----------------------------------------------------------------------
  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
 
 This e-mail transmission contains information that is
 confidential and may be privileged.   It is
 intended only for the addressee(s) named above. If you
 receive this e-mail in error, please do not read, copy or
 disseminate it in any manner. If you are not the intended
 recipient, any disclosure, copying, distribution or use of
 the contents of this information is prohibited. Please reply
 to the message immediately by informing the sender that the
 message was misdirected. After replying, please erase it
 from your computer system. Your assistance in correcting
 this error is appreciated.
 
 ----------------------------------------------------------------------
 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