Several Connect CDC (SQData) components must be defined to CICS before an Engine can apply changed data to a Keyed File datastore. JCL similar to sample member DFHDEFA included in the distribution can be used to define the CICS/Keyed File apply program, transaction, connection and session to CICS. The JCL should be edited to conform to the operating environment.
Note: If SQDV, the default transaction assigned to the Connect CDC (SQData) apply program SQDACVSM is changed to accommodate the environment, it must be changed anywhere else it has been referenced such as the Engine script.
//DFHDEFA JOB 1,MSGLEVEL=(1,1),MSGCLASS=H,NOTIFY=&SYSUID
//*
//*--------------------------------------------------------------------
//* Define CICS/Keyed File Apply PROG, TRAN, CONN, SESSION to CICS
//*--------------------------------------------------------------------
//* Note: 1) Modify the Name OF THE TRAN, CONN or SESSION
//* as required for your environment
//*
//* 2) if you already have a generic CONNECTION, you do not\
//* need to define the CONNECTION and SESSION listed below\
//*
//*********************************************************************
//*
//CSDUP EXEC PGM=DFHCSDUP,REGION=1M
//STEPLIB DD DSN=DFH420.CICS.SDFHLOAD,DISP=SHR
//DFHCSD DD DSN=DFH420.CICS.DFHCSD,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSDUMP DD SYSOUT=*
//SYSIN DD *
*DELETE PROGRAM(SQDACVSM) GROUP(SQDATA)
DEFINE PROGRAM(SQDACVSM) GROUP(SQDATA)
LANGUAGE(ASSEMBLER)
DESCRIPTION(SQDATA CICS/Keyed File: APPLY)
DATALOCATION(ANY)
CONCURRENCY(THREADSAFE)
DEFINE PROGRAM(SQDACVSW) GROUP(SQDATA)
LANGUAGE(ASSEMBLER)
DESCRIPTION(SQDATA CICS/Keyed File: WRITEQ)
DATALOCATION(ANY)
CONCURRENCY(THREADSAFE)
DEFINE PROGRAM(SQDACVSR) GROUP(SQDATA)
LANGUAGE(ASSEMBLER)
DESCRIPTION(SQDATA CICS/Keyed File: READQ)
DATALOCATION(ANY)
CONCURRENCY(THREADSAFE)
DELETE TRANSACTION(SQDV) GROUP(SQDATA)
DEFINE TRANSACTION(SQDV) GROUP(SQDATA)
PROGRAM(DFHMIRS) TWASIZE(0)
PROFILE(DFHCICSA) STATUS(ENABLED)
TASKDATALOC(ANY) DYNAMIC(NO) PRIORITY(1)
ISOLATE(YES) DTIMOUT(NO) RESTART(NO) SPURGE(YES)
TPURGE(YES) DUMP(YES) TRACE(YES) RESSEC(NO) CMDSEC(NO)
*DELETE CONNECTION(SQDC) GROUP(SQDATA)
*DEFINE CONNECTION(SQDC) GROUP(SQDATA)
* DESCRIPTION(EXCI CONNECTION FOR SQDATA Keyed File APPLY)
* ACCESSMETHOD(IRC) SINGLESESS(NO)
* PROTOCOL(EXCI) CONNTYPE(GENERIC)
* DATASTREAM(USER) RECORDFORMAT(U)
* AUTOCONNECT(NO) INSERVICE(YES)
*DELETE SESSIONS(SQDC) GROUP(SQDATA)
*DEFINE SESSIONS(SQDC) GROUP(SQDATA)
* DESCRIPTION(GENERIC SESSION DEF FOR SQDATA CICS/Keyed File APPLY)
* CONNECTION(SQDC) PROTOCOL(EXCI)
* MAXIMUM(0,0) RECEIVEPFX(SQ)
* RECEIVECOUNT(1) SESSPRIORITY(0)
* SENDSIZE(30720) RECEIVESIZE(30720)
* AUTOCONNECT(NO) BUILDCHAIN(YES)
* RELREQ(NO) IOAREALEN(4096,4096)
* DISCREQ(NO) RECOVOPTION(SYSDEFAULT)
* NEPCLASS(0)
/*