JCL/JCS Requirements and Examples

#### Search Results

Search

# JCL/JCS Requirements and Examples

This section describes the job control information required to run ADAMER 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
--- | --- | --- | ---
Input data | DDEBAND | tape/ disk | Output of ADACMP or ADAULD utility
ADARUN parameters | SYSDTA/ DDCARD |  | Operations
ADAMER parameters | SYSDTA/ DDKARTE |  |
ADARUN messages | SYSOUT/ DDPRINT |  | Messages and Codes
ADAMER messages/report | SYSLST/ DDDRUCK |  | Messages and Codes

### ADAMER JCL Example (BS2000)

#### In SDF Format:

    /.ADAMER SET-LOGON-PARAMETERS
    /MODIFY-TEST-OPTIONS DUMP=YES
    /REMARK *
    /REMARK * A D A M E R ALL FUNCTIONS
    /REMARK *
    /ASS-SYSLST L.MER
    /ASS-SYSDTA *SYSCMD
    /SET-FILE-LINK DDLIB,ADAvrs.MOD
    /SET-FILE-LINK DDASSOR1,ADAyyyyy.ASSO,SHARE-UPD=YES
    /SET-FILE-LINK DDEBAND,CMP.AUS
    /START-PROGRAM *M(ADA.MOD,ADARUN),PR-MO=ANY
    ADARUN PROG=ADAMER,DB=yyyyy,IDTNAME=ADABAS5B
    ADAMER ADAMDE=AA,DATASIZE=5200,BITRANGE=8,10,1
    ADAMER MAXISN=10000
    /EXIT-JOB MODE=NORMAL,SYS-OUT=NONE

#### In ISP Format:

    /.ADAMER LOGON
    /OPTION MSG=FH,DUMP=YES
    /REMARK *
    /REMARK * A D A M E R ALL FUNCTIONS
    /REMARK *
    /SYSFILE SYSLST=L.MER
    /FILE ADA.MOD,LINK=DDLIB
    /FILE CMP.AUS,LINK=DDEBAND
    /EXEC (ADARUN,ADA.MOD)
    ADARUN PROG=ADAMER,DB=yyyyy,IDTNAME=ADABAS5B
    ADAMER ADAMDE=AA,DATASIZE=5200,BITRANGE=8,10,1
    ADAMER MAXISN=10000
    /LOGOFF NOSPOOL

## z/OS

Data Set | DD Name | Storage | More Information
--- | --- | --- | ---
Input data | DDEBAND | tape/ disk | Output of ADACMP or ADAULD utility
ADARUN parameters | DDCARD | reader | Operations
ADAMER parameters | DDKARTE | reader |
ADARUN messages | DDPRINT | printer | Messages and Codes
ADAMER messages/report | DDDRUCK | printer | Messages and Codes

### ADAMER JCL Example (z/OS)

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

    //ADAMER    JOB
    //*
    //*   ADAMER:
    //*      ADAM ESTIMATION
    //*
    //MER      EXEC PGM=ADARUN
    //STEPLIB   DD   DISP=SHR,DSN=ADABAS.ADAvrs.LOAD       <=== ADABAS LOAD
    //*
    //DDEBAND   DD   DISP=OLD,DSN=EXAMPLE.DByyyyy.COMPR1 <=== COMPRESS DATA
    //DDDRUCK   DD   SYSOUT=X
    //DDPRINT   DD   SYSOUT=X
    //SYSUDUMP  DD   SYSOUT=X
    //DDCARD    DD   *
    ADARUN PROG=ADAMER,MODE=MULTI,SVC=xxx,DEVICE=dddd,DBID=yyyyy
    /*
    //DDKARTE   DD   *
    ADAMER MAXISN=1000,ADAMDE=AA,BITRANGE=0,2,4
    ADAMER DATADEV=eeee,DATAPFAC=10,DATASIZE=100,175,25
    /*

## z/VSE

File | Sym. Name | Storage | Logical Unit | More Information
--- | --- | --- | --- | ---
Input data | EBAND | tape disk | SYS010 * | Output of ADACMP or ADAULD utility
ADARUN parameters | - CARD CARD | reader tape disk | SYSRDR SYS000 * | Operations
ADAMER parameters | - | reader | SYSIPT |
ADARUN messages | - | printer | SYSLST | Messages and Codes
ADAMER messages/report | - | printer | SYS009 | Messages and Codes

* Any programmer logical unit may be used.

### ADAMER JCS Example (z/VSE)

See Library and File Procedures for z/VSE Examples for a description of the z/VSE procedures (PROCs). Refer to member ADAMER.X for this example.

    * $$ JOB JNM=ADAMER,CLASS=A,DISP=D
    * $$ LST CLASS=A,DISP=D
    // JOB ADAMER
    // OPTION LOG,PARTDUMP
    *       ADAM ESTIMATION
    // EXEC PROC=ADAVvLIB
    // EXEC PROC=ADAVvFIL
    // DLBL EBAND,'EXAMPLE.DByyyyy.COMPR1',0,SD
    // EXTENT SYS004
    // ASSGN SYS004,DISK,VOL=DISK01,SHR
    // EXEC ADARUN,SIZE=ADARUN
    ADARUN PROG=ADAMER,MODE=MULTI,SVC=xxx,DEVICE=dddd,DBID=yyyyy
    /*
    ADAMER MAXISN=1000,ADAMDE=AA,BITRANGE=0,2,4
    ADAMER DATADEV=eeee,DATAPFAC=10,DATASIZE=100,175,25
    /*
    /&
    * $$ EOJ

### On this page

- BS2000
- z/OS
- z/VSE