JCL/JCS Requirements and Examples

#### Search Results

Search

# JCL/JCS Requirements and Examples

This section describes the job control information required to run ADACHK 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
--- | --- | --- | ---
Data set containing blocks to print. If you are running an ADACHK print function (such as ADACHK PLOGPRINT, ADACHK SORTPRINT, or ADACHK ASSOPRINT), include the corresponding data set specification in the job for the run. For information about which data sets to specify for each ADACHK function, read Disk Accesses by Utility and Function | DDASSORn DDDATARn DDWORKR1 DDWORKR4 DDTEMPR1 DDSORTRn DDCLOGRn DDPLOGRn DDDSIMR1 | disk disk disk disk disk disk disk disk disk | Associator Data Storage Work Temp Sort Multiple command log Multiple protection log DSIM data set
Associator | DDASSORn or DDASSOnn | disk |
Data Storage | DDDATARn or DDDATAnn | disk |
Sort work data sets | DDSORTR1 or DDSORTR2 |  | Used by the ACCHECK, CHECK, DSCHECK, and VALIDATE utility functions only when SORTTYPE=INTERNAL (the default) is specified and when the amount of data to be sorted exceeds the space declared by the LWP parameter in these utility function runs.
ADARUN parameters | SYSDTA/ DDCARD |  | Operations
ADACHK parameters | SYSDTA/ DDKARTE |  |
ADARUN messages | SYSOUT DDPRINT |  | Messages and Codes
ADACHK messages | SYSLST DDDRUCK |  | Messages and Codes

### ADACHK JCL Example (BS2000)

This section provides samples of BS2000 ADACHK jobs.

#### Standard Example

    /BEGIN-PROC C
    /MOD-TEST DUMP=YES
    /REMA
    /REMA ADACHK: Execute multiple print and check functions
    /REMA
    /ASS-SYSLST L.CHK
    /ASS-SYSDTA *SYSCMD
    /SET-FILE-LINK   DDLIB,ADABAS.MOD
    /SET-FILE-LINK   DDASSOR1,ADA99.ASSO,SUP=DISK(SHARE-UPD=YES)
    /SET-FILE-LINK   DDDATAR1,ADA99.DATA,SUP=DISK(SHARE-UPD=YES)
    /START-PROG *M(E=ADARUN,L=ADABAS.MOD),RUN-MODE=ADV(A-L=YES)
    ADARUN PROG=ADACHK,DB=99
    ADACHK ICHECK             ICHECK of all files
    ADACHK DSCHECK FILE=1,2   DSCHECK of files 1 and 2
    ADACHK DSCHECK FILE=17    DSCHECK of file 17
    ADACHK VALIDATE FILE=3    VALIDATE of file 3
    ADACHK ACCHECK            ACCHECK of all files
    ADACHK CHECK FILE=21      CHECK of file 21
    ADACHK FSTPRINT           FSTPRINT
    ADACHK FCBPRINT FILE=1    FCBPRINT file=1
    /ASS-SYSDTA *PRIM
    /ASS-SYSLST *PRIM
    /END-PROC

#### Example Specifying Sort Data Sets

    /BEGIN-PROC C
    /MOD-TEST DUMP=YES
    /REMA
    /REMA ADACHK: Execute ADACHK CHECK specifying sort datasets
    /REMA         to be used in the event that LWP is insufficient.
    /REMA
    /ASS-SYSLST L.CHK
    /ASS-SYSDTA *SYSCMD
    /DELETE-FILE ADA99.CHK.SORTR1
    /SET-JOB-STEP
    /CREATE-FILE ADA99.CHK.SORTR1,PUB(SPACE=(10000,1000))
    /SET-FILE-LINK   DDLIB,ADABAS.MOD
    /SET-FILE-LINK   DDASSOR1,ADA99.ASSO,SUP=DISK(SHARE-UPD=YES)
    /SET-FILE-LINK   DDDATAR1,ADA99.DATA,SUP=DISK(SHARE-UPD=YES)
    /SET-FILE-LINK   DDSORTR1,ADA99.CHK.SORTR1
    /START-PROG *M(E=ADARUN,L=ADABAS.MOD),RUN-MODE=ADV(A-L=YES)
    ADARUN PROG=ADACHK,DB=99
    ADACHK CHECK LWP=256000
    /ASS-SYSDTA *PRIM
    /ASS-SYSLST *PRIM
    /END-PROC

## z/OS

Data Set | DD Name | Storage | More Information
--- | --- | --- | ---
Data set containing blocks to print. If you are running an ADACHK print function (such as ADACHK PLOGPRINT, ADACHK SORTPRINT, or ADACHK ASSOPRINT), include the corresponding data set specification in the job for the run. For information about which data sets to specify for each ADACHK function, read Disk Accesses by Utility and Function | DDASSORn DDDATARn DDWORKR1 DDWORKR4 DDTEMPR1 DDSORTRn DDCLOGRn DDPLOGRn DDDSIMR1 | disk disk disk disk disk disk disk disk disk | Associator Data Storage Work Temp Sort Multiple command log Multiple protection log DSIM data set
Associator | DDASSORn or DDASSOnn | disk |
Data Storage | DDDATARn or DDDATAnn | disk |
Sort work data sets | DDSORTR1 or DDSORTR2 |  | Used by the ACCHECK, CHECK, DSCHECK, and VALIDATE utility functions only when SORTTYPE=INTERNAL (the default) is specified and when the amount of data to be sorted exceeds the space declared by the LWP parameter in these utility function runs.
ADARUN parameters | DDCARD | reader | Operations
ADACHK parameters | DDKARTE | reader |
ADARUN messages | DDPRINT | printer | Messages and Codes
ADACHK messages | DDDRUCK | printer | Messages and Codes

### ADACHK JCL Example (z/OS)

This section provides samples of z/OS ADACHK JCL:

#### Example Checking the Entire Database

    //ADACHKC   JOB
    //*
    //*   ADACHK: CHECK
    //*      Check of entire database
    //*
    //CHK       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=ADACHK,SVC=XXX,DEVICE=3390,DBID=YYYYY
    /*
    //DDKARTE   DD   *
    ADACHK CHECK
    /*
    //

#### Example Specifying Sort Data Sets

    //ADACHKS   JOB
    //*
    //*   ADACHK: Execute ADACHK CHECK specifying sort datasets
    //*           to be used in the event that LWP is insufficient.
    //*
    //CHK       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
    //DDSORTR1  DD   DISP=NEW,DSN=EXAMPLE.SORTR1,SPACE=(CYL,(100,500))
    //DDSORTR2  DD   DISP=NEW,DSN=EXAMPLE.SORTR2,SPACE=(CYL,(100,500))
    //DDDRUCK   DD   SYSOUT=X
    //DDPRINT   DD   SYSOUT=X
    //SYSUDUMP  DD   SYSOUT=X
    //DDCARD    DD   *
    ADARUN PROG=ADACHK,SVC=XXX,DEVICE=3390,DBID=YYYYY
    /*
    //DDKARTE   DD   *
    ADACHK CHECK LWP=256000
    /*
    //

#### Example of ADACHK Print Functions

    //ADACHKP   JOB
    //*
    //*   ADACHK: PRINT GCB followed by PPTPRINT and ASSO and DATA
    //*      prints of various RABNs
    //*
    //CHK       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=ADACHK,SVC=XXX,DEVICE=3390,DBID=YYYYY
    /*
    //DDKARTE   DD   *
    ADACHK GCBPRINT
    ADACHK PPTPRINT
    ADACHK ASSOPRINT RABN=1000-1002
    ADACHK ASSOPRINT RABN=2006
    ADACHK DATAPRINT RABN=25006-25007
    ADACHK DATAPRINT RABN=17000-17999
    /*
    //

#### Example of ADACHK JCL Running Both Print and Check Functions

    //ADACHKV   JOB
    //*
    //*   ADACHK: Execute multiple print and check functions
    //*
    //*
    //CHK       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=ADACHK,SVC=XXX,DEVICE=3390,DBID=YYYYY
    /*
    //DDKARTE   DD   *
    ADACHK ICHECK
    ADACHK DSCHECK FILE=1,2
    ADACHK DSCHECK FILE=17
    ADACHK VALIDATE FILE=3
    ADACHK ACCHECK
    ADACHK CHECK FILE=21
    ADACHK FSTPRINT
    ADACHK FCBPRINT FILE=1
    /*
    //

## z/VSE

File | Symbolic Name | Storage | Logical Unit | More Information
--- | --- | --- | --- | ---
Data set containing blocks to print. If you are running an ADACHK print function (such as ADACHK PLOGPRINT, ADACHK SORTPRINT, or ADACHK ASSOPRINT), include the corresponding data set specification in the job for the run. For information about which data sets to specify for each ADACHK function, read Disk Accesses by Utility and Function. | ASSORn DATARn WORKR1 TEMPR1 SORTRn CLOGRn PLOGRn SIMR1 | disk disk disk disk disk disk disk disk |  | Associator Data Storage Work Temp Sort Multiple command log Multiple protection log DSIM data set
Associator | ASSORn or ASSOnn | disk | * |
Data Storage | DATARn or DATAnn | disk | * |
Sort work data sets | SORTR1 or SORTR2 |  |  | Used by the ACCHECK, CHECK, DSCHECK, and VALIDATE utility functions only when SORTTYPE=INTERNAL (the default) is specified and when the amount of data to be sorted exceeds the space declared by the LWP parameter in these utility function runs.
ADARUN parameters | - CARD CARD | reader tape disk | SYSRDR SYS000 * |
ADACHK parameters |  | reader | SYSIPT |
ADARUN messages |  | printer | SYSLST | Messages and Codes
ADACHK messages |  | printer | SYS009 | Messages and Codes

* Any programmer logical unit may be used.

### ADACHK JCS Example (z/VSE)

This section provides samples of z/VSE ADACHK JCS:

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

#### Example of ADACHK JCS Running Both Print and Check Functions

    X $$ JOB JNM=ADACHKV,CLASS=A,DISP=D
    X $$ LST CLASS=A,DISP=D
    // JOB ADACHKV     EXECUTE THE ADABAS UTILITY ***CHK***
    // OPTION LOG,PARTDUMP
    *
    *   ADACHK: Execute multiple print and check functions
    *
    *
    // EXEC PROC=ADAVVLIB
    // EXEC PROC=ADAVVFIL
    *
    * ******************************************************************
    *     DON'T FORGET TO CUSTOMIZE PARAMETERS OF ADABAS UTILITY
    * ******************************************************************
    // EXEC ADARUN,SIZE=ADARUN
    ADARUN PROG=ADACHK,SVC=XXX,DEVICE=3390,DBID=YYYYY
    $*
    ADACHK ICHECK
    ADACHK DSCHECK FILE=1,2
    ADACHK DSCHECK FILE=17
    ADACHK VALIDATE FILE=3
    ADACHK ACCHECK
    ADACHK CHECK FILE=21
    ADACHK FSTPRINT
    ADACHK FCBPRINT FILE=1
    $*
    $&
    X $$ EOJ

#### Example of ADACHK JCS Running Only Print Functions

    X $$ JOB JNM=ADACHKP,CLASS=A,DISP=D
    X $$ LST CLASS=A,DISP=D
    // JOB ADACHKP     EXECUTE THE ADABAS UTILITY ***CHK***
    // OPTION LOG,PARTDUMP
    *
    *   ADACHK: PRINT GCB followed by PPTPRINT and ASSO and DATA
    *      prints of various RABNs
    *
    // EXEC PROC=ADAVVLIB
    // EXEC PROC=ADAVVFIL
    *
    * ******************************************************************
    *     DON'T FORGET TO CUSTOMIZE PARAMETERS OF ADABAS UTILITY
    * ******************************************************************
    // EXEC ADARUN,SIZE=ADARUN
    ADARUN PROG=ADACHK,SVC=XXX,DEVICE=3390,DBID=YYYYY
    $*
    ADACHK GCBPRINT
    ADACHK PPTPRINT
    ADACHK ASSOPRINT RABN=1000-1002
    ADACHK ASSOPRINT RABN=2006
    ADACHK DATAPRINT RABN=25006-25007
    ADACHK DATAPRINT RABN=17000-17999
    $*
    $&
    X $$ EOJ

#### Example of ADACHK JCS Running Only the ADACHK CHECK Function

    X $$ JOB JNM=ADACHKC,CLASS=A,DISP=D
    X $$ LST CLASS=A,DISP=D
    // JOB ADACHKC     EXECUTE THE ADABAS UTILITY ***CHK***
    // OPTION LOG,PARTDUMP
    *
    *   ADACHK: CHECK
    *      Check of entire database
    *
    // EXEC PROC=ADAVVLIB
    // EXEC PROC=ADAVVFIL                                          <
    *
    * ******************************************************************
    *     DON'T FORGET TO CUSTOMIZE PARAMETERS OF ADABAS UTILITY
    * ******************************************************************
    // EXEC ADARUN,SIZE=ADARUN
    ADARUN PROG=ADACHK,SVC=XXX,DEVICE=3390,DBID=YYYYY
    $*
    ADACHK CHECK
    $*
    $&
    X $$ EOJ

### On this page

- BS2000
- z/OS
- z/VSE