Modify the application JCL

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

Modify the application JCL— z/OS

SUBSYS Parameter

In z/OS, CA IDMS VSAM Transparency is a subsystem and each CA IDMS VSAM Transparency file is considered a subsystem data set. This means that each data definition card for an CA IDMS VSAM Transparency file must contain the SUBSYS parameter.

Central Version

The JCL used to run a CICS CA IDMS VSAM Transparency application program under the central version is shown below.

CICS (z/OS)

//ESVSCICS  EXEC  PGM=DFHSIP
//STEPLIB   DD    DSN=cics.system.loadlib1,DISP=SHR
//DFHRPL    DD    DSN=cics.system.loadlib,DISP=SHR
//          DD    DSN=cics.system.loadlib2,DISP=SHR
//          DD    DSN=idms.dba.loadlib,DISP=SHR
//          DD    DSN=idms.loadlib,DISP=SHR
//          DD    DSN=user.loadlib, DISP=SHR
//dcmsg     DD    DSN=idms.sysmsg.ddldcmsg,DISP=SHR
//sysctl    DD    DSN=user.sysctl,DISP=SHR
//userdd    DD    SUBSYS=(ESVS,'FMT=fmtname','SUBSCHEMA=ssname'
//               'MODE=CICS','RBUFSZ=nnnnn','TNT=tntname'
//               'CWADISP=disp')
//               DSN=dataset-name,DISP=SHR
//SYSIDMS   DD    *

Insert SYSIDMS parameters, as appropriate

user.loadlib	Data set name of the user load library
userdd	DDname of the CA IDMS VSAM Transparency file, as it appears in the application
cics.system.loadlib, loadlib1, loadlib2	Names of the CICS system load libraries
idms.sysmsg.ddldcmsg	Data set name of the system message (DDLDCMSG) area
idms.dba.loadlib	Data set name of the load library containing the DMCL and database name table load modules
idms.loadlib	Data set name of the load library containing the CA IDMS executable system modules
dcmsg	DDname of the system message (DDLDCMSG) area
fmtname	Name of the file management table that defines the escaped file
ssname	Subschema name
nnnnnn	Buffer size
tntname	Name of the transaction name table; optional when only one subschema exists for use with CA IDMS VSAM Transparency programs; required if more than one subschema exists
disp	Value equal to the CWADISP specified in the assembly of IDMSINTC
data set name	Name of a VSAM KSDS file 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. CA IDMS VSAM Transparency does not require any special naming convention. The DSNAME parameter is not needed with CICS Releases prior to Release 1.7.
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 CICS system that uses two CA IDMS VSAM Transparency files:

//ESVSCICS  EXEC  PGM=DFHSIP
//STEPLIB   DD    DSN=CICS.SYSTEM.LOADLIB1, DISP=SHR
//DFHRPL    DD    DSN=CICS.SYSTEM.LOADLIB, DISP=SHR
//          DD    DSN=CICS.SYSTEM.LOADLIB2, DISP=SHR
//          DD    DSN=IDMS.DBA.LOADLIB, DISP=SHR
//          DD    DSN=IDMS.LOADLIB, DISP=SHR
//          DD    DSN=USER.LOADLIB, DISP=SHR
//dcmsg     DD    DSN=IDMS.SYSMSG.DDLDCMSG, DISP=SHR
//sysctl    DD    DSN=USER.SYSCTL, DISP=SHR
//SYSIDMS   DD    *
//EMPFILE   DD    SUBSYS=(ESVS,'FMT=EMPFMT','SUBSCHEMA=EMPSS01',
//                'MODE=CICS','RBUFSZ=500','TNT=CICSTNT','CWADISP=16'),
//                DSN=VSAM.ESVS.EMPFILE,DISP=SHR
//DEPFILE DD      SUBSYS=(ESVS,'FMT=DEPFMT')
//                DSN=VSAM.ESVS.DEPFILE,DISP=SHR

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

Central Version (z/OS)

//userpgm  EXEC  PGM=userpgm
//STEPLIB  DD    DSN=user.loadlib,DISP=SHR
//         DD    DSN=idms.dba.loadlib,DISP=SHR
//         DD    DSN=idms.loadlib,DISP=SHR
//dcmsg    DD    DSN=idms.sysmsg.ddldcmsg,DISP=SHR
//sysctl   DD    DSN=user.sysctl,DISP=SHR
//userdd   DD    SUBSYS=(ESVS,'FMT=fmtname','SUBSCHEMA=ssname'
//               'MODE=modetype','RBUFSZ=nnnnn')
//SYSIDMS  DD    *

Insert SYSIDMS parameters, as appropriate

userpgm	Application program name
user.loadlib	Data set name of the user load library
cics.system.loadlib, loadlib1, loadlib2	Names of the CICS system load libraries
idms.sysmsg.ddldcmsg	Data set name of the system message (DDLDCMSG) area
idms.dba.loadlib	Data set name of the load library containing the DMCL and database name table load modules
idms.loadlib	Data set name of the load library containing the CA IDMS executable system modules
dcmsg	DDname of the system message (DDLDCMSG) area
sysctl	DDname of the user SYSCTL file
user.sysctl	Data set name of the user SYSCTL file
userdd	DDname 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
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 and one subschema.

//EMPLIST EXEC  PGM=EMPLIST
//STEPLIB DD    DSN=user.loadlib,DISP=SHR
//        DD    DSN=idms.dba.loadlib,DISP=SHR
//        DD    DSN=idms.loadlib,DISP=SHR
//SYSCTL  DD    DSN=IDMS.SYSCTL,DISP=SHR
//DEPFILE DD    SUBSYS=(ESVS,'FMT=EMPFMT','SUBSCHEMA=EMPSS01',
//              'RBUFSZ=nnnnn'
//dcmsg   DDDSN=idms.sysmsg.ddldcmsg,DISP=SHR
//SYSIDMS DD    *

Local Mode (z/OS)

//userpgm  EXEC  PGM=userpgm
//STEPLIB  DD    DSN=user.loadlib,DISP=SHR
//         DD    DSN=idms.dba.loadlib,DISP=SHR
//         DD    DSN=idms.loadlib,DISP=SHR
//dcdml    DD    DSN=idms.system.ddldml,DISP=SHR
//dclod    DD    DSN=idms.system.ddldclod,DISP=SHR
//dclog    DD    DSN=idms.system.ddldclog,DISP=SHR
//SYSJRNL  DD    DSN=idms.journal.local, DISP=(NEW, KEEP), unit=devtype
//userdb   DD    DSN=user.userdb.file,DISP=SHR
//userdd   DD    SUBSYS=(ESVS,'FMT=fmtname','SUBSCHEMA=ssname')
Additional database file specifications
//SYSIDMS  DD    *

Insert SYSIDMS parameters, as appropriate

userpgm	Application program name
user.loadlib	Data set name of the user load library
idms.dba.loadlib	Data set name of the load library containing the CA IDMS DMCL and database name table load modules
idms.loadlib	Data set name of the load library containing the CA IDMS system executable modules
dcdml	DDname of the system dictionary definition (DDLDML) area
idms.system.ddldml	Data set name of the system dictionary definition (DDLDML) area
dclod	DDname of the system dictionary definition load (DDLDCLOD) area
idms.system.ddldclod	Data set name of the system dictionary definition load (DDLDCLOD) area
dclog	DDname of the system log (DDLDCLOG) area
idms.system.ddldclog	Data set name of the system log (DDLDCLOD) area
userdb	DDname of the user CA IDMS/DB file
user.userdb	Data set name of the user CA IDMS/DB file
userdd	DDname 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
nnnnnn	Buffer size
devtype	Disk or tape
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 in local mode:

//EMPLIST EXEC  PGM=EMPLIST
//STEPLIB  DD    DSN=user.loadlib,DISP=SHR
//         DD    DSN=idms.dba.loadlib,DISP=SHR
//         DD    DSN=idms.loadlib,DISP=SHR
//         DD    DSN=IDMS.EMPLOAD,DISP=SHR
//SYSJRNL  DD    DSN=idms.journal.local, DISP=(NEW, KEEP), unit=devtype
//MYDB    DD    DSN=MY.EMPDB.EMPFILE,DISP=SHR
//EMPFILE DD    SUBSYS=(ESVS,'FMT=EMPFMT','SUBSCHEMA=EMPSS01')

additional DD statements to run VSAM application