// JOB BF52324                                                                  
/*                                                                              
/* THIS PATCH FIXES A PROBLEM WITH FAQSAO INITIALIZATION NOT PASSING            
/* ARG DATA CORRECTLY RESULTING IN THE ASOENV() FUNCTION NOT RETURNING          
/* THE FIRST ARGUMENT IN THE DATA AREA AS IT SHOULD.                            
/*                                                                              
/* THE FIRST ARGUMENT ENDS AT THE FIRST BLANK IN THE "DATA" DEFINED             
/* FOR EACH IMOD SPECIFIED IN THE REXX IMOD INITIALIZATION AND                  
/* TAILORING PANEL.  THIS FIRST ELEMENT IN THE DATA SHOULD BE PART OF           
/* THE ASOENV() DATA, BUT NOT PART OF THE ARGUMENT PASSED TO THE                
/* IMOD, ITSELF.                                                                
/*                                                                              
/*                                                                              
// PAUSE GOTO SKIP IF NOT VSE/ESA 2+                                            
// EXEC MSHP,SIZE=900K                                                          
 CORRECT 2885-BF2-00-52C : BF52324                                              
 AFFECTS PHASE=FAOXUFN                                                          
 ALTER 001308 4470B33A41707032 : 06704470B33A0700                               
 ALTER 00133E 6008 : 6009                                                       
 RESOLVES 'IMOD ARG PASSED INCORRECTLY'                                         
/*                                                                              
// GOTO DONE                                                                    
/. SKIP                                                                         
// EXEC MSHP,SIZE=900K                                                          
 CORRECT 2885-BF1-00-52C : BF52324                                              
 AFFECTS PHASE=FAOXUFN                                                          
 ALTER 001308 4470B33A41707032 : 06704470B33A0700                               
 ALTER 00133E 6008 : 6009                                                       
 RESOLVES 'IMOD ARG PASSED INCORRECTLY'                                         
/. DONE                                                                         
/*  
/&