CICS Region Support
Xchange's CICS region support allows you to exchange the date and time for all transactions and programs running in a CICS region. Either at initialization or in response to a CEMT PERFORM RESET command, CICS issues an SVC11 that can be intercepted and changed by Xchange. CICS then stores the exchanged date and time in an internal CICS control block and maintains the field itself. All subsequent application time requests are given the modified date and time. Xchange also handles any program that issues a time request within the CICS region, including those programs for which STCK, STCKE, and STCKF support has been enabled, as described in Using-Standard-STCK-and-STCKF-and-Enhanced-STCK-STCKE-and-STCKF-Support.
Xchange's CICS region support requires additional midnight rollover processing. This processing must be enabled during Xchange installation by performing the Task 10.2.2 Enable midnight rollover. If you are unsure whether that step was performed, midnight rollover processing can also be activated by submitting transaction XGAJ after CICS initialization.
Using Language Environment with Xchange CICS Region Support
A zap to LE module CEEPLPKA is required if you want to exchange LE in CICS at the region level. The zap is necessary because LE gets initialized in a way that circumvents the normal dynamic hooking of LE by Xchange.
If you plan to use Xchange CICS region support with LE programs, make sure you have followed the instructions in the Task-6-1-Enable-LE-for-CICS-region-support.
Enabling Region Support
Xchange’s region support can enabled in either of two ways:
- Using the ISPF interface
- Using a CICS program
Using the ISPF Interface
CICS region support is enabled by setting up a request on the Simulated Date Time Settings figure as described in Using-the-ISPF-Interface. You can do either of the following:
If the region is not yet running, use the S or H line command to set a request with the jobname of the region and the desired date and time. In addition, using the Xchange batch facility step before the CICS region step in the CICS region JCL will initiate CICS region support. For more information, see Using-the-Batch-Facility.
- If the region is already active, perform the following steps:
- Use the A line command to set a request with the jobname of the region and the desired date and time.
- To specify a different date/time, use the D line command to delete the request, then repeat the first step.
- When Xchange testing is completed use the D line command to delete the request.
Using a CICS Program
The interface to Xchange region support can also be initiated using a CICS program instead of an Xchange request. The CICS region must already be active. Use an EXEC CICS LINK from a user-written CICS program to invoke the interface in CICS program XGTADDA. To specify date and time, XGTADDA is passed a 20-byte COMMAREA by the user-written program. A sample program illustrating the invocation is provided in CPWR.MLXGnnn.SLXGSAMP member XGAADDA. The transaction associated with this sample program is XGAA. Each time the user-written CICS program invokes XGTADDA, Xchange deletes any active request for the CICS region, then adds a new request. If the date and time passed in the COMMAREA is spaces, the current date and time are used.
To use this type of CICS region support, the load module XGTADDA, located in CPWR.MLXGnnn.SLXGLOAD, must be included in the DFHRPL concatenation of the CICS region’s startup JCL. In addition, the CICS definitions in XGCRDOAA, located in CPWR.MLXGnnn.SLXGDATA, must be defined in the CICS region.