// JOB BG52320                                                        
/*                                                                    
/*  FIX PROBLEM WITH STORAGE ACQUISITION LENGTH FOR ACCESS TO CGI     
/*  ROUTINES VIA CICS.                                                
/*                                                                    
// EXEC MSHP,SIZE=720K                                                
   CORRECT 2885-BGS-00-52C : BG52320                                  
   AFFECT PHASE=BIM$CGIC                                              
   ALTER 0001D6 4070 : 4000                                           
   RESOLVES 'BAD STORAGE LENGTH ON CGI'                               
/*                                                                    
/&