Installation and Configuration › Interface Configuration Enhancements › CICS Interfaces

CICS Interfaces

In this release of CA IDMS, you link user-generated interface code only with stub modules. As a result, you will typically need to regenerate your interfaces only when new business requirements require changes in options or exit routines. This differs from previous releases where you had to regenerate as a result of applying maintenance or upgrading to a new release.

For Version 18.0, the CA IDMS CICS interface consists of three components:

• A stub module generated by the IDMSCINT or IDMSCINL macro that is linked with application programs requiring CA IDMS services. This component is unchanged from prior releases.
• A stub module that is linked with a site-specific CICSOPT options module and exit routines.
• A new site-independent interface module containing only CA-supplied code.

Both the standard IDMSINTC and the IDMSINTL interfaces conform to this new architecture.

Note: Before using the Version 18.0 runtime libraries in your CICS system, reassemble your CICSOPT module or IDMSINTL module and link it with the appropriate stub module.

Create an IDMSINTC Interface Program

To create an IDMSINTC interface program under z/OS:

1. Create a CICSOPT source module as follows:

               GBLC & MODNAME
      &MODNAME SETC CICSOPT'
               CICSOPT cicsopt-parameters
               END
   

2. Save the CICSOPT source module in your custom source library.
3. Assemble and link the module into your custom load library by executing the z/OS Assemble and Link-Edit JCL.
4. Substitute the name of your CICSOPT source member and insert the following binder statements:

    ORDER DFHEAI            
    INCLUDE CUSTLIB(optixit)   (Optional)
    INCLUDE CUSTLIB(optiqxit)  (Optional)
    INCLUDE CUSTLIB(usridxit)  (Optional)
    INCLUDE CAGJLOAD(IDMSCSTB)     
    ENTRY STARTUP            
    SETOPT PARM(AMODE=31,RMODE=24,REUS=NONE) 
    NAME idmsintc(R) 
   

   optixit

   Specifies the name of your OPTIXIT exit routine.

   optiqxit

   Specifies the name of your OPTIQXIT exit routine.

   usridxit

   Specifies the name of your USRIDXIT exit routine.

   idmsintc

   Specifies the name of your IDMSINTC interface load module.

To create an IDMSINTC interface program under z/VSE:

1. Assemble and catalog a CICSOPT options table using the sample JCL in z/VSE Assemble JCL.

   Modify the JCL by substituting the following in place of the Assembler input statements:

   	         PUNCH 'CATALOG cicsopts.OBJ REPLACE=YES'                      
   	         CICSOPTS TITLE 'CA IDMS CICS OPTIONS MODULE' 
   	         GBLC &MODNAME
   	&MODNAME. SETC 'cicsopts’                  
   	         CICSOPT cicsopt-parameters
   	         END 
   

2. Link the IDMSINTC interface program using the sample JCL in z/VSE Link JCL.

   Modify the JCL by substituting the following statements in place of the Linkage editor control statements:

    PHASE idmsintc,*
    INCLUDE DFHEAI            
    INCLUDE optiexit  (Optional)
    INCLUDE optiqxit  (Optional)
    INCLUDE usridxit  (Optional)
    INCLUDE usridxit  (Optional)
    INCLUDE cicsopts
    INCLUDE IDMSLST6     
    INCLUDE DFHEAI0                 
    MODE    AMODE(31),RMODE(24)     
    ENTRY   STARTUP                 
   

   cicsopts

   Specifies the name you choose for your IDMSINTC options table.

   Note: You can have more than one options table with different names.

   idmsintc

   Specifies the name you choose for your IDMSINTC stub program.

   Note: You can have more than one stub program with different names.

   optixit

   Specifies the name of your OPTIXIT exit routine.

   optiqxit

   Specifies the name of your OPTIQXIT exit routine.

   usridxit

   Specifies the name of your USRIDXIT exit routine.

   idmsintc

   Specifies the name of your IDMSINTC interface load module.

Create an IDMSINTL Interface Program

To create an IDMSINTL interface program

1. Create an IDMSINTL source module as described in the System Operations Guide.
2. Save the IDMSINTL source module in your custom source library.
3. Assemble and link it into your custom load library by executing the z/OS Assemble and Link-Edit JCL
4. Substitute the name of your IDMSINTL source member and insert the following binder statements:

    ORDER DFHEAI
    INCLUDE CUSTLIB(optixit)   (Optional)
    INCLUDE CAGJLOAD(IDMSLSTB)     
    ENTRY STARTUP
    SETOPT PARM(REUS=NONE,AMODE=31,RMODE=24) 
    NAME idmsintl(R)
   

   optixit

   Specifies the name of your OPTIXIT exit routine.

   idmsintl

   Specifies the name of your IDMSINTL interface load module.

Create the Resynchronization Program

Linking the IDMSCSYN module with an IDMSCINT module creates the resynchronization program. A separate resynchronization program must be created for each version of the CA IDMS interface module (IDMSINTC) that is used within a given CICS system.

In order to simplify future maintenance, the IDMSCSYN module contains minimal executable code. It simply passes control to module IDMSCCSY which contains most of the executable code to perform resynchronization between CICS and IDMS. If maintenance is applied to IDMSCCSY, it is not necessary to re-link your resynchronization program.

Resynchronization Program Link Edit (z/OS)

To link a resynchronization program for a CICS environment in z/OS, execute the z/OS Link-Edit JCL inserting the following binder statements.

 ORDER   DFHEAI,IDMSCSYN                 
 INCLUDE CAGJLOAD(IDMSCSYN)                       
 INCLUDE CUSTLIB(idmscint)                       
 ENTRY   DFHEAI                               
 SETOPT PARM(AMODE=31,REUS(REFR),RMODE=24)    
 NAME idmsrsyn(R)

idmscint

Specifies the name of your IDMSCINT interface module.