// JOB RA38035 SPRI 3.8.35 APAR RA38035                                         
* SPRI 3.8.35, Issued by GSS on January 26, 2004                                
* Status=TESTED Type=REQUIRED                                                   
* -------------------------------------------------------------------           
* Problem: Correct ROUTE code ALTER processing                                  
* This implements the SPRI38 version of RA37194                                 
*                                                                               
* 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-38-SPR:RA38035 /* 1975-SPR-01-038:RA38035 for VSE/SP */            
AFFECTS PHASE=SPRISS$A                                                          
ALTER 4F 23:FF                                                                  
AFFECTS PHASE=SPRIROSC                                                          
ALTER  746  4780381A  :  47803C5A                                               
ALTER  C5A  3C5A3C5C  :  95402006   /* ROUTE BUSY? */                           
ALTER  C5E  3C5E3C60  :  4780381A   /* NO REUSE */                              
ALTER  C62  3C623C64  :  955C2006   /* SATISFIED? */                            
ALTER  C66  3C663C68  :  4780381A   /* YES REUSE */                             
ALTER  C6A  3C6A3C6C  :  412003C6   /* OFFSET TO PATCH */                       
ALTER  C6E  3C6E3C70  :  45E050EC                                               
ALTER  C72  3C723C74  :  47F0320C   /* 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                               
/*                                                                              
/&