// JOB RA37165 SPRI 3.7.165 APAR RA37165                                        
* SPRI 3.7.165, Issued by GSS on August 05, 2002                                
* Status=TESTED Type=REQUIRED                                                   
* -------------------------------------------------------------------           
* Problem: Change to not allow up of an External Device                         
* Correct UP command to not allow an External Device to be processed.           
* -------------------------------------------------------------------           
* Conditions for applying APAR:                                                 
* This APAR may be applied at any time, however its effect will                 
* not be experienced until the next time the system is IPL'ed.                  
// PAUSE *** Enter CANCEL to bypass APAR.  Press ENTER to apply.                
// LIBDEF CL,TO=IJSYSRS,FROM=IJSYSRS (target lib) MVT/VSE systems only.         
// DEFINE GETVIS=200K                             MVT/VSE systems only.         
// EXEC MSHP,SIZE=900K                                                          
CORRECT 1975-37-SPR:RA37165 /* 1975-SPR-01-037:RA37165 for VSE/SP */            
AFFECTS PHASE=SPRISS$A                                                          
ALTER D1 A5:FF                                                                  
AFFECTS PHASE=SPRIDOWN                                                          
ALTER 214  41B00323  :  47F0346C                                                
ALTER 46C  346C346E  :  41B00323                                                
ALTER 470  34703472  :  95409038   /* EXTERNAL DEVICE */                        
ALTER 474  34743476  :  47703218   /* NO */                                     
ALTER 478  3478347A  :  4540503C   /* DELETE PRTTBL */                          
ALTER 47C  347C  :  0472                                                        
ALTER 47E  347E3480  :  41B00390   /* INVALID PARAMETER */                      
ALTER 482  34823484  :  41103496   /* MESSAGE TEXT ADDR */                      
ALTER 486  34863488  :  5010D0B8                                                
ALTER 48A  348A348C  :  4110001E   /* LENGTH OF TEXT                            
ALTER 48E  348E3490  :  4010D10C                                                
ALTER 492  34923494  :  47F03342   /* ERROR EXIT */                             
ALTER 496  34963498349A349C  :  E4D740C9D5E5C1D3                                
ALTER 49E  349E34A034A234A4  :  C9C440C6D6D940C5                                
ALTER 4A6  34A634A834AA34AC  :  E7E3C5D9D5C1D340                                
ALTER 4AE  34AE34B034B2  :  C4C5E5C9C3C5                                        
/*                                                                              
/&