CA IDMS DLI Transparency JCL › Run-Time Interface JCL › Execute DL/I Batch Application Program

Execute DL/I Batch Application Program

The JCL to execute a DL/I batch application program is shown below: batch application program is shown below:

Central Version

EXECUTE BATCH APPLICATION (z/OS)

//DLI  EXEC  PGM=IDMSDLRC,PARM='DLI,userprog,ipsb'
//STEPLIB DD  DSN=idms.loadlib,DISP=SHR
//        DD  DSN=user.loadlib,DISP=SHR
//sysctl  DD  DSN=idms.sysctl,DISP=SHR
//SYSLST  DD  SYSOUT=A
//SYSIDMS DD *

Put SYSIDMS parameters here 

DBNAME=database name or segment name 
DMCL=DMCL name if other than default of IDMSDMCL 
/*
//SYSIN  DD  *
any additional statements required to run DL/I application
program 
/*

Note: The user can specify either DLI or DB in the PARM parameter. If ipsb and userprog have the same names, ipsb can be omitted. For more information about all SYSIDMS parameters, see the CA IDMS Common Facilities Guide.

Local Mode

To execute the DL/I batch application program in local mode:

• Remove the SYSCTL statement.
• Replace the SYSCTL statement with the following:

  //sysjrnl DD DSN=idms.tapejrnl,DISP=(NEW,KEEP),UNIT=tape
  //userdb  DD  DSN=user.userdb,DISP=SHR
  

Central Version

EXECUTE BATCH APPLICATION (z/VSE)

Note: The following JCL is for use if IDMSDLRC includes IDMSDLPC in thelinkedit.

// JOB
// LIBDEF *,SEARCH=(idms.library,user.library)
// OPTION LOG
// DLBL  SYSCTL,'idms.sysctl',0,SD
// EXTENT SYS000,nnnnnn
// ASSGN SYS000,DISK,VOL=nnnnnn,SHR
// DLBL SYSIDMS,'#SYSIPT',0,SD
// EXEC IDMSDLRC
sysidms parameter statements
/*
DLI,userprog,ipsbname
/*

additional JCL as required to run DL/I application program

Note: The user can specify either DLI or DB. The user can omit ipsb if it has the same name as userprog.

Note: The following Run-Time interface JCL is for use if IDMSDLPC is not included in IDMSDLRC.

// JOB
// LIBDEF *,SEARCH=(idms.library,user.library)
// OPTION LOG
// DLBL  SYSCTL,'idms.sysctl',0,SD
// EXTENT SYS000,nnnnnn
// ASSGN SYS000,DISK,VOL=nnnnnn,SHR
// DLBL SYSIDMS,'#SYSIPT',0,SD
// EXEC IDMSDLRC PARM='DLI,userprog,ipsbname'
sysidms parameter statements
/*

additional JCL as required to run DL/I application program

Note: The user can specify either DLI or DB. The user can omit ipsb if it has the same name as userprog.

Local Mode JCL

To execute the DL/I application program in local mode:

• Remove the UPSI statement.
• Insert the following after the ASSGN statement:

  // TLBL  journal,'idms.tapejrnl'
  // ASSGN sys009,X'ttt'
  // DLBL  userdb,'user.userdb'
  // EXTENT sys018,nnnnnn,1,ssss,llll
  // ASSGN sys018,dddd,VOL=nnnnnn,SHR