// JOB RA37194 SPRI 3.7.194 APAR RA37194                                        
* SPRI 3.7.194, Issued by GSS on July 11, 2003                                  
* Revised January 26, 2004                                                      
* Status=TESTED Type=REQUIRED                                                   
* -------------------------------------------------------------------           
* Problem: Correct ROUTE code alter processing                                  
* NOTE:   RA37174 and RA37181 must be UNDONE prior to installing this APAR      
*                                                                               
* This corrects ROUTE code ALTER processing.                                    
*                                                                               
* For ALTER TO=RO=x or ALTER TO=ADD=X.                                          
* If route x already exists and is not busy, the exising route x will           
* be replaced with the new route x.  If route x exists and is busy              
* message SPRI355 will be issued and the route will not be altered.             
* Prior to this APAR it was possible to wind up with duplicate                  
* route codes.                                                                  
* -------------------------------------------------------------------           
* Conditions for applying APAR:                                                 
* The phases affected by this APAR normally are loaded resident                 
* in the processing region during activation. This allows the                   
* APAR to be applied at any time, however its effect will not be                
* experienced until the product is reactivated.                                 
// 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:RA37194 /* 1975-SPR-01-037:RA37194 for VSE/SP */            
AFFECTS PHASE=SPRISS$A                                                          
ALTER EE C2:FF                                                                  
AFFECTS PHASE=SPRIROSC                                                          
ALTER  714  4770373E  :  4700373E                                               
ALTER  73A  478037FC  :  47803C5E                                               
ALTER  7FC  92402006  :  43103D3D                                               
ALTER  800  43103D3DD200  :  D200E0003D3D                                       
ALTER  806  E0003D3D  :  44103800                                               
ALTER  80A  44103804  :  92002005                                               
ALTER  822  92002005  :  92402006                                               
ALTER  C5E  3C5E3C60  :  95402006   /* ROUTE BUSY? */                           
ALTER  C62  3C623C64  :  4780380E   /* NO REUSE */                              
ALTER  C66  3C663C68  :  955C2006   /* SATISFIED? */                            
ALTER  C6A  3C6A3C6C  :  4780380E   /* YES REUSE */                             
ALTER  C6E  3C6E3C70  :  412003C6   /* OFFSET TO PATCH */                       
ALTER  C72  3C723C74  :  45E050EC                                               
ALTER  C76  3C763C78  :  47F03206   /* DON'T UPDATE */                          
AFFECTS PHASE=SPRIPTCH                                                          
ALTER  3C6  33C6  :  18FE      /* SAVE RETURN */                                
ALTER  3C8  33C833CA  :  45E050B4  /*  PUSH */                                  
ALTER  3CC  33CC  :  1831      /* PTCH BASE */                                  
ALTER  3CE  33CE33D0  :  4540503C   /* MESSAGE WRITER */                        
ALTER  3D2  33D2  :  000A                                                       
ALTER  3D4  33D4  :  0163                                                       
ALTER  3D6  33D633D833DA  :  D20C20003404   /* ROUTE BUSY */                    
ALTER  3DC  33DC33DE33E0  :  D21320353404   /* ROUTE BUSY */                    
ALTER  3E2  33E233E433E6  :  D2072022A02C                                       
ALTER  3E8  33E8  :  1B11                                                       
ALTER  3EA  33EA33EC  :  BF13A034                                               
ALTER  3EE  33EE33F0  :  4E10D048                                               
ALTER  3F2  33F233F4  :  960FD04F                                               
ALTER  3F6  33F633F833FA  :  F347202FD048                                       
ALTER  3FC  33FC  :  054E                                                       
ALTER  3FE  33FE3400  :  45E050A4  /* POP       */                              
ALTER  402  3402  :  07FF                                                       
ALTER  404  340434063408340A340C340E  :  D9D6E4E3C540C3D6C4C54040               
ALTER  410  3410341234143416  :  40C9E240C2E4E2E8                               
/*                                                                              
/&