IDMSDMLA Under z/VSE

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

IDMSDMLA Under z/VSE

Executing Under the Central Version IDMSDMLA (z/VSE)

/******************************************************************
/**                   PRECOMPILE PROGRAM                         **
/******************************************************************
* step1
// EXEC PROC=IDMSLBLS
// UPSI b                 if specified in IDMSOPTI module
// DLBL      idmspch,'temp.dmla',0
// EXTENT    SYS020,nnnnnn,,,ssss,llll
// ASSGN     SYS020,DISK,VOL=nnnnnn,SHR
// EXEC      IDMSDMLA

Input SYSIDMS parameters here, as required

/*

Assembler/DML source statements

/******************************************************************
/**                   COMPILE PROGRAM                            **
/******************************************************************
/*
* step2
// DLBL      IJSYSIN,'temp.dmla',0
// EXTENT    SYSIPT,nnnnnn
   ASSGN     SYSIPT,DISK,VOL=nnnnnn,SHR
// OPTION    CATAL,NODECK,NOSYM
  PHASE userprog,*
// EXEC      ASSEMBLY
/******************************************************************
/**                   LINK PROGRAM MODULE                        **
/******************************************************************
* step3
   CLOSE     SYSIPT,SYSRDR
ENTRY (dmla)
// EXEC      LNKEDT
/*

IDMSLBLS

Name of the procedure provided at installation that contains the file definitions for CA IDMS dictionaries and databases.

Note: For a complete listing of IDMSLBLS, see "IDMSLBLS Procedure".

b

Appropriate UPSI switch, 1 through 8 characters, if specified in the IDMSOPTI module

idmspch

Filename of data set output from the IDMSDMLA precompiler

temp.dmla

File ID of data set output from the IDMSDMLA precompiler

SYS020

Logical unit assignment of the DMLA output

nnnnnn

Volume serial identifier of appropriate disk volume

ssss

Starting track (CKD) or block (FBA) of disk extent

llll

Number of tracks (CKD) or blocks (FBA) of disk extent

userprog

Name of program in the library

dmla

Name of Assembler/DML module

Runtime Parameters

You can use SYSIDMS parameters to specify information about your runtime environment.

Note: For more information about optional SYSIDMS parameters, see the Common Facilities Guide.

INCLUDE Statements

For programs that include an Assembler internal sort, place the following statements in the second step, before EXEC ASSEMBLY:

         ACTION NOAUTO             prevents multiple inclusions of IDMS

         INCLUDE IDMS              IDMS interface for use with COMRG

         INCLUDE IDMSOPTI          IDMSOPTI module
                                   (omit in local mode)

         INCLUDE IDMSCANC          local mode abort entry point
                                   (omit IDMSCANC if TP application)

Note: Assembler overlay programs must resolve references to IDMS within their root segment; care must be taken to prevent the overlaying of the IDMS interface. Use of IDMS and IDMSLDPT is recommended for these programs.

Executing in Local Mode

To execute the IDMSDMLA precompiler in local mode, remove the UPSI specification and add the following statements in step 1 (the IDMSDMLA step):

// TLBL     sysjrnl,'idms.tapejrnl',,nnnnnn,,f
// ASSGN    SYS009,TAPE,VOL=nnnnnn

idms.tapejrnl

File ID of tape journal file

f

File number of tape journal file

sys009

Logical unit assignment for journal file

IDMSLBLS Procedure

The IDMSLBLS procedure is provided during CA IDMS installation. It contains file definitions for the CA IDMS components, such as these:

Dictionaries
Sample databases
Disk journal files
SYSIDMS file

Tailor the IDMSLBLS procedure to reflect the filenames and definitions in use at your site and include this procedure in z/VSE JCL job streams.

The following is a listing of the IDMSLBLS procedure:

* ----------- LIBDEFS -----------
// LIBDEF  *,SEARCH=idmslib.sublib
// LIBDEF  *,CATALOG=user.sublib
/*  --------------------- LABELS -----------------------
// DLBL    idmslib,'idms.library',1999/365
// EXTENT  ,nnnnnn,,,ssss,1500
// DLBL    dcdml,'idms.system.ddldml',1999/365,DA
// EXTENT  SYSnnn,nnnnnn,,,ssss,101
// ASSGN   SYSnnn,DISK,VOL=nnnnnn,SHR
// DLBL    dclod,'idms.system.ddldclod',1999/365,DA
// EXTENT  SYSnnn,nnnnnn,,,ssss,21
// ASSGN   SYSnnn,DISK,VOL=nnnnnn,SHR
// DLBL    dclog,'idms.system.ddldclog',1999/365,DA
// EXTENT  SYSnnn,nnnnnn,,,ssss,401
// ASSGN   SYSnnn,DISK,VOL=nnnnnn,SHR
// DLBL    dcrun,'idms.system.ddldcrun',1999/365,DA
// EXTENT  SYSnnn,nnnnnn,,,ssss,68
// ASSGN   SYSnnn,DISK,VOL=nnnnnn,SHR
// DLBL    dcscr,'idms.system.ddldcscr',1999/365,DA
// EXTENT  SYSnnn,nnnnnn,,,ssss,135
// ASSGN   SYSnnn,DISK,VOL=nnnnnn,SHR
// DLBL    dcmsg,'idms.sysmsg.ddldcmsg',1999/365,DA
// EXTENT  SYSnnn,nnnnnn,,,ssss,201
// ASSGN   SYSnnn,DISK,VOL=nnnnnn,SHR
// DLBL    dclscr,'idms.sysloc.ddlocscr',1999/365,DA
// EXTENT  SYSnnn,nnnnnn,,,ssss,6
// ASSGN   SYSnnn,DISK,VOL=nnnnnn,SHR
// DLBL    dirldb,'idms.sysdirl.ddldml',1999/365,DA
// EXTENT  SYSnnn,nnnnnn,,,ssss,201
// ASSGN   SYSnnn,DISK,VOL=nnnnnn,SHR
// DLBL    dirllod,'idms.sysdirl.ddldclod',1999/365,DA
// EXTENT  SYSnnn,nnnnnn,,,ssss,2
// ASSGN   SYSnnn,DISK,VOL=nnnnnn,SHR
// DLBL    empdemo,'idms.empdemo1',1999/365,DA
// EXTENT  SYSnnn,nnnnnn,,,ssss,11
// ASSGN   SYSnnn,DISK,VOL=nnnnnn,SHR
// DLBL    insdemo,'idms.insdemo1',1999/365,DA
// EXTENT  SYSnnn,nnnnnn,,,ssss,6
// ASSGN   SYSnnn,DISK,VOL=nnnnnn,SHR
// DLBL    orgdemo,'idms.orgdemo1',1999/365,DA
// EXTENT  SYSnnn,nnnnnn,,,ssss,6
// ASSGN   SYSnnn,DISK,VOL=nnnnnn,SHR
// DLBL    empldem,'idms.sqldemo.empldemo',1999/365,DA
// EXTENT  SYSnnn,nnnnnn,,,ssss,11
// ASSGN   SYSnnn,DISK,VOL=nnnnnn,SHR

// DLBL    infodem,'idms.sqldemo.infodemo',1999/365,DA
// EXTENT  SYSnnn,nnnnnn,,,ssss,6
// ASSGN   SYSnnn,DISK,VOL=nnnnnn,SHR
// DLBL    projdem,'idms.projseg.projdemo',1999/365,DA
// EXTENT  SYSnnn,nnnnnn,,,ssss,6
// ASSGN   SYSnnn,DISK,VOL=nnnnnn,SHR
// DLBL    indxdem,'idms.sqldemo.indxdemo',1999/365,DA
// EXTENT  SYSnnn,nnnnnn,,,ssss,6
// ASSGN   SYSnnn,DISK,VOL=nnnnnn,SHR
// DLBL    sysctl,'idms.sysctl',1999/365,SD
// EXTENT  SYSnnn,nnnnnn,,,ssss,2
// ASSGN   SYSnnn,DISK,VOL=nnnnnn,SHR
// DLBL    secdd,'idms.sysuser.ddlsec',1999/365,DA
// EXTENT  SYSnnn,nnnnnn,,,ssss,26
// ASSGN   SYSnnn,DISK,VOL=nnnnnn,SHR
// DLBL    dictdb,'idms.appldict.ddldml',1999/365,DA
// EXTENT  SYSnnn,nnnnnn,,,ssss,51
// ASSGN   SYSnnn,DISK,VOL=nnnnnn,SHR
// DLBL    dloddb,'idms.appldict.ddldclod',1999/365,DA
// EXTENT  SYSnnn,nnnnnn,,,ssss,51
// ASSGN   SYSnnn,DISK,VOL=nnnnnn,SHR
// DLBL    sqldd,'idms.syssql.ddlcat',1999/365,DA
// EXTENT  SYSnnn,nnnnnn,,,ssss,101
// ASSGN   SYSnnn,DISK,VOL=nnnnnn,SHR
// DLBL    sqllod,'idms.syssql.ddlcatl',1999/365,DA
// EXTENT  SYSnnn,nnnnnn,,,ssss,51
// ASSGN   SYSnnn,DISK,VOL=nnnnnn,SHR
// DLBL    sqlxdd,'idms.syssql.ddlcatx',1999/365,DA
// EXTENT  SYSnnn,nnnnnn,,,ssss,26
// ASSGN   SYSnnn,DISK,VOL=nnnnnn,SHR
// DLBL    asfdml,'idms.asfdict.ddldml',1999/365,DA
// EXTENT  SYSnnn,nnnnnn,,,ssss,201
// ASSGN   SYSnnn,DISK,VOL=nnnnnn,SHR
// DLBL    asflod,'idms.asfdict.asflod',1999/365,DA
// EXTENT  SYSnnn,nnnnnn,,,ssss,401
// ASSGN   SYSnnn,DISK,VOL=nnnnnn,SHR
// DLBL    asfdata,'idms.asfdict.asfdata',1999/365,DA
// EXTENT  SYSnnn,nnnnnn,,,ssss,201
// ASSGN   SYSnnn,DISK,VOL=nnnnnn,SHR
// DLBL    ASFDEFN,'idms.asfdict.asfdefn',1999/365,DA
// EXTENT  SYSnnn,nnnnnn,,,ssss,101
// ASSGN   SYSnnn,DISK,VOL=nnnnnn,SHR
// DLBL    j1jrnl,'idms.j1jrnl',1999/365,DA
// EXTENT  SYSnnn,nnnnnn,,,ssss,54
// ASSGN   SYSnnn,DISK,VOL=nnnnnn,SHR
// DLBL    j2jrnl,'idms.j2jrnl',1999/365,DA
// EXTENT  SYSnnn,nnnnnn,,,ssss,54
// ASSGN   SYSnnn,DISK,VOL=nnnnnn,SHR
// DLBL    j3jrnl,'idms.j3jrnl',1999/365,DA
// EXTENT  SYSnnn,nnnnnn,,,ssss,54
// ASSGN   SYSnnn,DISK,VOL=nnnnnn,SHR
// DLBL    SYSIDMS,'#SYSIPT',0,SD
/+
/*

idmslib.sublib: Name of the sublibrary within the library containing CA IDMS modules
user.sublib: Name of the sublibrary within the library containing user modules
idmslib: Filename of the file containing CA IDMS modules
idms.library: File-ID associated with the file containing CA IDMS modules
SYSnnn: Logical unit of the volume for which the extent is effective
nnnnnn: Volume serial identifier of appropriate disk volume
ssss: Starting track (CKD) or block (FBA) of disk extent
dccat: Filename of the system dictionary catalog (DDLCAT) area
idms.system.dccat: File-ID of the system dictionary catalog (DDLCAT) area
dccatl: Filename of the system dictionary catalog load (DDLCATLOD) area
idms.system.dccatlod: File-ID of the system dictionary catalog load (DDLCATLOD) area
dccatx: Filename of the system dictionary catalog index (DDLCATX) area
idms.system.dccatx: File-ID of the system dictionary catalog index (DDLCATX) area
dcdml: Filename of the system dictionary definition (DDLDML) area
idms.system.ddldml: File-ID of the system dictionary definition (DDLDML) area
dclod: Filename of the system dictionary definition load (DDLDCLOD) area
idms.system.ddldclod: File-ID of the system dictionary definition load (DDLDCLOD) area
dclog: Filename of the system log area (DDLDCLOG) area
idms.system.ddldclog: File-ID of the system log (DDLDCLOG) area
dcrun: Filename of the system queue (DDLDCRUN) area
idms.system.ddldcrun: File-ID of the system queue (DDLDCRUN) area
dcscr: Filename of the system scratch (DDLDCSCR) area
idms.system.ddldcscr: File-ID of the system scratch (DDLDCSCR) area
dcmsg: Filename of the system message (DDLDCMSG) area
idms.sysmsg.ddldcmsg: File-ID of the system message (DDLDCMSG) area
dclscr: Filename of the local mode system scratch (DDLOCSCR) area
idms.sysloc.ddlocscr: File-ID of the local mode system scratch (DDLOCSCR) area
dirldb: Filename of the IDMSDIRL definition (DDLDML) area
idms.sysdirl.ddldml: File-ID of the IDMSDIRL definition (DDLDML) area
dirllod: Filename of the IDMSDIRL definition load (DDLDCLOD) area
idms.sysdirl.dirllod: File-ID of the IDMSDIRL definition load (DDLDCLOD) area
empdemo: Filename of the EMPDEMO area
idms.empdemo1: File-ID of the EMPDEMO area
insdemo: Filename of the INSDEMO area
idms.insdemo1: File-ID of the INSDEMO area
orgdemo: Filename of the ORGDEMO area
idms.orgdemo1: File-ID of the ORDDEMO area
empldem: Filename of the EMPLDEMO area
idms.sqldemo.empldemo: File-ID of the EMPLDEMO area
infodem: Filename of the INFODEMO area
idms.sqldemo.infodemo: File-ID of the INFODEMO area
projdem: Filename of the PROJDEMO area
idms.projseg.projdemo: File-ID of the PROJDEMO area
indxdem: Filename of the INDXDEMO area
idms.sqldemo.indxdemo: File-ID of the INDXDEMO area
sysctl: Filename of the SYSCTL file
idms.sysctl: File-ID of the SYSCTL file
secdd: Filename of the system user catalog (DDLSEC) area
idms.sysuser.ddlsec: File-ID of the system user catalog (DDLSEC) area
dictdb: Filename of the application dictionary definition area
idms.appldict.ddldml: File-ID of the application dictionary definition (DDLDML) area
dloddb: Filename of the application dictionary definition load area
idms.appldict.ddldclod: File-ID of the application dictionary definition load (DDLDCLOD) area
sqldd: Filename of the SQL catalog (DDLCAT) area
idms.syssql.ddlcat: File-ID of the SQL catalog (DDLCAT) area
sqllod: Filename of the SQL catalog load (DDLCATL) area
idms.syssql.ddlcatl: Filename of the SQL catalog index (DDLCATX) area
sqlxdd: File name of the SQL catalog index (DDLCATX) area
idms.syssql.ddlcatx: File-ID of the SQL catalog index (DDLCATX) area
asfdml: Filename of the asf dictionary definition (DDLDML) area
idms.asfdict.ddldml: File-ID of the asf dictionary definition (DDLDML) area
asflod: Filename of the asf dictionary definition load (ASFLOD) area
idms.asfdict.asflod: File-ID of the asf dictionary definition load (ASFLOD) area
asfdata: Filename of the asf data (ASFDATA) area
idms.asfdict.asfdata: File-ID of the asf data area (ASFDATA) area
ASFDEFN: Filename of the asf data definition (ASFDEFN) area
idms.asfdict.asfdefn: File-ID of the asf data definition area (ASFDEFN) area
j1jrnl: Filename of the first disk journal file
idms.j1jrnl: File-ID of the first disk journal file
j2jrnl: Filename of the second disk journal file
idms.j2jrnl: File-ID of the second disk journal file
j3jrnl: Filename of the third disk journal file
idms.j3jrnl: File-ID of the third disk journal file
SYSIDMS: Filename of the SYSIDMS parameter file