JCL/JCS Requirements and Examples

#### Search Results

Search

# JCL/JCS Requirements and Examples

This section describes the job control information required to run ADASEL 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
--- | --- | --- | ---
Protection log | DDSIIN | tape/ disk | Sequential log
Optional FDT input | DDEBANn | tape/ disk | Either DDEBAND or DDSAVE can be specified, but not both.
Optional save tape with FDT input | DDSAVE | tape/ disk | Either DDEBAND or DDSAVE can be specified, but not both. This link name is required if a save tape is used in the ADASEL run.
Selected data | DDEXPAn | tape/ disk | Output by ADASEL
Associator | DDASSORn | disk |
ADARUN parameters | SYSDTA/ DDCARD |  | Operations
ADASEL parameters | SYSDTA/ DDKARTE |  |
ADARUN messages | SYSOUT/ DDPRINT |  | Messages and Codes
ADASEL messages | SYSLST/ DDDRUCK |  | Messages and Codes

### ADASEL JCL Example (BS2000)

#### In SDF Format:

    /.ADASEL SET-LOGON-PARAMETERS
    /MODIFY-TEST-OPTIONS DUMP=YES
    /REMARK *
    /REMARK * A D A S E L ALL FUNCTIONS
    /REMARK *
    /DELETE-FILE SEL.AUS
    /SET-JOB-STEP
    /CREATE-FILE SEL.AUS,PUB(SPACE=(48,48))
    /SET-JOB-STEP
    /ASS-SYSLST L.SEL
    /ASS-SYSDTA *SYSCMD
    /SET-FILE-LINK DDLIB,ADAvrs.MOD
    /SET-FILE-LINK DDASSOR1,ADAyyyyy.ASSO
    /SET-FILE-LINK DDSIIN,ADAyyyyy.SIBA
    /SET-FILE-LINK DDEXPA1,SEL.AUS
    /START-PROGRAM *M(ADA.MOD,ADARUN),PR-MO=ANY
    ADARUN PROG=ADASEL,DB=yyyyy,IDTNAME=ADABAS5B
    SELECT ALL FROM FILE 11
    DISPLAY AA BB BA BC CA CC
    END
    /EXIT-JOB MODE=NORMAL,SYS-OUT=NONE

#### In ISP Format:

    /.ADASEL LOGON
    /OPTION MSG=FH,DUMP=YES
    /REMARK *
    /REMARK * A D A S E L ALL FUNCTIONS
    /REMARK *
    /SYSFILE SYSLST=L.SEL
    /FILE ADA.ASSO ,LINK=DDASSOR1
    /FILE ADA.MOD ,LINK=DDLIB
    /FILE ADAyyyyy.SIBA ,LINK=DDSIIN
    /FILE SEL.AUS ,LINK=DDEXPA1 ,SPACE=(48,48)
    /EXEC (ADARUN,ADA.MOD)
    ADARUN PROG=ADASEL,DB=yyyyy,IDTNAME=ADABAS5B
    SELECT ALL FROM FILE 11
    DISPLAY AA BB BA BC CA CC
    END
    /LOGOFF NOSPOOL

## z/OS

Data Set | DD Name | Storage | More Information
--- | --- | --- | ---
Protection log | DDSIIN | tape/ disk | Sequential log
Optional FDT input | DDEBAND | tape/ disk | Either DDEBAND or DDSAVE can be specified, but not both.
Optional save tape with FDT input | DDSAVE | tape/ disk | Either DDEBAND or DDSAVE can be specified, but not both. This DD is required if a save tape is used in the ADASEL run.
Selected data | DDEXPAn | tape/ disk | Output by ADASEL
Associator | DDASSORn | disk |
ADARUN parameters | DDCARD | reader | Operations
ADASEL parameters | DDKARTE | reader |
ADARUN messages | DDPRINT | printer | Messages and Codes
ADASEL messages | DDDRUCK | printer | Messages and Codes

### ADASEL JCL Example (z/OS)

    //ADASEL    JOB
    //*
    //*   ADASEL:
    //*      SELECT PROTECTION DATA
    //*
    //SEL       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
    //DDSIIN    DD   DISP=OLD,DSN=EXAMPLE.DByyyyy.PLOG5     <=== OUTPUT ADARES
    //*                                                                PLCOPY
    //DDEXPA1   DD   DISP=(,CATLG),DSN=EXAMPLE.DByyyyy.EXPA1, <= OUTPUT ADASEL
    //               SPACE=(TRK,(10,5),RLSE),VOL=SER=vvvvvv,UNIT=uuuu
    //DDDRUCK   DD   SYSOUT=X
    //DDPRINT   DD   SYSOUT=X
    //SYSUDUMP  DD   SYSOUT=X
    //DDCARD    DD   *
    ADARUN PROG=ADASEL,SVC=xxx,DEVICE=dddd,DBID=yyyyy
    /*
    //DDKARTE   DD   *
    *
    *    SELECT UPDATES FOR FILE NUMBER 1
    *
    SELECT ALL FROM FILE 1
      OUTPUT TO EXPA1
    END
    /*

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

## z/VSE

File | File Name | Storage | Logical Unit | More Information
--- | --- | --- | --- | ---
Protection log | SIIN | tape disk | SYS010 * | Sequential log
Optional FDT input | EBAND | tape/ disk |  | Either DDEBAND or DDSAVE can be specified, but not both.
Optional save tape with FDT input | SAVE | tape/ disk |  | Either DDEBAND or DDSAVE can be specified, but not both. This file is required if a save tape is used in the ADASEL run.
Selected data | EXPA1-20 | tape disk | SYS011-SYS030 * | Output by ADASEL
Associator | ASSORn | disk | * |
ADARUN parameters | SYSRDR CARD | reader/ tape/ disk |  | Operations
ADASEL parameters | SYSIPT | reader |  |
ADARUN messages | SYSLST | printer |  | Messages and Codes
ADASEL messages | SYS009 | printer |  | Messages and Codes

* Any programmer logical unit may be specified.

### ADASEL JCS Example (z/VSE)

    * $$ JOB JNM=ADASEL,CLASS=A,DISP=D
    * $$ LST CLASS=A,DISP=D
    // JOB ADASEL
    *       SELECT PROTECTION DATA
    // EXEC PROC=ADAVvLIB
    // EXEC PROC=ADAVvFIL
    // PAUSE MOUNT LOAD INPUT PLOG FILE ON TAPE cuu
    // ASSGN SYS010,TAPE
    // TLBL SIIN,'EXAMPLE.DByyyyy.PLOG5'
    // DLBL EXPA1,'EXAMPLE.ADAyyyyy.EXPA1'
    // EXTENT SYS015,,,,ssss,nnnn
    // ASSGN SYS015,DISK,VOL=vvvvvv,SHR
    // EXEC ADARUN,SIZE=ADARUN
    ADARUN PROG=ADASEL,SVC=xxx,DEVICE=dddd,DBID=yyyyy
    /*
    *    SELECT UPDATES FOR FILE NUMBER 1
    *
    SELECT ALL FROM FILE 1
      OUTPUT TO EXPA1

    END
    /*
    /&
    * $$ EOJ

Refer to member ADASEL.X for this example.

### On this page

- BS2000
- z/OS
- z/VSE