CA IDMS DLI Transparency JCL › Run-Time Interface JCL › Assemble Language Interfaces For Command-Level DL/I (EXEC DLI) Usage

Assemble Language Interfaces For Command-Level DL/I (EXEC DLI) Usage

Use the following JCL to assembe the language interfaces:

IDMSDLHC/IDMSDLHP /IDMSDLHA (z/OS)

//ASM   EXEC PGM=ASMA90
//SYSLIB DD DSN=cics.maclib,DISP=SHR
//       DD DSN=yourHLQ.CAGJMAC,DISP=SHR
//SYSUT1 DD  UNIT=disk,SPACE=(cyl,(2,2))
//SYSUT2 DD  UNIT=disk,SPACE=(cyl,(2,2))
//SYSUT3 DD UNIT=disk,SPACE=(cyl,(2,2))
//SYSPUNCH DD DSN=&&syspch,UNIT=disk,DISP=(NEW,PASS),
//       SPACE=(80,(400,40))
//SYSIN  DD *
         IDMSDLHC CWADISP=nn      ß for COBOL applications, use this line only
         IDMSDLHP CWADISP=nn      ß for PL/I applications, use this line only
         IDMSDLHA CWADISP=nn      ß for ASM applications, use this line only
         END
/*
//LINK   EXEC PGM=HEWL
//SYSLMOD DD DSN=idms.loadlib,DISP=SHR
//SYSLIN DD DSN=&&syspch,UNIT=disk,DISP=(OLD,DELETE),
 ENTRY IDMSDLXX                   ß change to the particular interface used
 MODE AMODE(31),RMODE(ANY)
 NAME  IDMSDLXX(R)                ß change to the particular interface used
//

The JCL to assemble in a z/VSE environment is shown below:

IDMSDLCV/IDMSDLPV/IDMSDLAV (z/VSE)

// JOB
// LIBDEF *,SEARCH=(idms.library)
// OPTION CATAL,DECK
// EXEC ASSEMBLY
         IDMSDLCV CWADISP=nn        ß for COBOL applications, use this line only
         IDMSDLPV CWADISP=nn        ß for PL/I applications, use this line only   
         IDMSDLAV CWADISP=nn        ß for ASM applications, use this line only 
         END
/*

Note: The IDMS macros and copy books must be accessible from the assigned source-statement library. Only one of the interfaces listed above should be assembled at a time. Each interface is specific to a programming language.

Parameters

CWADISP=

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