Configuring ODBA application servers to use ODBM

You can configure an application server that uses the Open Database Access (ODBA) interface, such as Db2 for z/OS® or WebSphere® Application Server for z/OS, to connect to IMS through the Open Database Manager (ODBM) component of the IMS Common Service Layer (CSL).

Prerequisites:

To configure an application server that uses ODBA to connect to IMS through ODBM, you must configure the ODBA environment, as described in Accessing IMS databases through the ODBA interface.

ODBM also requires the CSL Structured Call Interface (SCI) and the CSL Operations Manager (OM).

Restriction: The ODBA application server must reside on the same z/OS LPAR as both ODBM and IMS.
To configure an ODBA application server to use ODBM:

Procedure

  1. On the DFSPRP macro that is used to build the database resource adapter (DRA) startup table DFSxxxx0 (where xxxx is the alias name of the IMS system that is specified on the APSB call), in addition to the ODBA connection attributes, specify the IMSPLEX parameter and, optionally, the ODBMNAME parameter.

    When the ODBMNAME parameter is not specified, ODBA selects the ODBM instance that the CSL Structured Call Interface (SCI) uses to route database connection requests.

  2. Optional: Configure the ODBA application server to obtain and manage a private context under which the ODBA calls are processed. If the ODBA application server does not obtain a private context, ODBA obtains and manages the private context on behalf of the ODBA application.

The following sample JCL sets up a DRA startup table with the name DFSSYS10. The use of ODBM is indicated by the specification of IMSPLEX=PLEX1 and ODBMNAME=ODBM1. The values of MINTHRD and MAXTHRD are the same to avoid repeatedly removing and re-creating the threads.

//DFSSYS10 JOB A,JIM,CLASS=Q,MSGLEVEL=(1,1),MSGCLASS=A,
// USER=username,PASSWORD=password,
// REGION=3072K
/*ROUTE PRINT THISCPU/CECTOOL
//*
//*-------------------------------------------------------------------------
//* Build ODBA PRP member *
//*-------------------------------------------------------------------------
//* SYS1, CRESLIB
//*********************************************************************
//* ******
//* ASSEMBLE AND LINK DFSSYS10 USING IMS MACROS
//* Test TIMER = 100 Error. We will see RC=08. ******
//*********************************************************************
//ASMLNK10 EXEC ASMLK11A,
// PARM.LINK='SIZE=(880K,64K),NCAL,LET,,XREF,LIST',
// LNKOUT='IMSTESTL.TNUC0'
//ASSEM.SYSIN DD * SUFFIX SYS1
DFSPRP DSECT=NO,FPBUF=10,FPBOF=5,CNBA=150,DBCTLID=IMS1,
MINTHRD=10,MAXTHRD=10,FUNCLV=2,IDRETRY=100,
IMSPLEX=PLEX1,ODBMNAME=ODBM1,SOD=A,TIMEOUT=2,
DSNAME=IMS.RESLIB,DDNAME=DFSIVD1
/*
//LINK.SYSIN DD *
NAME DFSSYS10(R)
/*
//*