*** PATCHES ********************************************************************


*** WARNING ***

The following bucket consists of OPTIONAL patches that provide certain
features or changes to features that customers have requested.  If you
wish to apply any of these, please read the documentation for each job
before applying..


// JOB BG17969                                                      
/* CHANGE THE XX BELOW TO FF IF APL IS SUPPORTED, OR 00 IF APL IS 
/* NOT SUPPORTED.  A WSFQ IS TO BE DONE ANYWAY, SO THIS DATA WILL 
/* ONLY BE USED IF THE TERMINAL DOES NOT SUPPORT WSFQ.            
/*                                                                
// EXEC MSHP,SIZE=900K                                            
   CORRECT 2885-BGS-00-52C : BG17969                              
   AFFECT PHASE=BIM$TICI                                          
   ALTER 000430 58F0672405EF     : 92XX700B0700                   
   RESOLVES '(O) ASRA ON BCIN FOR CICS 2.2'                       
/*                                                                
/&   
// JOB BG18606                               
/*
/* This optional patch prevents BIM$PUTL from uppercasing all
/* DIRLIST reports.
/*
// EXEC MSHP,SIZE=900K                    
   CORRECT 2885-BGS-00-52C : BG18606      
   AFFECT PHASE=BIM$PUTL                    
   ALTER 002F64 D6 : D2                   
   RESOLVES '(O) DONT UPPERCASE REPORT'  
/*                                        
/&                                        
// JOB MSHP                                                         
// ON $RC>4 GOTO EOJ                                                     
// EXEC LIBR,SIZE=256K,PARM='MSHP'                                       
DEF S=XXXXXXX.TEMP                   <=== XXXXXXX is the BIM-GSS lib name
CONN S=XXXXXXX.YYYYY : XXXXXXX.TEMP  <=== YYYYY is the BIM-GSS sublib    
COPY BIM$TICI.PHASE                                                      
COPY BIM$TICS.PHASE                                                      
COPY BIM$TIDR.PHASE                                                      
AC S=XXXXXXX.TEMP                    <=== XXXXXXX is the BIM-GSS lib name
REN BIM$TICI.PHASE : BIM$TICA.PHASE                                      
REN BIM$TICS.PHASE : BIM$TCSA.PHASE                                      
REN BIM$TIDR.PHASE : BIM$TIDA.PHASE                                      
CONN S=XXXXXXX.TEMP : XXXXXXX.YYYYY  <=== BIM-GSS LIB.SUBLIB name        
MOVE BIM$TICA.PHASE                                                      
MOVE BIM$TCSA.PHASE                                                      
MOVE BIM$TIDA.PHASE                                                      
DEL S=XXXXXXX.TEMP                   <=== XXXXXXX is the BIM-GSS lib name
/. EOJ                                                                   
/*                                                                       
// EXEC MSHP,SIZE=900K                                                   
 CORRECT 2885-BGS-00-52C : BG18666     
 AFFECT PHASE=BIM$TICA                 
 ALTER 001702  'BIM$TICS' : 'BIM$TCSA' 
 AFFECT PHASE=BIM$TIDA                 
 ALTER 00000A  'BIM$TIDR' : 'BIM$TIDA' 
 ALTER 002436  47F0       : 4700       
 AFFECT PHASE=BIM$TCSA                 
 ALTER 000DA5  'BIM$TIDR' : 'BIM$TIDA' 
 RESOLVES '(O) MULTIPLE COPIES OF BCIN'
/*                                                         
/* After applying this fix, change the transaction entries in the
/* CICS PCT to run the program BIM$TICA instead of BIM$TICI.  Define
/* the BIM$TICA program entry in the CICS PPT the same as that of
/* the BIM$TICI entry.  Execute the BIM$TIDA program in a partition
/* (can be the same partition as the one running BIM$TIDR already).
/* Specify 'VTAM=NO' for BIM$TIDA so that multiple VTAM interfaces
/* will not be established and 'A=BIM$TIDA' to specify the applid
/* (xpcc id) to be used by the CICS interface.                  
/*                                                              
/* An example of this would be the following:                    
/*                                                               
/* // EXEC BIM$TIDA,PARM='VTAM=NO,A=BIM$TIDA'    
/* 
/* This patch/procedure allows you to create multiple CICS interfaces
/* which can remove the time slice violators (SAR, MCAT, etc.)
/* allowing BIM-FAQS/ASO and/or BIM-FAQS/PCS sessions to have better
/* response times.                
/*     
/* If you have any questions, please contact BIM Technical Support.
/&
// JOB BG19094                                                      
/*                                                                  
/* THIS OPTIONAL PATCH ALLOWS YOU TO USE THE CICS 8 CHARACTER USERID
/* INSTEAD OF THE THREE CHARACTER OPID.                             
/*                                                                  
/*                                                                  
// EXEC MSHP,SIZE=900K                                              
 CORRECT 2885-BGS-00-52C : BG19094                                  
 AFFECT PHASE=BIM$TICI                                              
 ALTER 0003DC 47F0 : 4700                                           
 ALTER 000496 47F0 : 4700
 RESOLVES '(O) USE USERID INSTEAD OF OPID'                          
/*                                                                  
/&                                                                  
// JOB BG19334                                                   
/*                                                               
/* THIS OPTIONAL PATCH PREVENTS EDIT SESSIONS FROM ATTEMPTING TO 
/* EXECUTE THE PHASE QUICAT, PREVENTING AN ABEND IN FAQSMAIN.    
/*                                                               
/*                                                               
// EXEC MSHP,SIZE=900K                                           
 CORRECT 2885-BGS-00-52C : BG19334                               
 AFFECT PHASE=BIM$OIED                                           
 ALTER 005718 7A : F8                                            
 ALTER 005740 4A : C8                                            
 RESOLVES '(O) STOP PF10=QUICAT'                                 
/*                                                               
/&                                                               
// JOB  BG19407                                  
/* CATALOG BG019407.fix TO the VIO PDS 
/*
/* This optional patch enables BIM-GSS CPR Audit Trail.
/*            
/* This job only catalogs the fix to the VIO PDS.  To activate
/* this and other fixes you must run the BIM$UTFX imod using
/* BIM$RXBA and then execute the generated BGSSTEMP.PROC member
/* that is created:
/*
/*      // EXEC BIM$RXBA,PARM='BIM$UTFX S=lib.sublib P=BGSS R=V5.2C'   
/*      /*                                                       
/*
/* where lib.sublib is the location of your BIM-GSS library.
/* This process can be run multiple times without resulting in
/* any problems or duplication.  Each run will rebuild the PROC
/* with all .fix members found for the requested product and release
/* so that when you execute it all fixes are applied or reapplied.
/* The original PROC's for this release are never modified.
/*
/* Be sure the CAT= below has 'fix' in lowercase...
/* 
// OPTION LOG,LOGSRC                          
/*
/*
// EXEC BIM$PUTL,SIZE=BIM$PUTL,PARM='INSTALL' 
PDS=VIO,CAT=BG019407.fix                                               
MEM=CPRMENU0.SDF PDS=VIO REL=V5.2C TYP=OPT                             
E2C3C1D540C1D9C77E5083F081A4847E7DC47DFF                               
D9C5D740F1FF                                                           
40405083F081A4847E7DC57D4040404040404040404040404040615C40899584898381 
A38540C1E48489A340A39981899340859581829385844040404040404040405C61FF   
615BFF                                                                 
./ END                                                                 
/*
/&