// JOB BF52320                                                        
/*                                                                    
/* FIX PROBLEM WITH OVERLAY OF A REAL PAGE OF STORAGE DUE TO A        
/* BAD LENGTH ON AN IUCV RECEIVE.  AN ATTEMPT IS MADE TO RECEIVE      
/* DATA OVER A PAGE BOUNDARY.  SINCE THE RECEIVE MUST DEAL WITH       
/* REAL PAGES, YOU CAN NOT EXCEED ONE PAGE (4K) BECAUSE THE NEXT      
/* VIRTUAL PAGE IS NOT NECESSARILY IN THE NEXT CONSECUTIVE REAL    
/* PAGE.                                                              
/*                                                                    
/*                                                                    
// EXEC MSHP,SIZE=900K                                                
 CORRECT 2885-BF2-00-52C : BF52320                                    
 AFFECTS PHASE=FAQXIUCV                                               
 ALTER 000074 41F0C260         : 41F02000                             
 AFFECTS PHASE=IUCVFAQS                                               
 ALTER 000FD0 3FD0000000000000 : 49F03FE247D03FDC                     
 ALTER 000FD8 0000000000000000 : 48F03FE259F0C014                     
 ALTER 000FE0 00000000         : 07F51000                             
 ALTER 00073E 59F0C014         : 45503FD0                             
 RESOLVES 'REAL PAGE OVERLAY USING IUCV'                              
/*                                                                    
/&