JCL/JCS Requirements and Examples

#### Search Results

Search

# JCL/JCS Requirements and Examples

This section describes the job control information required to run ADAULD with BS2000, z/OS, and z/VSE systems and shows examples of each of the job streams.

Note
When you specify a dataset (such as ASSO) that is not utilized by ADAULD, it will be ignored.

This document covers the following topics:

- BS2000

- z/OS

- z/VSE

## BS2000

File | Link Name | Storage | More Information
--- | --- | --- | ---
Unloaded data | DDOUT1 | tape/ disk | Output by ADAULD (see note)
Unloaded data | DDOUT2 | tape/ disk | Output by ADAULD (see note)
Unloaded ISNs | DDISN | tape/ disk | Required with DDISN
Save tape | DDSAVE | tape/ disk | Required with SAVETAPE
Sequential PLOG | DDPLOG | tape/ disk | Required for online save tapes
Temp area | DDTEMPR1 | disk | Required for online save tapes
Recovery log (RLOG) | DDRLOGR1 | disk | Required for ADARAI
ADARUN parameters | SYSDTA/ DDCARD |  | Operations
ADAULD parameters | SYSDTA/ DDKARTE |  |
ADARUN messages | SYSOUT/ DDPRINT |  | Messages and Codes
ADAULD messages | SYSLST/ DDDRUCK |  | Messages and Codes

Note
DDOUT1 and DDOUT2 must have the same block size; otherwise, an ADAULD error will occur. DDOUT2 is required only if NUMOUT=2 is specified.

### ADAULD JCL Examples (BS2000)

#### Unload from Database

#### In SDF Format:

    /.ADAULD SET-LOGON-PARAMETERS
     /MODIFY-TEST-OPTIONS DUMP=YES
     /REMARK *
     /REMARK * A D A U L D NON-SAVETAPE FUNCTIONS
     /REMARK *
     /DELETE-FILE ADAyyyyy.OUT1
     /SET-JOB-STEP
     /CREATE-FILE ADAyyyyy.OUT1,PUB(SPACE=(480,48))
     /SET-JOB-STEP
     /ASS-SYSLST L.ULD
     /ASS-SYSDTA *SYSCMD
     /SET-FILE-LINK DDLIB,ADAvrs.MOD
     /SET-FILE-LINK DDOUT1,ADAyyyyy.OUT1
     /START-PROGRAM *M(ADA.MOD,ADARUN),PR-MO=ANY
     ADARUN PROG=ADAULD,DB=yyyyy,IDTNAME=ADABAS5B
     ADAULD FILE=1,SORTSEQ=AA
     /EXIT-JOB MODE=NORMAL,SYS-OUT=NONE

#### In ISP Format:

    /.ADAULD LOGON
     /OPTION MSG=FH,DUMP=YES
     /REMARK *
     /REMARK * A D A U L D NON-SAVETAPE FUNCTIONS
     /REMARK *
     /SYSFILE SYSLST=L.ULD
     /FILE ADA.MOD ,LINK=DDLIB
     /FILE ADAyyyyy.OUT1 ,LINK=DDOUT1 ,SPACE=(480,48)
     /EXEC (ADARUN,ADA.MOD)
     ADARUN PROG=ADAULD,DB=yyyyy,IDTNAME=ADABAS5B
     ADAULD FILE=1,SORTSEQ=AA
     /LOGOFF NOSPOOL

#### Unload from Offline Save Tape

####

#### In SDF Format:

    /.ADAULD SET-LOGON-PARAMETERS
     /MODIFY-TEST-OPTIONS DUMP=YES
     /REMARK *
     /REMARK * A D A U L D SAVETAPE FUNCTION
     /REMARK *
     /DELETE-FILE ADAyyyyy.OUT1
     /SET-JOB-STEP
     /CREATE-FILE ADAyyyyy.OUT1,PUB(SPACE=(480,48))
     /SET-JOB-STEP
     /ASS-SYSLST L.ULD
     /ASS-SYSDTA *SYSCMD
     /SET-FILE-LINK DDLIB,ADAvrs.MOD
     /SET-FILE-LINK DDOUT1,ADAyyyyy.OUT1
     /SET-FILE-LINK DDSAVE,ADAyyyyy.SAVE
     /START-PROGRAM *M(ADA.MOD,ADARUN),PR-MO=ANY
     ADARUN PROG=ADAULD,DB=yyyyy,IDTNAME=ADABAS5B
     ADAULD FILE=1,SAVETAPE
     /EXIT-JOB MODE=NORMAL,SYS-OUT=NONE

#### In ISP Format:

    /.ADAULD LOGON
     /OPTION MSG=FH,DUMP=YES
     /REMARK *
     /REMARK * A D A U L D SAVETAPE FUNCTION
     /REMARK *
     /SYSFILE SYSLST=L.ULD
     /FILE ADA.MOD ,LINK=DDLIB
     /FILE ADAyyyyy.OUT1 ,LINK=DDOUT1 ,SPACE=(480,48)
     /FILE ADAyyyyy.SAVE ,LINK=DDSAVE
     /EXEC (ADARUN,ADA.MOD)
     ADARUN PROG=ADAULD,DB=yyyyy,IDTNAME=ADABAS5B
     ADAULD FILE=1,SAVETAPE
     /LOGOFF NOSPOOL

## z/OS

Data Set | DD Name | Storage | More Information
--- | --- | --- | ---
Unloaded data | DDOUT1 | tape/ disk | Output by ADAULD (see note)
Unloaded data | DDOUT2 | tape/ disk | Output by ADAULD (see note)
Unloaded ISNs | DDISN | tape/ disk | Required with DDISN
Save tape | DDSAVE | tape/ disk | Required with SAVETAPE
Sequential PLOG | DDPLOG | tape/ disk | Required for online save tapes
Temp area | DDTEMPR1 | disk | Required for online save tapes
Recovery log (RLOG) | DDRLOGR1 | disk | Required for ADARAI
ADAULD messages | DDDRUCK | printer | Messages and Codes
ADARUN messages | DDPRINT | printer | Messages and Codes
ADARUN parameters | DDCARD | reader | Operations
ADAULD parameters | DDKARTE | reader |

Note
DDOUT1 and DDOUT2 must have the same block size; otherwise, an ADAULD error will occur. DDOUT2 is required only if NUMOUT=2 is specified.

### ADAULD JCL Examples (z/OS)

#### Unload a File

    //ADAULD    JOB
    //*
    //*   ADAULD:
    //*      UNLOAD A FILE
    //*
    //ULD       EXEC PGM=ADARUN
    //STEPLIB   DD   DISP=SHR,DSN=ADABAS.ADAvrs.LOAD       <=== ADABAS LOAD
    //*
    //DDDATAR1  DD   DISP=SHR,DSN=EXAMPLE.DByyyyy.DATAR1 <=== DATA
    //DDWORKR1  DD   DISP=SHR,DSN=EXAMPLE.DByyyyy.WORKR1 <=== WORK
    //DDDRUCK   DD   SYSOUT=X
    //DDPRINT   DD   SYSOUT=X
    //SYSUDUMP  DD   SYSOUT=X
    //DDOUT1    DD   DISP=(,CATLG),DSN=EXAMPLE.DByyyyy.OUT1,UNIT=DISK, <===
    //          VOL=SER=DISK01,SPACE=(TRK,(200,10),RLSE)
    //DDCARD    DD   *
    ADARUN PROG=ADAULD,MODE=MULTI,SVC=xxx,DEVICE=dddd,DBID=yyyyy
    /*
    //DDKARTE   DD   *
    ADAULD FILE=1,SORTSEQ=AA
    /*

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

#### Unload a File from Save Tape Created Offline

    //ADAULDS   JOB
    //*
    //*   ADAULD:
    //*      UNLOAD A FILE  FROM AN OFFLINE SAVE TAPE
    //*
    //ULD       EXEC PGM=ADARUN
    //STEPLIB   DD   DISP=SHR,DSN=ADABAS.ADAvrs.LOAD      <=== ADABAS LOAD
    //*
    //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
    //DDOUT1    DD   DISP=(,CATLG),DSN=EXAMPLE.DByyyyy.OUT1,UNIT=DISK, <===
    //          VOL=SER=DISK01,SPACE=(TRK,(200,10),RLSE)
    //DDCARD    DD   *
    ADARUN PROG=ADAULD,MODE=MULTI,SVC=xxx,DEVICE=dddd,DBID=yyyyy
    /*
    //DDKARTE   DD   *
    ADAULD FILE=1,SAVETAPE
    /*

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

## z/VSE

File | Symbolic Name | Storage | Logical Unit | More Information
--- | --- | --- | --- | ---
Unloaded data | OUT1 | tape disk | SYS010 see note 1 | Output by ADAULD (see note 2)
Unloaded data | OUT2 | tape disk | SYS011 see note 1 | Output by ADAULD (see note 2)
Unloaded ISNs | ISN | tape disk | SYS012 see note 1 | Required with DDISN
Save tape | SAVE | tape disk | SYS013 see note 1 | Required with SAVETAPE
Sequential PLOG | PLOG | tape disk | SYS014 see note 1 | Required for online save tapes
Temp area | TEMPR1 | disk | see note 1 | Required for online save tapes
Recovery log (RLOG) | RLOGR1 | disk | see note 1 | Required for ADARAI
Messages | SYSLST | printer |  | Messages and Codes
ADARUN parameters | SYSRDR CRD | reader/ tape/ disk |  | Operations
ADAULD parameters | SYSIPT | reader |  |

Notes:

1. Any programmer logical unit can be used.
2. OUT1 and OUT2 must have the same block size; otherwise, an ADAULD error will occur. OUT2 is required only if NUMOUT=2 is specified.

### ADAULD JCS Examples (z/VSE)

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

#### Unload a File from a Database

    * $$ JOB JNM=ADAULD,CLASS=A,DISP=D
    * $$ LST CLASS=A,DISP=D

    // JOB ADAULD
    *       UNLOAD A FILE
    // EXEC PROC=ADAVvLIB
    // EXEC PROC=ADAVvFIL
    // ASSGN SYS004,DISK,VOL=vvvvvv,SHR
    // DLBL OUT1,'EXAMPLE.ADA99.OUT1'
    // EXTENT SYS004,,,,ssss,nnnn
    // EXEC ADARUN,SIZE=ADARUN
    ADARUN PROG=ADAULD,MODE=MULTI,SVC=xxx,DEVICE=dddd,DBID=yyyyy
    /*
    ADAULD FILE=1,SORTSEQ=AA
    /*
    /&
    * $$ EOJ

Refer to member ADAULD.X for this example.

#### Unload a File from Save Tape Created Offline

    * $$ JOB JNM=ADAULDS,CLASS=A,DISP=D
    * $$ LST CLASS=A,DISP=D
    // JOB ADAULDS
    *       UNLOAD A FILE FROM AN OFFLINE SAVE TAPE
    // EXEC PROC=ADAVvLIB
    // EXEC PROC=ADAVvFIL
    // ASSGN SYS004,DISK,VOL=vvvvvv,SHR
    // DLBL OUT1,'EXAMPLE.ADA99.OUT1'
    // EXTENT SYS004,,,,ssss,nnnn
    // ASSGN SYS013,TAPE
    // PAUSE MOUNT LOAD SAVE FILE ON TAPE cuu
    // TLBL SAVE,'EXAMPLE.DByyyyy.SAVE'
    // EXEC ADARUN,SIZE=ADARUN
    ADARUN PROG=ADAULD,MODE=MULTI,SVC=xxx,DEVICE=dddd,DBID=yyyyy
    /*
    ADAULD FILE=1,SAVETAPE
    /*
    /&
    * $$ EOJ

Refer to member ADAULDS.X for this example.

### On this page

- BS2000
- z/OS
- z/VSE