JCL/JCS Requirements and Examples

#### Search Results

Search

# JCL/JCS Requirements and Examples

This section describes the job control information required to run ADADRU 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 or DDASSOnn | disk |
Data Storage | DDDATARn or DDDATAnn | disk |
ADARUN parameters | SYSDTA/ DDCARD |  | Operations
ADADRU parameters | SYSDTA/ DDKARTE |  |
ADADRU detail output | DDDETAIL | disk |
ADARUN messages | SYSOUT DDPRINT |  | Messages and Codes
ADADRU 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.
ADADRU XML output summary report | DDXMLR1 | tape/disk | Only necessary when the OUTPUT or ACODE parameters are specified. This data is just a standard BS2000 file.
ADADRU XML output 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.

### ADADRU JCL Example (BS2000)

Refer to sample members ADADRU and ADADRUU for these examples.

#### General Report (Sample Member ADADRU)

    /.ADADRU BEGIN-PROC C
    /ASS-SYSOUT L.DRU
    /REMOVE-FILE-LINK *
    /SET-JOB-STEP
    /MOD-TEST DUMP=YES
    /REMARK *
    /REMARK *   A D A D R U    MOST FUNCTIONS
    /REMARK *
    /ASS-SYSLST L.DRU.L
    /DEL-FILE L.DRU.DETAIL
    /SET-JOB-STEP
    /CRE-FI L.DRU.DETAIL,PUB()
    /DEL-FILE L.DRU.XMLR1
    /SET-JOB-STEP
    /CRE-FI L.DRU.XMLR1,PUB()
    /DEL-FILE L.DRU.XMLR2
    /SET-JOB-STEP
    /CRE-FI L.DRU.XMLR2,PUB()
    /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    DDDETAIL,L.DRU.DETAIL
    /SET-FILE-LINK    DDXMLR1,L.DRU.XMLR1
    /SET-FILE-LINK    DDXMLR2,L.DRU.XMLR2
    /ASS-SYSDTA *SYSCMD
    /START-PROG *M(E=ADARUN,L=ADABAS.MOD),RUN-MODE=ADV(A-L=YES)
    ADARUN PROG=ADADRU,DB=99
    *
    *    ADADRU CONTROL STATEMENTS
    *    PRINT DETAILED REPORT FOR FILE 5
    *
    ADADRU NOUSERABEND,OUTPUT='XML'
    ADADRU SPACEUSAGE FILE=5,SAMPLING=10,INCRUSAGE=1,INCRNUMREC=1
    ADADRU            INCRRECLEN=6,PFILESPACE=DETAIL
    /ASS-SYSDTA *PRIM
    /ASS-SYSLST *PRIM
    /ASS-SYSOUT *PRIM
    /END-PROC

#### Report with OUTPUT='XML,UTF8' (Sample Member ADADRUU)

    /.ADADRU BEGIN-PROC C
    /ASS-SYSOUT L.DRU
    /REMOVE-FILE-LINK *
    /SET-JOB-STEP
    /MOD-TEST DUMP=YES
    /REMARK *
    /REMARK *   A D A D R U    FOR OUTPUT='XML,UTF8'
    /REMARK *
    /ASS-SYSLST L.DRU.L
    /DEL-FILE L.DRU.DETAIL
    /SET-JOB-STEP
    /CRE-FI L.DRU.DETAIL,PUB()
    /DEL-FILE L.DRU.XMLR1
    /SET-JOB-STEP
    /CRE-FI L.DRU.XMLR1,PUB()
    /DEL-FILE L.DRU.XMLR2
    /SET-JOB-STEP
    /CRE-FI L.DRU.XMLR2,PUB()
    /SET-FILE-LINK    DDLIB,ADABAS.MOD
    /SET-FILE-LINK    BLSLIB00,ADABAS.MOD
    /SET-FILE-LINK BLSLIB01,APSVRS.LIB
    /CALL-PROCEDURE (ADABAS.SRC,LMSLINKLIB),(LNK-NAME=BLSLIIB02)
    /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    DDDETAIL,L.DRU.DETAIL
    /SET-FILE-LINK    DDXMLR1,L.DRU.XMLR1
    /SET-FILE-LINK    DDXMLR2,L.DRU.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)
    /START-PROG *M(E=ADARUN,L=ADABAS.MOD),RUN-MODE=ADV(A-L=YES)
    ADARUN PROG=ADADRU,DB=99
    *
    *    ADADRU CONTROL STATEMENTS
    *    PRINT DETAILED REPORT FOR FILE 5
    *
    ADADRU OUTPUT='XML,UTF8'
    ADADRU SPACEUSAGE FILE=5,PFILESPACE=DETAIL
    /ASS-SYSDTA *PRIM
    /ASS-SYSLST *PRIM
    /ASS-SYSOUT *PRIM
    /END-PROC

## z/OS

Data Set | DD Name | Storage | More Information
--- | --- | --- | ---
Associator | DDASSORn or DDASSOnn | disk |
Data Storage | DDDATARn or DDDATAnn | disk |
ADARUN parameters | DDCARD | reader | Operations
ADADRU parameters | DDKARTE | reader |
ADADRU detail output | DDDETAIL | disk |
ADARUN messages | DDPRINT | printer | Messages and Codes
ADADRU messages | DDDRUCK | printer | Messages and Codes
ADADRU XML output 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.
ADADRU XML output 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.

### ADADRU JCL Example (z/OS)

Refer to members ADADRU and ADADRUU in the JOBS data set for these examples.

#### General Report (Sample Member ADADRU)

    //ADADRU    JOB
    //*
    //*   ADADRU:
    //*      Print File Reports
    //*
    //DRU       EXEC PGM=ADARUN
    //STEPLIB   DD   DISP=SHR,DSN=ADABAS.Vvrs.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   <=== Summary Reports and ADADRU Messages
    //DDPRINT   DD   SYSOUT=X   <=== ADARUN Messages
    //DDDETAIL  DD   SYSOUT=X   <=== Detail Reports
    //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=ADADRU,SVC=xxx,DEVICE=dddd,DBID=yyyyy
    /*
    //DDKARTE   DD   *
    *
    *    ADADRU Control Statements
    *    Print Detailed Report for File 5
    *
    ADADRU NOUSERABEND,OUTPUT='XML'
    *
    ADADRU SPACEUSAGE FILE=5,SAMPLING=10,INCRUSAGE=1,INCRNUMREC=1
    ADADRU            INCRRECLEN=6,PFILESPACE=DETAIL
    //

#### Report with OUTPUT='XML,UTF8' (Sample Member ADADRUU)

    //ADADRU    JOB
    //*
    //*   ADADRU:
    //*      Print File Reports, XML in UTF8 Format
    //*
    //DRU       EXEC PGM=ADARUN
    //STEPLIB   DD   DISP=SHR,DSN=ADABAS.Vvrs.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
    //*
    //DDDRUCK   DD   SYSOUT=X   <=== Summary Reports and ADADRU messages
    //DDPRINT   DD   SYSOUT=X   <=== ADARUN Messages
    //DDDETAIL  DD   SYSOUT=X   <=== Detail Reports
    //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=ADADRU,SVC=xxx,DEVICE=dddd,DBID=yyyyy
    /*
    //DDKARTE   DD   *
    *
    *    ADADRU Control Statements
    *    Print Detailed Report for File 5
    *
    ADADRU NOUSERABEND,OUTPUT='XML,UTF8'
    *
    ADADRU SPACEUSAGE FILE=5,SAMPLING=10,INCRUSAGE=1,INCRNUMREC=1
    ADADRU            INCRRECLEN=6,PFILESPACE=DETAIL
    /*
    //

## z/VSE

Data Set | Symbolic Name | Storage | Logical Unit | More Information
--- | --- | --- | --- | ---
Associator | ASSORn | disk | * |
Data Storage | DATARn | disk | * |
ADARUN parameters | SYSRDR | card tape disk | reader SYSRDR * |
SYS000 |  | * | Adabas Operations Manual
ADADRU parameters |  | reader | SYSIPT |
ADARUN messages |  | printer | SYSLST | Adabas Messages and Codes Manual
ADADRU messages |  | printer | SYS009 | Adabas Messages and Codes Manual
ADADRU detailed report | DETAIL | tape/disk |  | Necessary for detailed output only
ADADRU 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.
ADADRU 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.

* Any programmer logical unit may be used.

### ADADRU JCS Example (z/VSE)

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

- General Report
- Report with OUTPUT='XML,UTF8'

#### General Report

Refer to member ADADRU.X for this example.

    * $$ JOB JNM=ADADRU,CLASS=A,DISP=D
    * $$ LST CLASS=A,DISP=D
    // JOB ADADRU
    // OPTION LOG,PARTDUMP
    *
    *   ADADRU:
    *      Print File Reports
    *
    // EXEC PROC=ADAVVLIB
    // EXEC PROC=ADAVVFIL
    *
    // DLBL DDXMLR1,'ADABAS.ADADRU.XMLR1',,SD     XMLR1
    // EXTENT SYS015,,,,SSSSS,NNNNN
    // ASSGN SYS015,DISK,VOL=DISK01,SHR
    // DLBL DDXMLR2,'ADABAS.ADADRU.XMLR2',,SD     XMLR2
    // EXTENT SYS016,,,,SSSSS,NNNNN
    // ASSGN SYS016,DISK,VOL=DISK02,SHR
    // DLBL DETAIL,'ADABAS.ADADRU.DETAIL',,SD   Detail Report
    // EXTENT SYS017,,,,SSSSS,NNNNN
    // ASSGN SYS017,DISK,VOL=DISK03,SHR
    *
    * *************************************************************
    *     DON'T FORGET TO CUSTOMIZE PARAMETERS OF ADABAS UTILITY
    * *************************************************************
    // EXEC ADARUN,SIZE=ADARUN
    ADARUN PROG=ADADRU,MODE=MULTI,SVC=XXX,DEVICE=NNNN,DBID=YYY
    /*
    *
    *    ADADRU Control Statements
    *    Print Detailed Report for File 5
    *
    ADADRU NOUSERABEND,OUTPUT='XML'
    *
    ADADRU SPACEUSAGE FILE=5,SAMPLING=10,INCRUSAGE=1,INCRNUMREC=1
    ADADRU            INCRRECLEN=6,PFILESPACE=DETAIL
    /*
    /&
    * $$ EOJ

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

    * $$ JOB JNM=ADADRU,CLASS=A,DISP=D
    * $$ LST CLASS=A,DISP=D
    // JOB ADADRU
    // OPTION LOG,PARTDUMP
    *
    *   ADADRU:
    *      Print File Reports, XML in UTF8 Format
    *
    // EXEC PROC=ADAVVLIB
    // EXEC PROC=ADAVVFIL
    *
    /* --- ECS SUBLIBS -----------------
    // DLBL  DDECSOJ,'ADABAS.VVRS.DOSLC01'
    // EXTENT SYS018
    // ASSGN SYS018,DISK,VOL=VVVVVV,SHR
    /* --- APS ENVIRONMENT VARIABLES ---
    // DLBL  ENVVARS,'SYSIPT'
    /* ---------------------------------
    *
    *   ADADRU:
    *      Print File Reports, XML in UTF8 Format
    *
    // EXEC PROC=ADAVVLIB
    // EXEC PROC=ADAVVFIL
    *
    /* --- ECS SUBLIBS -----------------
    // DLBL  DDECSOJ,'ADABAS.VVRS.DOSLC01'
    // EXTENT SYS018
    // ASSGN SYS018,DISK,VOL=VVVVVV,SHR
    /* --- APS ENVIRONMENT VARIABLES ---
    // DLBL  ENVVARS,'SYSIPT'
    /* ---------------------------------
    // DLBL DDXMLR1,'ADABAS.ADADRU.XMLR1',,SD     XMLR1
    // EXTENT SYS015,,,,SSSSS,NNNNN
    // ASSGN SYS015,DISK,VOL=DISK01,SHR
    // DLBL DDXMLR2,'ADABAS.ADADRU.XMLR2',,SD     XMLR2
    // EXTENT SYS016,,,,SSSSS,NNNNN
    // ASSGN SYS016,DISK,VOL=DISK02,SHR
    // DLBL DETAIL,'ADABAS.ADADRU.DETAIL',,SD   Detail Report
    // EXTENT SYS017,,,,SSSSS,NNNNN
    // ASSGN SYS017,DISK,VOL=DISK03,SHR
    *
    * ***********************************************************
    *     DON'T FORGET TO CUSTOMIZE PARAMETERS OF ADABAS UTILITY
    * ***********************************************************
    // EXEC ADARUN,SIZE=ADARUN
    ADARUN PROG=ADADRU,MODE=MULTI,SVC=XXX,DEVICE=NNNN,DBID=YYY
    /*
    *
    *    ADADRU Control Statements
    *    Print Detailed Report for File 5
    *
    ADADRU NOUSERABEND,OUTPUT='XML,UTF8'
    *
    ADADRU SPACEUSAGE FILE=5,SAMPLING=10,INCRUSAGE=1,INCRNUMREC=1
    ADADRU            INCRRECLEN=6,PFILESPACE=DETAIL
    /*
      SYSTEM_ID=NNNNNNNN
      ENVIRONMENT_VARIABLES=DD:ENVVARS OR ALTERNATVELY
      ENVIRONMENT_VARIABLES=/LIBRARY/SUBLIBRARY/MEMBER.TYPE
    /*
    /&
    * $$ EOJ

Refer to member ADADRUU.X for this example

### On this page

- BS2000
- z/OS
- z/VSE