In a multiregion environment, where an application is using shared temporary storage queues, you have additional considerations when using the Link3270 bridge facility because every CICS region has a unique Link3270 bridge facility.
About this task
If you form all or part of the name of shared temporary storage queues from the terminal ID, you must use the same terminal ID for each Link3270 bridge facility in a pseudoconversation 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.
Procedure
- Change the AIBRIDGE parameter to AIBRIDGE=YES.
- 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
- If you want to write your own autoinstall user replaceable module,
edit the system initialization parameter AIEXIT to specify
the name of the module.