JCL/JCS Requirements and Examples

#### Search Results

Search

# JCL/JCS Requirements and Examples

Sample jobs you can use to run the ADAZIN utility are described in this document.

- BS2000

- z/OS

- z/VSE

## BS2000

File | Link Name | Storage | More Information
--- | --- | --- | ---
ADARUN parameters | DDCARD or *SYSCMD | reader | Operations
ADAZIN parameters | DDKARTE or *SYSCMD | reader |
ADARUN messages | DDPRINT or *SYSOUT | printer | Messages and Codes
ADAZIN messages | DDDRUCK or *SYSOUT | printer | Messages and Codes

### ADAZIN JCL Example (BS2000)

#### In SDF Format:

    /BEGIN-PROC C
    /MOD-TEST DUMP=YES
    /REMARK *
    /REMARK * A D A Z I N All Functions
    /REMARK *
    /ASS-SYSOUT L.ZIN
    /ASS-SYSLST L.ZIN.L
    /ASS-SYSDTA *SYSCMD
    /SET-FILE-LINK DDLIB,ADABAS.MOD
    /SET-FILE-LINK BLSLIB00,ADABAS.MOD
    /REMA
    /REMA $.SYSLNK.LMS.033 is the LMS SYSLNK Library
    /REMA NOTE: The BLSLIB number should be 4 or more higher than
    /REMA the highest BLSLIB number used, otherwise it can become
    /REMA included in the program
    /SET-FILE-LINK BLSLIB09,$.SYSLNK.LMS.033
    /SET-FILE-LINK DDASSOR1,ADA99.ASSO
    /SET-FILE-LINK DDDATAR1,ADA99.DATA
    /SET-FILE-LINK DDWORKR1,ADA99.WORK
    /SET-FILE-LINK DDZIN,ADABAS.MOD
    /START-PROG *M(E=ADARUN,L=ADABAS.MOD),RUN-MODE=ADV(A-L=YES)
    ADARUN PROG=ADAZIN,DB=99,IDTNAME=ADABAS6B
    ADAZIN
    /ASS-SYSDTA *PRIM
    /ASS-SYSLST *PRIM
    /ASS-SYSOUT *PRIM
    /END-PROC

Refer to ADAZIN(J) in the Adabas source library for this example.

## z/OS

Data Set | Link Name | Storage | More Information
--- | --- | --- | ---
Load | DDZIN | disk | not required. If not specified, the load modules will be listed from the STEPLIB, JOBLIB, LPA, and LNKLST. If specified, one or more load libraries should be supplied.
Load | STEPLIB | disk | required to supply code for ADAZIN utility and as default if no DDZIN link name is specified.
ADARUN parameters | DDCARD | reader | Operations
ADAZIN parameters | DDKARTE | reader |
ADARUN messages | DDPRINT | printer | Messages and Codes
ADAZIN messages | DDDRUCK | printer | Messages and Codes

### Example (z/OS)

    //ADAZIN    JOB . . .
    //*
    //ZIN       EXEC PGM=ADARUN,REGION=0M
    //STEPLIB   DD   DISP=SHR,DSN=ADABAS.ADA822.LOAD
    //*
    //DDZIN     DD   DISP=SHR,DSN=ADABAS.ACF822.LOAD
    //          DD   DISP=SHR,DSN=ADABAS.ADA822.LOAD
    //*
    //DDDRUCK  DD SYSOUT=*
    //DDPRINT  DD SYSOUT=*
    //SYSUDUMP DD SYSOUT=*
    //DDCARD   DD *
    ADARUN PROG=ADAZIN,SVC=235,DEVICE=3390,DBID=123
    /*
    //DDKARTE  DD   *
     ADAZIN

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

## z/VSE

Data Set | Link Name | Storage | More Information
--- | --- | --- | ---
ADARUN parameters | CARD | reader | Operations
ADAZIN parameters | KARTE | reader |
ADARUN messages | PRINT | printer | Messages and Codes
ADAZIN messages | DRUCK | printer | Messages and Codes

### Example (z/VSE)

    * $$ JOB JNM=ADAZIN,DISP=D,CLASS=A
    * $$ LST DISP=D,CLASS=A
    // JOB ADAZIN
    // DLBL SAGLIB,'ADABAS.LIBRARY'
    // EXTENT SYS018
    // ASSGN SYS018,DISK,VOL=USRVL1,SHR
    // LIBDEF PHASE,SEARCH=(SAGLIB.ACFvrs,SAGLIB.ADAvrs),TEMP
    // ASSGN SYS009,PRINTER
    // EXEC ADARUN,SIZE=ADARUN
    ADARUN PROG=ADAZIN,SVC=xxx,DEVICE=dddd,DBID=yyyyy
    /*
    ADAZIN
    /*
    /&
    * $$ EOJ

Refer to member ADAZIN.X for this example.

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

### On this page

- BS2000
- z/OS
- z/VSE