JCL/JCS Requirements and Examples

#### Search Results

Search

# JCL/JCS Requirements and Examples

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

This document covers the following topics:

- BS2000

- z/OS

- z/VSE

## BS2000

File | Link Name | Storage | More Information
--- | --- | --- | ---
Associator | DDASSORn | disk |
Data Storage | DDDATARn | disk |
Work | DDWORKR1 DDWORKR4 | disk |
ADARUN parameters | SYSDTA/ DDCARD |  | Operations
ADADEF parameters | SYSDTA/ DDKARTE |  | Utilities
ADARUN messages | SYSOUT/ DDPRINT |  | Messages and Codes
Time zone file | TZINFO | disk | Required with TIMEZONE parameter
ADADEF messages | SYSLST/ DDDRUCK |  | Messages and Codes

### ADADEF JCL Examples (BS2000)

#### Define Database

#### In SDF Format:

    /.ADADEF SET-LOGON-PARAMETERS
    /MODIFY-TEST-OPTIONS DUMP=YES
    /REMARK *
    /REMARK * A D A D E F DEFINE DATABASE
    /REMARK *
    /ASS-SYSLST L.DEF.DATA
    /ASS-SYSDTA *SYSCMD
    /SET-FILE-LINK DDLIB,ADAvrs.MOD
    /SET-FILE-LINK DDASSOR1,ADAyyyyy.ASSO
    /SET-FILE-LINK DDDATAR1,ADAyyyyy.DATA
    /SET-FILE-LINK DDWORKR1,ADAyyyyy.WORK
    /START-PROGRAM *M(ADA.MOD,ADARUN),PR-MO=ANY
    ADARUN PROG=ADADEF,DB=yyyyy,IDTNAME=ADABAS5B
    ADADEF DEFINE DBNAME=EXAMPLE-DB
    ADADEF ASSOSIZE=100,DATASIZE=200,WORKSIZE=40
    ADADEF MAXFILES=120
    ADADEF FILE=1,CHECKPOINT
    ADADEF NAME= CHECKPOINT ,MAXISN=5000,UISIZE=10B
    ADADEF DSSIZE=500B,NISIZE=100B
    /EXIT-JOB MODE=NORMAL,SYS-OUT=NONE

#### In ISP Format:

    /.ADADEF LOGON
    /OPTION MSG=FH,DUMP=YES
    /REMARK *
    /REMARK * A D A D E F DEFINE DATABASE
    /REMARK *
    /SYSFILE SYSLST=L.DEF.DEFI
    /FILE ADA.MOD,LINK=DDLIB
    /FILE ADAyyyyy.ASSO ,LINK=DDASSOR1
    /FILE ADAyyyyy.DATA ,LINK=DDDATAR1
    /FILE ADAyyyyy.WORK ,LINK=DDWORKR1
    /EXEC (ADARUN,ADA.MOD)
    ADARUN PROG=ADADEF,DB=yyyyy,IDTNAME=ADABAS5B
    ADADEF DEFINE DBNAME=EXAMPLE-DB
    ADADEF ASSOSIZE=100,DATASIZE=200,WORKSIZE=40
    ADADEF MAXFILES=120
    ADADEF FILE=1,CHECKPOINT
    ADADEF NAME= CHECKPOINT ,MAXISN=5000,UISIZE=10B
    ADADEF DSSIZE=500B,NISIZE=100B
    /LOGOFF NOSPOOL

## z/OS

Data Set | DD Name | Storage | More Information
--- | --- | --- | ---
Associator | DDASSORn | disk |
Data Storage | DDDATARn | disk |
Work (Current) | DDWORKR1 DDWORKR4 | disk |
ADARUN parameters | DDCARD | reader | Operations
ADADEF parameters | DDKARTE | reader |
ADARUN messages | DDPRINT | printer | Messages and Codes
Time zone file | TZINFO | disk | Required with TIMEZONE parameter
ADADEF messages | DDDRUCK | printer | Messages and Codes

### ADADEF JCL Examples (z/OS)

#### Define Database

    //ADADEF    JOB
    //*
    //*   ADADEF:
    //*      DEFINE THE PHYSICAL LAYOUT OF THE DATABASE
    //*      DEFINE THE NUCLEUS SYSTEM FILE: CHECKPOINT FILE
    //*
    //DEF       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=ADADEF,SVC=xxx,DEVICE=dddd,DBID=yyyyy
    /*
    //DDKARTE   DD   *
    ADADEF DEFINE DBNAME=EXAMPLE-DB,DBIDENT=YYYYY
    ADADEF        ASSOSIZE=100,DATASIZE=200,WORKSIZE=40
    ADADEF        MAXFILES=120
    *
    ADADEF FILE=19,CHECKPOINT
    ADADEF   NAME='CHECKPOINT',MAXISN=5000
    ADADEF   DSSIZE=100B,NISIZE=3B,UISIZE=3B
    /*

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

#### Define New Work

    //ADADEFNW  JOB
    //*
    //*    ADADEF: DEFINE NEW WORK
    //*
    //DEF       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=ADADEF,SVC=xxx,DEVICE=dddd,DBID=yyyyy
    /*
    //DDKARTE   DD   *
    ADADEF NEWWORK WORKSIZE=60,WORKDEV=eeee
    /*

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

## z/VSE

File | Symbolic Name | Storage | Logical Unit | More Information
--- | --- | --- | --- | ---
Associator | ASSORn | disk | * |
Data Storage | DATARn | disk | * |
Work (Current) | WORKR1 | disk | * |
ADARUN parameters | - CARD CARD | reader tape disk | SYSRDR SYS000 * |
ADADEF parameters | - | reader | SYSIPT |
ADARUN messages | - | printer | SYSLST |
Time zone file | TZINFO | disk |  | Required with TIMEZONE parameter
ADADEF messages | - | printer | SYS009 | Messages and Codes

* Any programmer logical unit may be used.

### ADADEF JCS Examples (z/VSE)

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

#### Define Database

Refer to member ADADEF.X for this example.

    * $$ JOB JNM=ADADEF,CLASS=A,DISP=D
    * $$ LST CLASS=A,DISP=D
    // JOB ADADEF
    *       DEFINE THE PHYSICAL LAYOUT OF THE DATABASE
    *       DEFINE THE NUCLEUS SYSTEMFILE: CHECKPOINT FILE
    // EXEC PROC=ADAVvLIB
    // EXEC PROC=ADAVvFIL
    // EXEC ADARUN,SIZE=ADARUN
    ADARUN PROG=ADADEF,MODE=SINGLE,SVC=xxx,DEVICE=dddd,DBID=yyyyy
    /*
    ADADEF DEFINE DBNAME=EXAMPLE-DB,DBIDENT=yyyyy
    ADADEF        ASSOSIZE=100,DATASIZE=200,WORKSIZE=40
    ADADEF        MAXFILES=120
    *

    ADADEF FILE=19,CHECKPOINT
    ADADEF   NAME='CHECKPOINT',MAXISN=5000
    ADADEF   DSSIZE=100B,NISIZE=3B,UISIZE=3B
    /*
    /&
    * $$ EOJ

#### Define New Work

Refer to member ADADEFNW.X for this example.

    * $$ JOB JNM=ADADEFNW,CLASS=A,DISP=D
    * $$ LST CLASS=A,DISP=D
    // JOB ADADEFNW
    *       DEFINE NEW WORK
    // EXEC PROC=ADAVvLIB
    // EXEC PROC=ADAVvFIL
    // EXEC ADARUN,SIZE=ADARUN
    ADARUN PROG=ADADEF,MODE=SINGLE,SVC=xxx,DEVICE=dddd,DBID=yyyyy
    /*
    ADADEF NEWWORK WORKSIZE=60,WORKDEV=eeee
    /*
    /&
    * $$ EOJ

### On this page

- BS2000
- z/OS
- z/VSE