JCL/JCS Requirements and Examples

#### Search Results

Search

# JCL/JCS Requirements and Examples

This section describes the job control information required to run ADAREP 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 |
Save tape | DDSAVE | tape/ disk | Only with SAVETAPE
Protection log | DDPLOG | tape/ disk | Option with online save tape
ADARUN parameters | SYSDTA/ DDCARD |  | Operations
ADAREP parameters | SYSDTA/ DDKARTE |  |
ADARUN messages | SYSOUT DDPRINT |  | Messages and Codes
Time zone file | TZINFO | disk | Required when database has default time zone
ADAREP messages | SYSLST DDDRUCK |  | Messages and Codes
Adabas UES code objects | DDECSOJ | disk | Required for universal encoding support (UES) with the `OUTPUT='XML, UTF8'` parameter setting.
ADAREP XML summary report | DDXMLR1 | tape/disk | Only necessary when the OUTPUT or ACODE parameters are specified. This data is just a standard BS2000 file.
ADAREP XML detailed report | DDXMLR2 | tape/disk | Only necessary when the OUTPUT or ACODE parameters are specified in the same run as the CPLIST or CPEXLIST parameters. This data is just a standard BS2000 file.

### ADAREP JCL Example (BS2000)

#### In SDF Format:

Here is a general example, in SDF format.

    /.ADAREP LOGON
     /MODIFY-TEST-OPTIONS DUMP=YES
     /REMARK *
     /REMARK * A D A R E P ALL FUNCTIONS
     /REMARK *
     /ASS-SYSLST L.REP
     /ASS-SYSDTA *SYSCMD
     /SET-FILE-LINK DDLIB,ADAvrs.MOD
     /SET-FILE-LINK DDASSOR1,ADAyyyyy.ASSO,SHARE-UPD=YES
     /SET-FILE-LINK DDDATAR1,ADAyyyyy.DATA,SHARE-UPD=YES
     /START-PROGRAM *M(ADA.MOD,ADARUN),PR-MO=ANY
     ADARUN PROG=ADAREP,DB=yyyyy,IDTNAME=ADABAS5B
     ADAREP CPLIST
     /LOGOFF SYS-OUTPUT=DEL

Here is an example showing the use of OUTPUT='XML,UTF8'.

    /.ADAREP LOGON
    /MODIFY-TEST-OPTIONS DUMP=YES
    /REMARK *
    /REMARK * A D A R E P OUTPUT='XML,UTF8'
    /REMARK *
    /ASS-SYSLST L.REP
    /DEL-FILE L.REP.XMLR1
    /SET-JOB-STEP
    /CRE-FI L.REP.XMLR1,PUB()
    /DEL-FILE L.REP.XMLR2
    /SET-JOB-STEP
    /CRE-FI L.REP.XMLR2,PUB()
    /SET-FILE-LINK DDLIB,ADAvrs.MOD
    /SET-FILE-LINK    BLSLIB00,ADABAS.MOD
    /SET-FILE-LINK    BLSLIB01,APSVrs.LIB
    /CALL-PROCEDURE (ADABAS.SRC,LMSLINKLIB),(LNK-NAME=BLSLIIB03)
    /SET-FILE-LINK DDASSOR1,ADAyyyyy.ASSO,SHARE-UPD=YES
    /SET-FILE-LINK DDDATAR1,ADAyyyyy.DATA,SHARE-UPD=YES
    /SET-FILE-LINK    DDXMLR1,L.REP.XMLR1
    /SET-FILE-LINK    DDXMLR2,L.REP.XMLR2
    /SET-FILE-LINK    DDECSOJ,ADABAS.EC00
    /ASS-SYSDTA *SYSCMD
    /START-PROG *M(E=ADARUN,L=ADABAS.MOD),PR-MO=ANY,R-M=*A(ALT=Y,LOAD-INF=*REF,-
    / UNRES=*DELAY,MESSAGE=*ERROR)
    ADARUN PROG=ADAREP,DB=yyyyy,IDTNAME=ADABAS5B
    ADAREP CPLIST,OUTPUT='XML,UTF8'
    /LOGOFF SYS-OUTPUT=DEL

#### In ISP Format:

    /.ADAREP LOGON
     /OPTION MSG=FH,DUMP=YES
     /REMARK *
     /REMARK * A D A R E P ALL FUNCTIONS
     /REMARK *
     /SYSFILE SYSLST=L.REP
     /FILE ADA.MOD,LINK=DDLIB
     /FILE ADAyyyyy.ASSO ,LINK=DDASSOR1,SHARUPD=YES
     /FILE ADAyyyyy.DATA ,LINK=DDDATAR1,SHARUPD=YES
     /EXEC (ADARUN,ADA.MOD)
     ADARUN PROG=ADAREP,DB=yyyyy,IDTNAME=ADABAS5B
     ADAREP CPLIST
     /LOGOFF NOSPOOL

## z/OS

Data Set | DD Name | Storage | More Information
--- | --- | --- | ---
Associator | DDASSORn | disk |
Data Storage | DDDATARn | disk |
Work Storage | DDWORKR1 | disk | Optional, required only when ADARUN parameter ENCRYPTION=YES is in use
Save tape | DDSAVE | tape/ disk | Only with SAVETAPE
Protection log | DDPLOG | tape/ disk | Option with online save tape
ADARUN parameters | DDCARD | reader | Operations
ADAREP parameters | DDKARTE | reader |
ADARUN messages | DDPRINT | printer | Messages and Codes
Time zone file | TZINFO | disk | Required when database has default time zone
ADAREP messages | DDDRUCK | printer | Messages and Codes
ADAREP XML summary report | DDXMLR1 | tape/disk | Only necessary when the OUTPUT or ACODE parameters are specified. This data must be defined with DCB parameters RECFM=VB,LRECL=512.
ADAREP XML detailed report | DDXMLR2 | tape/disk | Only necessary when the OUTPUT or ACODE parameters are specified in the same run as the CPLIST or CPEXLIST parameters. This data must be defined with DCB parameters RECFM=VB,LRECL=512.

### ADAREP JCL Example (z/OS)

#### All Functions

    //ADAREP    JOB
    //*
    //*   ADAREP: ALL FUNCTIONS
    //*
    //REP      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
    //DDDRUCK   DD   SYSOUT=X
    //DDPRINT   DD   SYSOUT=X
    //SYSUDUMP  DD   SYSOUT=X
    //DDCARD    DD   *
    ADARUN PROG=ADAREP,MODE=MULTI,SVC=xxx,DEVICE=dddd,DBID=yyyyy
    /*
    //DDKARTE   DD   *
    ADAREP    CPEXLIST
    /*

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

#### Report from a Save Tape

    //ADAREPS   JOB
    //*
    //*   ADAREP: REPORT FROM A SAVE TAPE
    //*
    //REP      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
    //DDSAVE    DD   DISP=SHR,DSN=EXAMPLE.DByyyyy.SAVE   <=== SAVE DATASET
    //DDDRUCK   DD   SYSOUT=X
    //DDPRINT   DD   SYSOUT=X
    //SYSUDUMP  DD   SYSOUT=X
    //DDCARD    DD   *
    ADARUN PROG=ADAREP,MODE=MULTI,SVC=xxx,DEVICE=dddd,DBID=yyyyy
    /*
    //DDKARTE   DD   *
    ADAREP    REPORT SAVETAPE,NOCOUNT
    /*

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

#### Report with OUTPUT='XML,UTF8'

    //ADAREPX   JOB
    //*
    //*   ADAREP: Report from a save tape, XML in UTF8 Format
    //*
    //REP      EXEC  PGM=ADARUN
    //STEPLIB   DD   DISP=SHR,DSN=ADABAS.ADAvrs.LOAD     <=== ADABAS LOAD
    //          DD   DISP=SHR,DSN=SAG.ICSvrs.L0nn        <=== Code pages
    //*
    //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
    //DDSAVE    DD   DISP=SHR,DSN=EXAMPLE.DBYYYYY.SAVE   <=== SAVE DATASET
    //DDDRUCK   DD   SYSOUT=X
    //DDPRINT   DD   SYSOUT=X
    //DDXMLR1   DD   SYSOUT=X,DCB=(LRECL=512,RECFM=VB)
    //DDXMLR2   DD   SYSOUT=X,DCB=(LRECL=512,RECFM=VB)
    //SYSUDUMP  DD   SYSOUT=X
    //DDCARD    DD   *
    ADARUN PROG=ADAREP,MODE=MULTI,SVC=XXX,DEVICE=DDDD,DBID=YYYYY
    /*
    //DDKARTE   DD   *
    ADAREP    REPORT CPEXLIST,OUTPUT='XML,UTF8'
    /*

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

## z/VSE

Data Set | Symbolic Name | Storage | Logical Unit | More Information
--- | --- | --- | --- | ---
Associator | ASSORn | disk |  |
Data Storage | DATARn | disk |  |
Save tape | SAVE | tape disk | SYS010 see note | Only with SAVETAPE
Protection log | PLOG | tape disk | SYS011 see note | Option with online save tape
ADARUN parameters | SYSRDR CARD CARD | reader tape disk | SYSRDR SYS000 see note | Operations
ADAREP parameters |  | reader | SYSIPT |
ADARUN messages |  | printer | SYSLST | Messages and Codes
Time zone file | TZINFO | disk |  | Required when database has default time zone
ADAREP report |  | printer | SYS009 |
ADAREP XML summary report | DDXMLR1 | tape/disk |  | Only necessary when the OUTPUT or ACODE parameters are specified. The XML dataset will be created as a sequential file, with record format VB (variable blocked) and a maximum record length of 512.
ADAREP XML detailed report | DDXMLR2 | tape/disk |  | Only necessary when the OUTPUT or ACODE parameters are specified in the same run as the CPLIST or CPEXLIST parameters. The XML dataset will be created as a sequential file, with record format VB (variable blocked) and a maximum record length of 512.

Note
Any programmer logical unit may be used.

### ADAREP JCS Example (z/VSE)

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

#### All Functions

    * $$ JOB JNM=ADAREP,CLASS=A,DISP=D
    * $$ LST CLASS=A,DISP=D
    // JOB ADAREP
    *       ALL FUNCTIONS
    // EXEC PROC=ADAVvLIB
    // EXEC PROC=ADAVvFIL
    // EXEC ADARUN,SIZE=ADARUN
    ADARUN PROG=ADAREP,MODE=MULTI,SVC=xxx,DEVICE=dddd,DBID=yyyyy
    /*
    ADAREP    CPEXLIST
    /*
    /&
    * $$ EOJ

Refer to member ADAREP.X for this example.

#### Report from a Save Tape

    * $$ JOB JNM=ADAREPS,CLASS=A,DISP=D
    * $$ LST CLASS=A,DISP=D
    // JOB ADAREPS
    *       REPORT FROM A SAVE TAPE
    // EXEC PROC=ADAVvLIB
    // EXEC PROC=ADAVvFIL
    // ASSGN SYSTEN,TAPE
    // PAUSE MOUNT LOAD SAVE FILE ON TAPE cuu
    // TLBL SAVE,'EXAMPLE.DByyyyy.SAVE'
    // MTC REW,SYS010
    // EXEC ADARUN,SIZE=ADARUN
    ADARUN PROG=ADAREP,MODE=MULTI,SVC=xxx,DEVICE=dddd,DBID=yyyyy
    /*
    ADAREP    REPORT SAVETAPE,NOCOUNT
    /*
    /&
    * $$ EOJ

Refer to member ADAREPS.X for this example.

### On this page

- BS2000
- z/OS
- z/VSE