Previous Topic: CICS Application Program Link Edit


Runtime JCL

Use the following JCL to execute a Total application program under the central version.

Runtime (z/VSE)

// LIBDEF *,SEARCH=(user.sublib,idms.sublib)
// DLBL sysctl,'idms.sysctl',1999/365,SD
// EXTENT SYSnnn,nnnnnn
// ASSGN SYSnnn,DISK,VOL=nnnnnn,SHR
// DLBL SYSIDMS,'#SYSIPT'
// EXEC userprog
Optional SYSIDMS parameters
/*
Program input if any
/*

user.sublib

The name of the user sublibrary

idms.sublib

The name of the CA IDMS library

sysctl

Filename of the SYSCTL file

idms.sysctl

File ID of the SYSCTL file

SYSnnn

Logical unit of the volume for which the extent is effective

nnnnnn

Volume serial number

userprog

Name of the Total application program

SYSIDMS parameters

Parameters you specify to establish a runtime environment.

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

Executing in Local Mode

To execute user application programs in local mode, remove the SYSCTL statements, and insert the following statements before the EXEC userprog statement:

// DLBL  dcmsg,'idms.sysmsg.ddldcmsg',1999/365,DA
// EXTENT SYSnnn,nnnnnn
// ASSGN SYSnnn,DISK,VOL=nnnnnn,SHR
// DLBL    userdb,'user.userdb',,DA
// EXTENT   SYSnnn,nnnnnn
// ASSGN    SYSnnn,DISK,VOL=nnnnnn,SHR
Additional database file assignments, as required
// TLBL     sysjrnl,'idms.tapejrnl',,nnnnnn,,f
// ASSGN    sys009,TAPE,VOL=nnnnnn

dcmsg

Filename of the system message area (ddldcmsg)

idms.sysmsg.ddldcmsg

File name of the CA IDMS system message area (DDLDCMSG)

userdb

Filename of the user CA IDMS/DB database file

user.userdb

File ID of the user CA IDMS/DB database file

SYSnnn

Logical unit assignment of the user CA IDMS/DB database file

sysjrnl

Filename of the tape journal file

sys009

Logical unit assignment of the tape journal file

idms.tapejrnl

File ID of the tape journal file

nnnnnn

Volume serial number

f

File number of the tape journal file