Version 7.4.4
 —  Utilities  —

JCL/JCS Requirements and Examples

This section describes the job control information required to run ADADBS with BS2000, OS/390 or z/OS, VM/ESA or z/VM, and VSE/ESA systems, and shows examples of each of the job streams.

This document covers the following topics:


Collation with User Exit

If a collation user exit is to be used during ADADBS ONLINVERT execution, the ADARUN CDXnn parameter must be specified for the utility run.

Used in conjunction with the universal encoding support (UES), the format of the collation descriptor user exit parameter is

graphics/util_adarun_cdxnn.png

where

nn is the number of the collation descriptor exit, a two-digit decimal integer in the range 01-08 inclusive.
exit-name is the name of the user routine that gets control at the collation descriptor exit; the name can be up to 8 characters long.

Only one program may be specified for each collation descriptor exit. Up to 8 collation descriptor exits may be specified (in any order). See the Adabas DBA Reference documentation for more information.

Top of page

BS2000

Dataset Link Name Storage More Information
Associator DDASSORn   Required for OPERCOM DDIB or RESETDIB with inactive nucleus
ADARUN parameters SYSDTA/ DDCARD   Operations
ADADBS parameters SYSDTA/ DDKARTE   Utilities
ADARUN messages SYSOUT/ DDPRINT   Messages and Codes
ADADBS messages SYSLST/ DDDRUCK   Messages and Codes

ADADBS JCL Example (BS2000)

In SDF Format:

/.ADADBS LOGON
/MODIFY-TEST-OPTIONS DUMP=YES
/REMARK *
/REMARK * A D A D B S ALL FUNCTIONS
/REMARK *
/ASS-SYSLST L.DBS.DATA
/ASS-SYSDTA *SYSCMD
/SET-FILE-LINK DDLIB,ADAvrs.MOD
/START-PROGRAM *M(ADA.MOD,ADARUN),PR-MO=ANY
ADARUN PROG=ADADBS,DB=yyyyy,IDTNAME=ADABAS5B
ADADBS REFRESH FILE=1
/LOGOFF SYS-OUTPUT=DEL

In ISP Format:

/.ADADBS LOGON
 /OPTION MSG=FH,DUMP=YES
 /REMARK *
 /REMARK * A D A D B S ALL FUNCTIONS
 /REMARK *
 /SYSFILE SYSLST=L.DBS
 /FILE ADA.MOD,LINK=DDLIB
 /EXEC (ADARUN,ADA.MOD)
 ADARUN PROG=ADADBS,DB=yyyyy,IDTNAME=ADABAS5B
 ADADBS REFRESH FILE=1
 /LOGOFF NOSPOOL

Top of page

OS/390 or z/OS

Dataset DD Name Storage More Information
Associator DDASSORn disk Required only for OPERCOM DDIB or RESETDIB functions with inactive nucleus
ADADBS messages DDDRUCK printer Messages and Codes
ADARUN messages DDPRINT printer Messages and Codes
ADARUN parameters DDCARD reader Operations
ADADBS parameters DDKARTE reader  

ADADBS JCL Example (OS/390 or z/OS)

Refer to ADADBS in the MVSJOBS dataset for this example.

//ADADBS    JOB
//*
//*     ADADBS:
//*        DATA BASE SERVICES (BATCH)
//*
//DBS       EXEC PGM=ADARUN
//STEPLIB   DD   DISP=SHR,DSN=ADABAS.Vvrs.LOAD  <=== ADABAS LOAD
//*
//DDASSOR1  DD   DISP=SHR,DSN=EXAMPLE.DByyyyy.ASSOR1 <=== ASSO
//DDDATAR1  DD   DISP=SHR,DSN=EXAMPLE.DByyyyy.DATAR1 <=== DATA
//DDWORKR1  DD   DISP=SHR,DSN=EXAMPLE.DByyyyy.WORKR1 <=== WORK
//DDDRUCK   DD   SYSOUT=X
//DDPRINT   DD   SYSOUT=X
//SYSUDUMP  DD   SYSOUT=X
//DDCARD    DD   *
ADARUN PROG=ADADBS,MODE=MULTI,SVC=xxx,DEVICE=dddd,DBID=yyyyy
/*
//DDKARTE   DD   *
ADADBS      REFRESH FILE=1
/*

Top of page

VM/ESA or z/VM

Dataset DD Name Storage More Information
Associator DDASSORn disk/ terminal/ reader Required only for
OPERCOM DDIB or
RESETDIB functions with inactive nucleus
ADARUN parameters DDCARD disk/ terminal/ reader Operations
ADADBS parameters DDKARTE disk/ terminal/ reader  
ADARUN messages DDPRINT disk/ terminal/ printer Messages and Codes
ADADBS messages DDDRUCK disk/ terminal/ printer  

ADADBS JCL Example (VM/ESA or z/VM)

Refer to ADADBS in the MVSJOBS dataset for this example.

DATADEF DDPRINT,DSN=ADADBS,DDPRINT,MODE=A
DATADEF DUMP,DUMMY
DATADEF DDDRUCK,DSN=ADADBS.DDDRUCK,MODE=A
DATADEF DDCARD,DSN=RUNDBS.CONTROL,MODE=A
DATADEF DDKARTE,DSN=ADADBS.CONTROL,MODE=A
ADARUN

Contents of RUNDBS CONTROL A1:

ADARUN PROG=ADADBS,DEVICE=dddd,DB=yyyyy

Contents of ADADBS CONTROL A1:

ADADBS REFRESH FILE=1

Top of page

VSE/ESA

File File Name Storage Logical Unit More Information
Associator ASSORn disk * Required for OPERCOM DDIB or RESETDIB functions with inactive nucleus
ADARUN parameters -
CARD
CARD
reader
tape
disk
SYSRDR
SYS000
*
 
ADADBS parameters - reader SYSIPT Utilities
ADARUN messages - printer SYSLST Messages and Codes
ADADBS messages - printer SYS009 Messages and Codes

* Any programmer logical unit may be used.

ADADBS JCS Example (VSE/ESA)

See Procedures for VSE/ESA Examples for a description of the VSE/ESA procedures.

Refer to member ADADBS.X in the MVSJOBS dataset for this example.

* $$ JOB JNM=ADADBS,CLASS=A,DISP=D
* $$ LST CLASS=A,DISP=D
*       DATABASE SERVICES (BATCH)
// JOB ADADBS
// EXEC PROC=ADAVvLIB
// EXEC PROC=ADAVvFIL
// EXEC ADARUN,SIZE=ADARUN
ADARUN PROG=ADADBS,MODE=MULTI,SVC=xxx,DEVICE=dddd,DBID=yyyyy
/*
ADADBS REFRESH FILE=1
/*
/&
* $$ EOJ

Top of page