JCL/JCS Requirements and Examples

#### Search Results

Search

# JCL/JCS Requirements and Examples

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

This document covers the following topics:

- Collation with User Exit

- BS2000

- z/OS

- z/VSE

## 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

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.

## BS2000

File | 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 SET-LOGON-PARAMETERS
    /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
    /EXIT-JOB MODE=NORMAL,SYS-OUT=NONE

#### 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

## z/OS

Data Set | 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 (z/OS)

Refer to ADADBS in the JOBS data set for this example.

    //ADADBS    JOB
    //*
    //*     ADADBS:
    //*        DATA BASE SERVICES (BATCH)
    //*
    //DBS       EXEC PGM=ADARUN
    //STEPLIB   DD   DISP=SHR,DSN=ADABAS.ADAvrs.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
    /*

## z/VSE

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 (z/VSE)

See Library and File Procedures for z/VSE Examples for a description of the z/VSE procedures.

Refer to member ADADBS.X in the JOBS data set 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

### On this page

- Collation with User Exit
- BS2000
- z/OS
- z/VSE