Previous Topic: Execute DL/I Batch Application ProgramNext Topic: Assemble IDMSDL1V For CICS Call-Level DL/I Usage (z/VSE)

CA IDMS DLI Transparency JCL › Run-Time Interface JCL › Assemble IDMSDL1C For CICS Call-Level DL/I Usage (z/OS)

Assemble IDMSDL1C For CICS Call-Level DL/I Usage (z/OS)

Use the following JCL to assemble IDMSDL1C:

IDMSDL1C (z/OS)

//      EXEC HLASMCL
//C.SYSLIB   DD DSN=cics.maclib,DISP=OLD
//                  DD DSN=yourHLQ.CAGJMAC,DISP=OLD
//C.SYSIN DD *
               COPY  #LREDS
               COPY  #OPIDS
IDMSDL1C CWADISP=nn 
         END
/*
//L.SYSLMOD DD DSN=idms.loadlib,DISP=OLD
//L.SYSIN DD *
ENTRY IDMSDL1C
MODE AMODE(31),RMODE(24)
NAME  IDMSDL1C(R)
//

yourHLQ.CAGJMAC

Data set name of the IDMS macro library

cics.maclib

Data set name of the CICS macro library

idmsdl1c

Name of the IDMSDL1C module

idms.loadlib

Data set name of the CA IDMS load library containing CA IDMS system modules

Syntax

►►── IDMSDL1C CWADISP=cwa-intc-address-displacement ─────────────────────────►◄

Parameters

CWADISP=

Identifies the displacement within the CICS CWA of a fullword that holds the address of the IDMSINTC module.

cwa-intc-address-displacement

Specify the same value given to the CWADISP parameter of the CICSOPTS macro.

Note: When IDMSDL1C is link edited to the CICS DL/I application program, DFHEAI0 must be included in the linkage editor input (if not already included). Also ensure that entry point DFHEI1 has been resolved in this application link edit. For command-level programs entry point DFHEI1 is typically resolved in the language- dependent command-level interface module already present in the link edit. IDMSDL1C requires that entry points DFHEI1 and DFHEAI0 be resolved for successful operation.