// JOB BF52327                                                        
/*                                                                    
/* THIS PATCH FIXES PROBLEMS WITH IMODS HANGING WHEN ANY OF THE       
/* FUNCTIONS (IMOD, MESSAGE, MSG, SESSION, CLUSTER, LISTCAT, VSAM,    
/* VSSPACE, AND LIBR) ARE BUSY WHEN AN IMOD TRIES TO ACCESS THEM.     
/*                                                                    
// PAUSE GOTO SKIP IF NOT VSE/ESA 2+                                  
// EXEC MSHP,SIZE=900K                                                
 CORRECT 2885-BF2-00-52C : BF52327                                    
 AFFECTS PHASE=FAOXSFN                                                
 ALTER 000850 A850A852A854A856 : 505D00104110BFF4                     
 ALTER 000858 A858A85AA85CA85E : 41301014D2131000                     
 ALTER 000860 A860A862A864A866 : 30005010A72841F0                     
 ALTER 000868 A868A86AA86CA86E : 00054110A7545010                     
 ALTER 000870 A870A872A874A876 : 3000411010044130                     
 ALTER 000878 A878A87AA87CA87E : 300446F0A86E07FE                     
 ALTER 00224A 505D0010         : 45E0A850                             
 RESOLVES 'HANGS IN IMODS USING FUNCTIONS'                            
/*                                                                    
// GOTO DONE                                                          
/. SKIP                                                               
// EXEC MSHP,SIZE=900K                                                
 CORRECT 2885-BF1-00-52C : BF52327                                    
 AFFECTS PHASE=FAOXSFN                                                
 ALTER 000850 A850A852A854A856 : 505D00104110BFF4                     
 ALTER 000858 A858A85AA85CA85E : 41301014D2131000                     
 ALTER 000860 A860A862A864A866 : 30005010A72841F0                     
 ALTER 000868 A868A86AA86CA86E : 00054110A7545010                     
 ALTER 000870 A870A872A874A876 : 3000411010044130                     
 ALTER 000878 A878A87AA87CA87E : 300446F0A86E07FE                     
 ALTER 00224A 505D0010         : 45E0A850                             
 RESOLVES 'HANGS IN IMODS USING FUNCTIONS'                            
/*                           
/. DONE                                                               
/&