The synchronous nature of the TM EXIT Capture must perform some special processing when an MPP or BMP fail. When that happens, the Control Region handles the transaction back-out as part of the message region restart and writes that information to the IMS Log. The TM Exit, which does not use the IMS Log must perform a similar function with the Log Stream, writing a record indicating that the transaction was backed out/rolled back. This is accomplished using the Resolve In-Doubt LPARM Module and the Resolve In-Doubt Module.
The LPARM Module contains a list of all LogStreams used the TM Exit Capture and must be generated using JCL similar to sample member GENLPRIR included in the distribution. An optional second step, which can be run independently (using sample member SQDAUPDX), dynamically updates the LPARM in the ESCA.
//GENLPRIR JOB 1,MSGLEVEL=(1,1),MSGCLASS=H,NOTIFY=&SYSUID
//*
//*--------------------------------------------------------------------
//* Generate LPARM Module - IMS Resolve-in-Doubt Module
//*--------------------------------------------------------------------
//* Optional parameters:
//* LPARM - Parameter source file from SQDATA PARMLIB
//* **NOTE** This will also be the name of the LPARM
//* used by the IMS Resolve-in-Doubt Module
//*
//* Notes:
//* 1) Run this Job BEFORE Generating the External Subsystem
//* Resolve-in-Doubt Module (SQDAIRID) using the GENIRID JCL
//*
//* 2) The second step Dynamically Updates the LPARM in ECSA
//*
//* 3) Change the SET parms below for:
//* HLQ - high level qualifier of the CDC Libraries
//* VER - the 2nd level qualifier of the CDC PGMOBJ & LOADLIB
//* PROCVER - 2nd level qualifier of the CDC PROC & PARM Libs
//* LOADLIB - the authorized load library where the load modules
//* will reside - typically a user reslib
//*--------------------------------------------------------------------
//*
// SET HLQ=SQDATA
// SET VER=V400
// SET PROCVER=V400
// SET LOADLIB=DFSE10.USER.PGMLIB
//*
//*--------------------------------------------------------------------
//CDCPROCS JCLLIB ORDER=&HLQ..&PROCVER..PROCLIB
//*
//*********************************************************************
//*
//JOBLIB DD DISP=SHR,DSN=&HLQ..&VER..LOADLIB
//*
//GENXIMS EXEC GENXPARM,XPARM=SQDLPRIR
//*CRXPARM.SQDPRINP DD DISP=SHR,DSN=SQDATA.V400.PARMLIB(&LPARM)
//CRXPARM.SQDPRINP DD *
-----------------------------------------------------------------------
-- Sample LPARM Module
-- Set TYPE=LPARM, then list all z/OS logstreams used for capture
-----------------------------------------------------------------------
TYPE=LPARM -- ALWAYS SET TO 'LPARM'
-- LIST OF ALL Z/OS LOGSTREAMS USED FOR IMS CAPTURE ---
SQDATA.IMSCDC.LOG1
SQDATA.IMSCDC.LOG2
SQDATA.IMSCDC.LOG3
/*
//*L.SYSLMOD DD DISP=SHR,DSN=DFSE10.USER.SDFSRESL(&XPARM)
//*
//*--------------------------------------------------------------------
//* Dynamically Update the XPARM/LPARM in ECSA
//*--------------------------------------------------------------------
//* REQUIRED parameters (1st and 2nd)
//* name - The name of the XPARM/LPARM load module. Correlates to
//* the XPARM/LPARM name specified when generating the
//* agent or module
//* SYSNAME - Symbolic name used to distinguish the environment of
//* the agent or module. Correlates to the 'SYSNAME' used
//* to generate the agent or module (ie. TEST, PROD)
//*
//* Optional parameter (3rd) (one of the following)
//* RESET - Resets the XPARM/LPARM anchor Timestamp, which
//* reinitializes the agent or module
//* DISABLE - Globally disables the agent or module
//* ENABLE - Globally enables the agent or module
//*
//* Optional parameter (4th)
//* HOLDOVER - specified as a numeric value between 0 and 120 which
//* indicates how long, in seconds, to hold the old
//* XPARM/LPARM before releasing from ECSA
//*
//* Note: 1) Agent or module must have been generated to reference
//* the XPARM/LPARM SYSNAME for ESCA updates to take effect
//*
//* 2) SYSNAME should not start with letters 'A thru H'
//*
//* 3) Multiple XPARM/LPARM SYSNAME entries can be specified
//* in the SQDPARM DD
//*
//* 4) This JCL can also be found in member SQDAUPDX
//*
//*********************************************************************
//*
//SQDAUPDX EXEC PGM=SQDAUPDX,COND=(7,LT),PARM='SQDLPRIR,IVP1'Note: The LPARM lists the name of each LogStream defined for capture in a particular IMS subsystem. Therefore only one LPARM is required for all of the IMS TM Exits and their corresponding XPARM Control Modules.