Previous Topic: DML Precompile, Assembly, and Link-Edit JCLNext Topic: IDMSDMLA Under z/VSE

DML Precompile, Assembly, and Link-Edit JCL › IDMSDMLA Under z/OS

IDMSDMLA Under z/OS

Executing Under the Central Version IDMSDMLA (z/OS)

//*****************************************************************
//**                  PRECOMPILE PROGRAM                         **
//*****************************************************************
//precomp  EXEC PGM=IDMSDMLA,REGION=1024K
//STEPLIB  DD   DSN=idms.dba.loadlib,DISP=SHR
//         DD   DSN=idms.custom.loadlib,DISP=SHR
//         DD   DSN=idms.cagjload,DISP=SHR
//sysctl   DD   DSN=idms.sysctl,DISP=SHR
//dcmsg    DD   DSN=idms.sysmsg.ddldcmsg,DISP=SHR
//SYSPCH   DD   DSN=&.&source.,DISP=(NEW,PASS),
//             UNIT=disk,SPACE=(TRK,(10,5),RLSE),
//             DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120)
//SYSLST   DD   SYSOUT=A
//SYSIDMS  DD   *
DMCL=dmcl-name
DICTNAME=dictionary-name
Other SYSIDMS parameters, as appropriate
/*
//SYSIPT   DD   *
Assembler DML source statements
/*
//*****************************************************************
//**                  ASSEMBLE PROGRAM                           **
//*****************************************************************
//asm      EXEC PGM=assembler,REGION=1024K,PARM='DECK,LIST,NOLOAD'
//SYSPRINT DD   SYSOUT=A
//SYSLIB   DD   DSN=sys1.maclib,DISP=SHR
//         DD   DSN=yourHLQ.CAGJMAC,DISP=SHR
//SYSUT1   DD   UNIT=disk,SPACE=(CYL,(3,2))
//SYSUT2   DD   UNIT=disk,SPACE=(CYL,(3,2))
//SYSUT3   DD   UNIT=disk,SPACE=(CYL,(3,2))
//SYSPUNCH DD   DSN=&.&object.,DISP=(NEW,PASS),
//             UNIT=disk,SPACE=(TRK,(10,5),RLSE),
//             DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120)
//SYSIN    DD   DSN=&.&source.,DISP=(OLD,DELETE)
//*****************************************************************
//**                  LINK PROGRAM MODULE                        **
//*****************************************************************
//link     EXEC PGM=IEWL,REGION=300K,PARM='LET,LIST,NCAL,XREF'
//SYSUT1   DD   UNIT=disk,SPACE=(TRK,(20,5))
//loadlib  DD   DSN=idms.loadlib,DISP=SHR
//SYSLMOD  DD   DSN=user.loadlib,DISP=SHR
//SYSPRINT DD   SYSOUT=A
//SYSLIN   DD   DSN=&.&object.,DISP=(OLD,DELETE)
//         DD   *
 INCLUDE loadlib(IDMS)      required for BATCH and DCBATCH, omit for CICS
 INCLUDE loadlib (IDMSCINT) for CICS only
 INCLUDE loadlib(IDMSCANC)  optional; BATCH and DCBATCH only
 INCLUDE loadlib(IDMSOPTI)  optional; BATCH and DCBATCH only
 ENTRY   userentry
 NAME    userprog(R)
/*
//*
idms.dba.loadlib

Data set name of the load library containing the DMCL and database name table load modules

idms.custom.loadlib

Data set name of the load library containing the customized CA IDMS executable modules

idms.cagjload

Data set name of the load library containing the vanilla CA IDMS executable modules

sysctl

DDname of SYSCTL file

idms.sysctl

Data set name of SYSCTL file

dcmsg

DDname of the system message (DDLDCMSG) area

idms.sysmsg.ddldcmsg

Data set name of the system message (DDLDCMSG) area

&.&source

Name of the temporary data set output from the precompiler

disk

Symbolic device name for work files

dmcl-name

specifies the name of the dictionary the DMLF precompiler should access

dictionary-name

Identifies the DC/UCF system to bind at runtime

assembler

Name of the assembler program

sys1.maclib

Vendor-supplied system macro library

yourHLQ.CAGJMAC

Vendor-supplied idms macro library, created at installation time

&.&object.

Name of temporary data set output from Assembler

user.loadlib

User application load library

loadlib

DDname of the idms.loadlib

userentry

Name of a program entry point

userprog

Name of program in load library

Note: Depending on the central version operating environment, an IDMSOPTI module link edited with IDMSDMLA can be used in place of or in addition to the SYSCTL file.

The link of CICS application programs that use IDMSCINT must incorporate JCL to resolve external reference DFHEI1. The particular JCL depends on the nature and language of your application. See the appropriate IBM CICS application programming documentation for details.

Executing in Local Mode IDMSDMLA (z/OS)

//*****************************************************************
//**                  PRECOMPILE PROGRAM                         **
//*****************************************************************
//precomp  EXEC PGM=IDMSDMLA,REGION=1024K
//STEPLIB  DD   DSN=idms.dba.loadlib,DISP=SHR
//         DD   DSN=idms.custom.loadlib,DISP=SHR
//         DD   DSN=idms.cagjload,DISP=SHR
//dictb    DD   DSN=idms.appldict.ddldml,DISP=SHR
//dcmsg    DD   DSN=idms.sysmsg.ddldcmsg,DISP=SHR
//sysjrnl  DD   DSN=idms.tapejrnl,DISP=(NEW,CATLG),UNIT=tape
//SYSPCH   DD   DSN=&.&source.,DISP=(NEW,PASS),
//             UNIT=disk,SPACE=(TRK,(10,5),RLSE),
//             DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120)
//SYSLST   DD   SYSOUT=A
//SYSIDMS  DD   *
DMCL=dmcl-name
DICTNAME=dictionary-name
Other SYSIDMS parameters, as appropriate
/*
//SYSIPT   DD   *
Assembler DML source statements
/*
//*****************************************************************
//**                  ASSEMBLE PROGRAM                           **
//*****************************************************************
//asm      EXEC PGM=assembler,REGION=1024K,PARM='DECK,LIST,NOLOAD'
//SYSPRINT DD   SYSOUT=A
//SYSLIB   DD   DSN=sys1.maclib,DISP=SHR
//         DD   DSN=idms.cagjmac,DISP=SHR
//SYSUT1   DD   UNIT=disk,SPACE=(CYL,(3,2))
//SYSUT2   DD   UNIT=disk,SPACE=(CYL,(3,2))
//SYSUT3   DD   UNIT=disk,SPACE=(CYL,(3,2))
//SYSPUNCH DD   DSN=&.&object.,DISP=(NEW,PASS),
//             UNIT=disk,SPACE=(TRK,(10,5),RLSE),
//             DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120)
//SYSIN    DD   DSN=&.&source.,DISP=(OLD,DELETE)
//*****************************************************************
//**                  LINK PROGRAM MODULE                        **
//*****************************************************************
//link     EXEC PGM=IEWL,REGION=300K,PARM='LET,LIST,NCAL,XREF'
//SYSUT1   DD   UNIT=disk,SPACE=(TRK,(20,5))
//VANILLA  DD   DSN=idms.cagjload,DISP=SHR
//CUSTOM   DD   DSN=idms.custom.loadlib,DISP=SHR
//SYSLMOD  DD   DSN=idms.custom.loadlib,DISP=SHR
//SYSPRINT DD   SYSOUT=A
//SYSLIN   DD   DSN=&.&object.,DISP=(OLD,DELETE)
//         DD   *
 INCLUDE VANILLA(IDMS)      required for BATCH and DCBATCH, omit for CICS
 INCLUDE CUSTOM(IDMSCINT) for CICS only
 INCLUDE CUSTOM(IDMSOPTI)  optional; BATCH and DCBATCH only
 ENTRY   userentry
 NAME    userprog(R)
/*
//*
idms.dba.loadlib

Data set name of the load library containing the DMCL and database name table load modules

idms.custom.loadlib

Data set name of the load library containing the customized CA IDMS executable modules

idms.cagjload

Data set name of the load library containing the vanilla CA IDMS executable modules

dictb

DDname of journal file

idms.appldict.ddldml

File-ID of the application dictionary definition (DDLDML) area

dcmsg

Filename of the system message (DDLDCMSG) area

idms.sysmsg.ddldcmsg

File-ID of the system message (DDLDCMSG) area

sysjrnl

DDname of the tape journal file

idms.tapejrnl

File ID of tape journal file

tape

Device name for the tape journal file

&.&source.

Name of the temporary data set output from the precompiler

disk

Symbolic device name for work files

dmcl-name

Specifies the name of the dictionary the DMLF precompiler should access

dictionary-name

Identifies the DC/UCF system to bind at runtime

assembler

Name of the assembler program

sys1.maclib

Vendor-supplied system macro library

idms.cagjmac

Vendor-supplied idms macro library, supplied at installation time

&.&object.

Name of temporary data set output from Assembler

user.loadlib

User application load library

VANILLA

DDname for the loadlib created during the SMP/E install

CUSTOM

DDname for the loadlib created during configuration

userentry

Name of a program entry point

userprog

Name of program in load library