JCL/JCS Requirements and Examples

#### Search Results

Search

# JCL/JCS Requirements and Examples

This section describes the job control information required to run ADAWRK on z/OS systems and shows examples of z/OS job streams.

This document covers the following topics:

- z/OS

- z/VSE

- BS2000

## z/OS

Data Set | DD Name | Storage | More Information
--- | --- | --- | ---
Associator | DDASSORn | disk | Not required if the NOPPT parameter is specified
Work | DDWORKRn | disk | Multiple work data sets must be provided for a cluster nucleus
ADARUN parameters | DDCARD | reader | Operations
ADAWRK parameters | DDKARTE | reader |
ADARUN messages | DDPRINT | printer | Messages and Codes
ADAWRK messages | DDDRUCK | printer | Messages and Codes

### ADAWRK JCL Examples (z/OS)

The following example produces a Summary report. Refer to member ADAWRKJ in the JOBS data set for this example.

    //ADAWRK    JOB
    //*
    //*   ADAWRK: ALL FUNCTIONS
    //*
    //WRK      EXEC  PGM=ADARUN
    //STEPLIB   DD   DISP=SHR,DSN=ADABAS.ADAvrs.LOAD      <=== ADABAS LOAD
    //*
    //DDASSOR1  DD   DISP=SHR,DSN=EXAMPLE.DByyyyy.ASSOR1 <=== ASSO
    //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=ADAWRK,MODE=MULTI,SVC=xxx,DEVICE=dddd,DBID=yyyyy
    /*
    //DDKARTE   DD   *
    ADAWRK    SUMMARY=YES
    /*

The following example will produce a Summary and Transaction report. The Transaction report will provide a full report of all of the transactions that are on the Work data sets provided. Refer to member ADAWRKT in the JOBS data set for this example.

    //ADAWRK    JOB
    //*
    //*   ADAWRK: PRINT ALL RELEVANT TRANSACTIONS ON WORK
    //*
    //WRK      EXEC  PGM=ADARUN
    //STEPLIB   DD   DISP=SHR,DSN=ADABAS.ADAvrs.LOAD      <=== ADABAS LOAD
    //*
    //DDASSOR1  DD   DISP=SHR,DSN=EXAMPLE.DByyyyy.ASSOR1 <=== ASSO
    //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=ADAWRK,MODE=MULTI,SVC=xxx,DEVICE=dddd,DBID=yyyyy
    /*
    //DDKARTE   DD   *
    ADAWRK    TRANSACTIONS=FULL
    /*

The following example produces a Summary, Transaction, and File report, including a full report of all transactions that are on the Work data sets. However only Work data set records for files 1, 2, 3, 4, 5, and 10 will be processed and reported by the utility. In addition, note the absence of an Associator data set in the sample JCL -- this is due to the NOPPT parameter which specifies that no PPT should be used for the run, and therefore no Associator data set is required.

    //ADAWRK    JOB
    //*
    //*   ADAWRK: PRINT ALL RELEVANT TRANSACTIONS ON WORK
    //*
    //WRK      EXEC  PGM=ADARUN
    //STEPLIB   DD   DISP=SHR,DSN=ADABAS.ADAvrs.LOAD      <=== ADABAS LOAD
    //*
    //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=ADAWRK,MODE=MULTI,SVC=xxx,DEVICE=dddd,DBID=yyyyy
    /*
    //DDKARTE   DD   *
     ADAWRK NOPPT
     ADAWRK FORCE=YES
     ADAWRK FILES=1-4,5,10
     ADAWRK TRANSACTIONS=FULL
     ADAWRK REPORTFILE=YES
    /*

## z/VSE

File | Symbolic Name | Storage | Logical Unit | More Information
--- | --- | --- | --- | ---
Associator | ASSOR n | disk | * | Not required if the NOPPT parameter is specified
Work | WORKRn | disk | * | Multiple work data sets must be provided for a cluster nucleus
ADARUN parameters |  | reader tape disk | SYSRDR SYS000 * | Operations
ADAWRK parameters |  | reader | SYSIPT |
ADARUN messages |  | printer | SYSLST | Messages and Codes
ADAWRK messages |  | printer | SYS009 | Messages and Codes

* Any programmer logical unit may be used.

### ADAWRK JCL Examples (z/VSE)

The following example produces a Summary report. Refer to member ADAWRKJ.X for this example.

    * $$ JOB JNM=ADAWRKJ,CLASS=A,DISP=D
    * $$ LST CLASS=A,DISP=D
    // JOB ADAWRKJ     EXECUTE THE ADABAS UTILITY ***WRK***
    // OPTION LOG,PARTDUMP
    *
    * ******************************************************************
    *       SAMPLE JOB STREAM TO USE THE ADABAS UTILITY ADAWRK
    *       PRINT SUMMARY REPORT
    * ******************************************************************
    // EXEC PROC=ADAVVLIB                                          <======
    // EXEC PROC=ADAVVFIL                                          <======
    *
    * ******************************************************************
    *     DON'T FORGET TO CUSTOMIZE PARAMETERS OF ADABAS UTILITY
    * ******************************************************************
    // EXEC ADARUN,SIZE=ADARUN
    ADARUN PROG=ADAWRK,MODE=MULTI,SVC=xxx,DEVICE=dddd,DBID=yyyyy   <======
    /*
    ADAWRK    SUMMARY=YES                                          <======
    /*
    /&
    * $$ EOJ

The following example will produce a full Transaction report. The Transaction report will provide a full report of all of the transactions that are on the Work data sets provided. Refer to member ADAWRKT.X for this example.

    * $$ JOB JNM=ADAWRKT,CLASS=A,DISP=D
    * $$ LST CLASS=A,DISP=D
    // JOB ADAWRKT     EXECUTE THE ADABAS UTILITY ***WRK***
    // OPTION LOG,PARTDUMP
    *
    * ******************************************************************
    *       SAMPLE JOB STREAM TO USE THE ADABAS UTILITY ADAWRK
    *       PRINT ALL RELEVANT TRANSACTIONS ON WORK
    * ******************************************************************
    // EXEC PROC=ADAVVLIB                                          <======
    // EXEC PROC=ADAVVFIL                                          <======
    *
    * ******************************************************************
    *     DON'T FORGET TO CUSTOMIZE PARAMETERS OF ADABAS UTILITY
    * ******************************************************************
    // EXEC ADARUN,SIZE=ADARUN
    ADARUN PROG=ADAWRK,MODE=MULTI,SVC=xxx,DEVICE=dddd,DBID=yyyyy   <======
    /*
    ADAWRK    TRANSACTIONS=FULL                                    <======
    /*
    /&
    * $$ EOJ

## BS2000

Data Set | Link Name | Storage | More Information
--- | --- | --- | ---
Associator | DDASSORn | disk |
Work | DDWORKR1 DDWORKR4 | disk |
ADARUN parameters | SYSDTA/ DDCARD |  | Operations
ADALOD parameters | SYSDTA/ DDKARTE |  |
ADARUN messages | SYSOUT/ DDPRINT |  | ADALOD report, see also Messages and Codes
ADALOD messages | SYSLST/ DDDRUCK |  | Messages and Codes

### ADAWRK JCL Examples (BS2000)

    /BEGIN-PROC C
    /MOD-TEST DUMP=YES
    /REMARK *
    /REMARK *    ADAWRK: ALL FUNCTIONS
    /REMARK *
    /ASS-SYSLST L.WRKJ
    /ASS-SYSDTA *SYSCMD
    /SET-FILE-LINK   DDLIB,ADABAS.MOD
    /SET-FILE-LINK    DDASSOR1,ADA99.ASSO
    /SET-FILE-LINK    DDWORKR1,ADA99.WORK
    /START-PROG *M(E=ADARUN,L=ADABAS.MOD),RUN-MODE=ADV(A-L=YES)
    ADARUN PROG=ADAWRK,DB=99,MODE=MULTI
    ADAWRK    SUMMARY=YES
    /ASS-SYSDTA *PRIM
    /ASS-SYSLST *PRIM
    /END-PROC

### On this page

- z/OS
- z/VSE
- BS2000