Runtime Considerations › JCL

JCL

The JCL for using the CA ADS Batch runtime system (ADSBATCH) to execute an application is shown below.

Sample z/OS JCL Under Central Version ADSBATCH (z/OS)

//ADSBATCH EXEC PGM=ADSBATCH,REGION=1024K,parm=parameter
//STEPLIB  DD   DSN=idms.dba.loadlib,DISP=SHR
//              DSN=idms.loadlib,DISP=SHR
//IDMSSNAP DD   SYSOUT=A
//sysctl   DD   DSN=idms.sysctl,DISP=SHR
//adsloga  DD   DSN=log.file,DISP=OLD
//file.descriptions
//SYSLST   DD   SYSOUT=A
//SYSIDMS  DD   *
DMCL=dmcl-name
DICTNAME=dictionary-name
Other SYSIDMS parameters, as appropriate
/*
//SYSIPT   DD   *
control statements
/*
//SYSUDUMP DD   SYSOUT=A

Note: To get a snap dump when an abend occurs during a mapping operation, you must specify a DD statement with the name IDMSSNAP. The IDMSSNAP file stores the snap dump. an example of a mapping abend is when an input record that contains errors cannot be written to a suspense file because the MAXIMUM ERRORS for the dialog, which is specified at system generation or at runtime, has been exceeded.

Archive Log File

For an archive log file, specify a ddname of ARCLOGn, where n is 1 for the first archive file, 2 for the second archive file, and so forth, up to 9. The following sample JCL allocates the first archive log file:

//ARCLOG1  DD  DSN=MEN.CC.RQE.ARCTAP1,DISP=(NEW,CATLG,DELETE),
//          UNIT=(TAPE,,DEFER),LABEL=(,SL),VOL=(,RETAIN),
//          DCB=(RECFM=VB,LRECL=320,BLKSIZE=12804)

Local mode

To execute ADSBATCH in local mode, the following steps are required:

1. Remove the sysctl DD statement.
2. Add the following statements:

   //sysjrnl DD   DSN=idms.tapejrnl,DISP=NEW,UNIT=tape
   //dictdb  DD   DSN=idms.dictdb,DISP=OLD
   //dloddb  DD   DSN=idms.dloddb,DISP=SHR
   //dmsgdb  DD   DSN=idms.dmsgdb,DISP=SHR
   //dlogdb  DD   DSN=idms.dlogdb,DISP=SHR
   additional journal file assignments, as required
   

   Note: Under local mode, if you are running a multi-level application which transfers control using a LINK command without the NOSAVE option, you must code the LOCKING=ON parameter in the SYSIDMS parameter file.

Sample z/VSE JCL Under Central Version ADSBATCH (z/VSE)

// DLBL SYSCTL,'idms.sysctl', 1999/365,SD
// DLBL     ciln,'idms.cilib'
// EXTENT   ,nnnnnn
// LIBDEF   *,SEARCH=(ciln),TEMP
// DLBL     adsloga,'log.file'
// EXTENT   sysnnn,VOLSER,,,start-track,end-track
// ASSGN    sysnnn,DISK,VOL=VOLSER,SHR
// DLBL SYSIDMS,'#SYSIPT'
// file.descriptions
// EXEC     IDMSFILE,SIZE=(AUTO,128K)
SYSIDMS control statements
IDMSFILE control statements
ADSBATCH control statements
DIALOG control statements

What to Consider

A /* must follow each SYSIPT file. If an abend occurs during a file mapping operation, the snap dump is written automatically to SYSLST.

Local Mode

To execute ADSBATCH in local mode, the following steps are required:

1. Remove the SYSCTL DLBL card
2. Add the following statements:

   // DLBL     dictdb,'idms.dictdb',,DA
   // EXTENT   sys005,nnnnnn
   // ASSGN    sys005,DISK,VOL=nnnnnn,SHR
   // DLBL     dloddb,'idms.dloddb',,DA
   // EXTENT   sys017,nnnnnn
   // ASSGN    sys017,DISK,VOL=nnnnnn,SHR
   // DLBL     dmsgdb,'idms.dmsgdb',,DA
   // EXTENT   sys016,nnnnnn
   // ASSGN    sys016,DISK,VOL=nnnnnn,SHR
   // DLBL     dlogdb,'idms.dlogdb',,DA
   // EXTENT   sys019,nnnnnn
   // ASSGN    sys019,DISK,VOL=nnnnnn,SHR
   // TLBL     sysjrnl,'idms.tapejrnl',,nnnnnn,,f
   // ASSGN    sys009,TAPE,VOL=nnnnnn
   additional journal file assignments, as required
   

Local Mode

To execute ADSBATCH in local mode, the following steps are required:

1. Remove the ADD-FILE-LINK statement for sysctl
2. Add the following statements:

   /ADD-FILE-LINK L-NAME=dictdb,F-NAME=idms.appldict.dictdb,SHARED-UPD=*YES
   /ADD-FILE-LINK L-NAME=dloddb,F-NAME=idms.appldict.dloddb,SHARED-UPD=*YES
   /ADD-FILE-LINK L-NAME=dcmsg,F-NAME=idms.sysmsg.ddldcmsg,SHARED-UPD=*YES
   /ADD-FILE-LINK L-NAME=sysjrnl,F-NAME=idms.tapejrnl
   additional user database file assignments
   additional journal file assignments, as required