Modify the application JCL

Runtime Operations › Application Preparation › Step 1: Modify the Application JCL › Modify the application JCL— z/VSE

Modify the application JCL— z/VSE

Setting up DLBL Statements

The use of DLBL statements with CA IDMS VSAM Transparency has specific rules that do not correspond to standard z/VSE DLBL statement rules:

First Statement

To set up the first DLBL statement:

Specify 'FMT=fmtname' in place of the file-id. Fmtname is the name of the file management table that defines the escaped file.
Specify CAT=ESVS at the end of the DLBL statement.

A sample DLBL statement is shown below:

// DLBL  EMPESC,'FMT=EMPFMT',,VSAM,,CAT=ESVS

Second Statement

To set up the second DLBL statement:

Specify ESVS in place of the filename.
Specify a string of CA IDMS VSAM Transparency parameters in place of the file-id. The parameters must be separated by commas; the string must be enclosed in quotes and can contain no more than 44 characters (including the commas, but not including the quotes).
Specify CAT=ESVS1 if you want to continue the string of CA IDMS VSAM Transparency parameters on the third DLBL statement.

A sample DLBL statement is shown below:

// DLBL  ESVS,'SUBSCHEMA=EMPSS01,MODE=BATCH',,VSAM,,CAT=ESVS1

All Subsequent Statements

To set up all subsequent DLBL statements:

Specify ESVSn in place of the filename, where n is a number from 1 to 9. ESVSn must be the same as the value specified in the CAT parameter of the previous DLBL statement.
Specify CAT=ESVSn+1 if you want to continue the string of CA IDMS VSAM Transparency parameters on the next DLBL statement.

A sample DLBL statement is shown below:

// DLBL  ESVS1,'RBUFSZ=500',,VSAM,,CAT=ESVS2

Example

The DLBL statements required to define one CA IDMS VSAM Transparency file and its associated parameters might be set up as follows:

// DLBL  EMPESC,'FMT=EMPFMT',,VSAM,,CAT=ESVS
// DLBL  ESVS,'SUBSCHEMA=EMPSS01,MODE=BATCH',,VSAM,,CAT=ESVS1
// DLBL  ESVS1,'RBUFSZ=500',,VSAM,,CAT=ESVS2
// DLBL  ESVS2,'TRACE=0500,WRAP'

CICS

The JCL required to run a CICS system running CA IDMS VSAM Transparency application programs is shown below.

CICS (z/VSE)

// DLBL userdd,'IDMS.CICS.VSAMT',,VSAM
// DLBL SYSESVS,'sysesvs.parms'
// EXEC DFHSIP
/&

userdd	Filename of the CA IDMS VSAM Transparency file, as it appears in the application
IDMS.CICS.VSAMT	Name of a VSAM dataset that is defined in the VSAM catalog. This dummy file should be a KSDS dataset, even if the file being escaped was an ESDS file, to prevent VSAM catalog management from doing special processing associated with ESDS datasets. It should contain one or more records to prevent VSAM from opening the file I/O.
sysesvs.parms	File ID of the SYSEVS parameters file

More information:

For more information about CA IDMS VSAM Transparency parameters, see CA IDMS VSAM Transparency parameters, later in this section. For more information about CICS SYSESVS parameters, see z/VSE CICS SYSESVS Parameters.

Example

The following statements illustrate the JCL used to run a sample CICS system running CA IDMS VSAM Transparency applications; this program uses two CA IDMS VSAM Transparency files:

// DLBL EMPFILE,'IDMS.CICS.VSAMT',,VSAM
// DLBL DEPFILE,'IDMS.CICS.VSAMT',,VSAM
// DLBL SYSESVS,'sysesvs.parms'
// EXEC DFHSIP
/&

The JCL required to run a batch CA IDMS VSAM Transparency application program under the central version and in local mode are shown below.

Central Version (z/VSE)

// EXEC PROC=IDMSLBLS
// DLBL   idmslib,'idms.lib'
// EXTENT ,xxxxxx
// LIBDEF PHASE, SEARCH=idmslib.sublib
// DLBL   userdd,'FMT=fmtname',,VSAM,,CAT=ESVS
// DLBL   ESVS,'SUBSCHEMA=ssname,MODE=modetype',,VSAM,,CAT=ESVS
// DLBL   ESVS1,'RBUFSZ=nnnnn'
// EXEC   userpgm

Insert SYSIDMS parameters, as required

/&

IDMSLBLS	Name of the procedure provided at installation containing the file definitions for CA IDMS dictionaries, databases, SYSIDMS, parameter file and other files.
xxxxxx	Volume serial number of disk unit
idmslib	Filename of the CA IDMS Library
idms.lib	File-id of the CA IDMS Library
userdd	Filename of the CA IDMS VSAM Transparency file, as it appears in the application
$ESVS.FMT.FMTNAME	Name of a VSAM dataset that is defined in the VSAM catalog. You must specify ESVS.FMT. and then replace fmtname with your FMT name.
fmtname	Name of the file management table that defines the escaped file
ssname	Subschema name
modetype	Optional indicator of BATCH or CICS mode; if not specified, the default is BATCH
nnnnn	Buffer size
userpgm	Application program name
SYSIDMS	DDname of the parameter file provided by CA IDMS to specify runtime directives and operating system-dependent parameters. For a complete description of the SYSIDMS parameter file, see CA IDMS Common Facilities Guide.

More information:

For more information on these and additional CA IDMS VSAM Transparency parameters, refer to CA IDMS VSAM Transparency parameters located later in this section.

Example

The following statements illustrate the JCL used to run a sample batch CA IDMS VSAM Transparency application program under the central version; this program uses one file:

// EXEC PROC=IDMSLBLS
// DLBL   USRLIB,'User.Library'
// EXTENT ,SYSWK4
// LIBDEF PHASE,Search=(IDMSLIB.sublib,USRLIB.sublib)
// DLBL EMPFILE,'FMT=EMPFMT',,VSAM,,CAT=ESVS
// DLBL ESVS,'SUBSCHEMA=EMPSS01,RBUFSZ=500'
// EXEC EMPLIST

dmcl=idmsdmcl

/&

Local Mode (z/VSE)

// EXEC PROC=IDMSLBLS
// DLBL   idmslib,'idms.lib'
// EXTENT ,xxxxxx
// LIBDEF PHASE, SEARCH=idmslib.sublib
// DLBL userdd,'FMT=fmtname',,VSAM,,CAT=ESVS
// DLBL ESVS,'SUBSCHEMA=ssname,MODE=modetype',,VSAM,,CAT=ESVS1
// DLBL ESVS1,'RBUFSZ=nnnnn'

Additional database file specifications

// EXEC userpgm

Insert SYSIDMS parameters, as required

/&

IDMSLBLS	Name of the procedure provided at installation containing the file definitions for CA IDMS dictionaries, databases, SYSIDMS, parameter file and other files.
nnn	Logical unit assignment for the SYSJRNL in the DMCL
xxxxxx	Volume serial number of disk unit
idmslib	Filename of the CA IDMS Library
idms.lib	File-id of the CA IDMS Library
userdd	Filename of the CA IDMS VSAM Transparency file, as it appears in the application
fmtname	Name of the file management table that defines the escaped file
ssname	Subschema name
Modetype	Optional indicator of BATCH or CICS mode; if not specified, the default is BATCH
nnnnnn	Buffer size
userpgm	Application program name
SYSIDMS	DDname of the parameter file provided by CA IDMS to specify runtime directives and operating system-dependent parameters. For a complete description of the SYSIDMS parameter file, see CA IDMS Common Facilities Guide.

More information:

For more information on these and additional CA IDMS VSAM Transparency parameters, refer to CA IDMS VSAM Transparency parameters located later in this section.

Sample

The following statements illustrate the JCL used to run a sample batch CA IDMS VSAM Transparency application program in local mode:

// EXEC PROC=IDMSLBLS
// DLBL   idmslib,'idms.lib'
// EXTENT ,xxxxxx
// LIBDEF PHASE, SEARCH=idmslib.sublib
// DLBL   EMPFILE,'FMT=EMPFMT',,VSAM,,CAT=ESVS
// DLBL   ESVS,'SUBSCHEMA=EMPSS01,MODE=CICS',,VSAM,,CAT=ESVS1
// DLBL   ESVS1,'RBUFSZ=500'

Additional DLBL statements required to run VSAM application

// EXEC  EMPLIST
dbname=empdb
/&