// JOB RA37184 SPRI 3.7.184 APAR RA37184                                        
* SPRI 3.7.184, Issued by GSS on October 29, 2003                               
* Status=TESTED Type=REQUIRED                                                   
* -------------------------------------------------------------------           
* Problem: Change to ignore JA records larger than JA blksize                   
* Change to ignore a Job Accounting Record that will not fit in a JA data block.
* Without this APAR, SPRI assumes that the record will fit in a newly allocated 
* empty block.  This can lead to serious storage overlays.  If these large      
* account records are needed, the user should allocate the Job Accounting File  
* with a large block size.                                                      
* -------------------------------------------------------------------           
* 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:RA37184 /* 1975-SPR-01-037:RA37184 for VSE/SP */            
AFFECTS PHASE=SPRISS$A                                                          
ALTER E4 B8:FF                                                                  
AFFECTS PHASE=SPRIJAEX                                                          
ALTER  AA2  47203AC0  :  47203F00                                               
ALTER  F00  3F003F02  :  58108094  /* FILBLKSZ */                               
ALTER  F04  3F043F06  :  5B103FBC  /* - BLK PREFIX */                           
ALTER  F08  3F08  :  1971      /* WILL RECORD FIT */                            
ALTER  F0A  3F0A3F0C  :  47D03AC0  /* YES ALLOCATE NEW BLK */                   
ALTER  F0E  3F0E3F10  :  47F03AC8  /* NO - TOSS RECORD */                       
/*                                                                              
/&