Start of change

Managing shared temporary storage queues in a multiregion environment

In a multiregion environment, where an application is using shared temporary storage queues, there are special considerations when using the Link3270 bridge facility. This is because there is a unique Link3270 bridge facility for every CICS region.

If you form all or part of the name of shared temporary storage queues from the terminal id, the same terminal id must be used for each Link3270 bridge facility in a pseudo-conversation across the CICS regions. You can use a bridge facility autoinstall program exit for this purpose. The CICS system initialization parameter AIBRIDGE controls the calling of a bridge facility autoinstall user replaceable module.
  1. Change the AIBRIDGE parameter to AIBRIDGE=YES.
  2. Modify the CICS-supplied sample autoinstall user replaceable module, DFHZATDX, to change the terminal id that is supplied by the Link3270 bridge. The sample code below changes the last character of the terminal id from a } to a #.
    INSTALL_BRIDGE_FACILITY DS 0H 
             USING INSTALL_BRFAC_COMMAREA,R2 Address commarea          
    * ==> PUT INSTALL CODE HERE                                        
    USESEL   DS 0H
    *                                                                  
    *     This sample accepts the selected termid/netname.             
    *     Special consideration MUST be given to how this termid       
    *     will be used.                                                
    *     In particular it must not conflict with the namespace of     
    *     real terminals.                                              
    *                                                                  
             L     R5,INSTALL_BRFAC_SELECTED_PTR                       
             USING INSTALL_BRFAC_SELECTED_PARMS,R5                     
             L     R8,INSTALL_BRFAC_TERMID_PTR                         
             MVC   SELECTED_BRFAC_TERMID,0(R8)                         
             L     R8,INSTALL_BRFAC_NETNAME_PTR                        
             MVC   SELECTED_BRFAC_NETNAME,0(R8)                        
    *     following 5 lines inserted for application shared TSQ's      
             CLI   SELECTED_BRFAC_TERMID+3,X'D0' is the last char a }? 
             BNE   RETURN   If not then already altered, so accept it  
    *     otherwise change the last char of the termid and netname     
             MVI   SELECTED_BRFAC_TERMID+3,X'7B'     change } to  #    
             MVI   SELECTED_BRFAC_NETNAME+3,X'7B'    change } to  #    
             MVI   SELECTED_BRFAC_RETURN_CODE,RETURN_OK Say all OK     
    *                                                                  
             B     RETURN              EXIT PROGRAM 
  3. If you want to write your own autoinstall user replaceable module, edit the system initialization parameter AIEXIT to specify the name of the module.
For more information about DFHZATDX, see "Allocating a bridge facility name for a pseudo-conversation when using he Link3270 bridge for transaction routing in the CICS External Interfaces Guide and "Writing a program to control autoinstall of terminals" in the CICS Customization Guide.
End of change