The IMS TM EXIT capture agent exit, commonly named SQDICDCL is generated using the GENCDC PROC included in the SQDATA PROC library. First modify the GENCDC PROC as needed for the environment and then generate the capture agent using JCL similar to sample member GENICDCL included in the distribution.
Customers that use multiple capture exits can specify any name they choose, however IMS does require unique capture exit names and they must match the <exit_name> specified above in Modify IMS DBD's for Capture.
1. Create a member in SQDATA PARMLIB with the new name using a copy of the sample SQDICDCL member of the PARMLIB. For example to name the exit SQDICDCX, create a member in SQDATA PARMLIB named SQDICDCX and populate it as follows, making sure to change the last line in the new PARMLIB member to the specify the correct load module name:
ORDER SQDICDCL
INCLUDE DFS(DFSLI000)
INCLUDE SQD(SQDICDCL)
MODE AMODE(31),RMODE(ANY)
ENTRY SQDICDCL
NAME SQDICDCX(R)2. Change the GENICDCL JCL to specify the new name for the EXIT= parm (this tells the GENCDC PROC to use the PARMLIB member by the same name).
//GENICDCL EXEC GENCDC,EXIT=SQDICDCX
//SYSIN DD *
EXITGEN TYPE=IMS,XPARM=SQDXPRIZ,SYSNAME=IVP1
//GENICDCL JOB 1,MSGLEVEL=(1,1),MSGCLASS=H,NOTIFY=&SYSUID
//*
//*--------------------------------------------------------------------
//* Generate IMS TM EXIT Capture - SQDICDCL
//*--------------------------------------------------------------------
//* Note: 1) Run the GENXPRIZ Job BEFORE running THIS Job to ensure
//* XPARM has been loaded to the ECSA
//*
//* Required DDNAME: SYSIN DD
//*
//* Required parameters:
//* EXIT - Data Capture Agent Module Name - 'SQDICDCL'
//* EXITGEN - Macro to Gen Data Capture Agent - always 'EXITGEN'
//* TYPE - The type of exit being generated (IMS)
//* SYSNAME - Symbolic name of IMS system (ie. IMSPROD, IMSTEST)
//* **NOTE** MAX Length of SYSNAME is 7 characters
//* XPARM - The name of the SQDXPARM load module that this
//* instance Of the data capture agent will reference
//* **NOTE** Name cannot start with letters 'A thru I'
//*
//*********************************************************************
//*
//SQDPROCS JCLLIB ORDER=SQDATA.V400.PROCLIB
//*
//GENICDCL EXEC GENCDC,EXIT=SQDICDCL
//SYSIN DD *
EXITGEN TYPE=IMS,XPARM=SQDXPRIZ,SYSNAME=IVP1
//*--------------------------------------------
//* OVERRIDE SYSLMOD TO LINK INTO IMS PGMLIB
//*--------------------------------------------
//L.SYSLMOD DD DISP=SHR,DSN=IMSV14.PGMLIBNote:
- The value for EXIT used in this example is SQDICDCL. If you choose to use a different name, ensure that you have followed the instructions at the top of this section and in section Modify IMS DBD's for Capture .
- The value for TYPE must be IMS.
- The value for SYSNAME used in this example is IVP1. The value used for this parameter must be used whenever the XPARM is updated dynamically as described in the previous section.
- The value for XPARM used in this example is SQDXPRIZ which matches the name in the corresponding PARMLIB member included in the distribution and by convention the name of the load module generated. The value for XPARM may not begin with the Letters "A" through "I" due to potential conflicts with other load module names.
- Make sure to modify the GENCDC PROC to specify the proper library names prior to executing the GENICDC JCL.
- Ensure that the SYSNAME and XPARM specified, pair logically related IMS objects with the appropriate LogStream.