// JOB RA37188 SPRI 3.7.188 APAR RA37188                                        
* SPRI 3.7.188, Issued by GSS on March 28, 2003                                 
* Revised October 29, 2003                                                      
* Status=TESTED Type=REQUIRED                                                   
* -------------------------------------------------------------------           
* Problem: Correct setting of SPLDFVSE flag in PWRSPL                           
* Changes to not set SPLDFVSE in SPLDFLG when the element being accessed was cre
* non-ESA system and transferred to SPRI via NJE.  This change will flag any ele
* passing a POWER subsection in the Network Dataset Header during an NJE receive
* This APAR will enable PSF to process ae PIMSG OPTB that is passed from an non-
*                                                                               
* NOTE:  The flag will be lost if the element is backed up and then restored.   
* -------------------------------------------------------------------           
* 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:RA37188 /* 1975-SPR-01-037:RA37188 for VSE/SP */            
AFFECTS PHASE=SPRISS$A                                                          
ALTER E8 BC:FF                                                                  
AFFECTS PHASE=SPRIDXNA                                                          
ALTER  1F8  58F0D0C4  :  41200338  /* PTCH OFFSET */                            
ALTER  1FC  59708014  :  45E050EC  /* CALL PATCH */                             
AFFECTS PHASE=SPRIOPN2                                                          
ALTER  122  9540B9F9  :  41200392                                               
ALTER  126  47803136  :  45E050EC  /* CALL PATCH */                             
AFFECTS PHASE=SPRISNAW                                                          
ALTER  4B8  4540503C  :  47F03F40                                               
ALTER  F40  3F403F42  :  91407000   /* DSH? */                                  
ALTER  F44  3F443F46  :  47803F50   /* NO   */                                  
ALTER  F48  3F483F4A  :  96027000   /* NJE CALL*/                               
ALTER  F4C  3F4C3F4E  :  92FFD1C9  /* FORCE NOT PWR */                          
ALTER  F50  3F503F52  :  4540503C                                               
ALTER  F54  3F54  :  0479                                                       
ALTER  F56  3F563F58  :  47F034BE                                               
AFFECTS PHASE=SPRIXGOP                                                          
ALTER  5E4  92809036  :  4120037C                                               
ALTER  5E8  D20190A4  :  45E050EC                                               
AFFECTS PHASE=SPRIPTCH                                                          
ALTER  338  3338333A  :  58F0D0C4                                               
ALTER  33C  333C333E  :  9504F0A8  /* NDH? */                                   
ALTER  340  33403342  :  4770135E  /* NO */                                     
ALTER  344  33443346  :  91028000  /* NJE RECEIVE? */                           
ALTER  348  3348334A  :  4780135E  /* NO */                                     
ALTER  34C  334C334E  :  47000000                                               
ALTER  350  335033523354  :  D50170021366  /* NDHP? */                          
ALTER  356  33563358  :  4770135E  /* NO */                                     
ALTER  35A  335A335C  :  9200D1C9  /* SET AS PWR /                              
ALTER  35E  335E3360  :  59708014                                               
ALTER  362  33623364  :  47F03200                                               
ALTER  366  3366  :  8600                                                       
ALTER  37C  337C337E  :  9104A02B  /* NOT VSE */                                
ALTER  380  33803382  :  47101388  /* YES */                                    
ALTER  384  33843386  :  92809036  /* VSE */                                    
ALTER  388  3388338A338C  :  D20190A43ABA                                       
ALTER  38E  338E3390  :  47F035EE                                               
ALTER  392  33923394  :  95FFD1C9                                               
ALTER  396  33963398  :  4770139E                                               
ALTER  39A  339A339C  :  9604A02B  /* NOT VSE */                                
ALTER  39E  339E33A0  :  9200D1C9                                               
ALTER  3A2  33A233A4  :  9540B9F9                                               
ALTER  3A6  33A633A8  :  47803136                                               
ALTER  3AA  33AA33AC  :  47F0312A                                               
/*                                                                              
/&