JCL/JCS Requirements and Examples

#### Search Results

Search

# JCL/JCS Requirements and Examples

This section describes the job control information required to run ADACNV 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 |
Work | DDWORKR1 | disk |
Multiple protection logs | DDPLOGRn | disk |
Intermediate storage | DDFILEA | tape/ disk | see Note
ADARUN parameters | SYSDTA/ DDCARD |  | Operations
ADACNV parameters | SYSDTA/ DDKARTE |  |
ADARUN messages | SYSOUT/ DDPRINT |  | Messages and Codes
ADACNV messages | SYSLST/ DDDRUCK |  | Messages and Codes

Note
The intermediate storage is read an undefined number of times. If this storage is on tape/cassette, it is necessary to use the ADARUN parameter TAPEREL=NO to prevent the tape from being released. Software AG then recommends that you put a tape release command in the job to free the tape/cassette unit when the job has finished. See the example following.

### ADACNV JCL Example (BS2000)

#### With Intermediate Disk File Storage

#### In SDF Format:

    /.ADACNV SET-LOGON-PARAMETERS
    /MODIFY-TEST-OPTIONS DUMP=YES
    /REMARK *
    /REMARK * A D A C N V CONVERT THE DATABASE TO NEW VERSION
    /REMARK *
    /DELETE-FILE ADAyyyyy.FILEA
    /SET-JOB-STEP
    /CREATE-FILE ADAyyyyy.FILEA,PUB(SPACE=(4800,480))
    /SET-JOB-STEP
    /ASS-SYSLST L.CNV.DATA
    /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
    /SET-FILE-LINK DDWORKR1,ADAyyyyy.WORK,SHARE-UPD=YES
    /SET-FILE-LINK DDPLOGR1,ADAyyyyy.PLOGR1,SHARE-UPD=YES
    /SET-FILE-LINK DDPLOGR2,ADAyyyyy.PLOGR2,SHARE-UPD=YES
    /SET-FILE-LINK DDFILEA,ADAyyyyy.FILEA
    /START-PROGRAM *M(ADA.MOD,ADARUN),PR-MO=ANY
    ADARUN PROG=ADACNV,DB=yyyyy,IDTNAME=ADABAS5B
    ADACNV CONVERT TOVERS=vr
    /EXIT-JOB MODE=NORMAL,SYS-OUT=NONE

#### In ISP Format:

    /.ADACNV LOGON
    /OPTION MSG=FH,DUMP=YES
    /REMARK *
    /REMARK * A D A C N V CONVERT THE DATABASE TO NEW VERSION
    /REMARK *
    /SYSFILE SYSLST=L.CNV.DATA
    /FILE ADA.MOD,LINK=DDLIB
    /FILE ADAyyyyy.ASSO,LINK=DDASSOR1,SHARUPD=YES
    /FILE ADAyyyyy.DATA,LINK=DDDATAR1,SHARUPD=YES
    /FILE ADAyyyyy.WORK,LINK=DDWORKR1,SHARUPD=YES
    /FILE ADAyyyyy.PLOGR1,LINK=DDPLOGR1,SHARUPD=YES
    /FILE ADAyyyyy.PLOGR2,LINK=DDPLOGR2,SHARUPD=YES
    /FILE ADAyyyyy.FILEA,LINK=DDFILEA,SPACE=(4800,480)
    /EXEC (ADARUN,ADA.MOD)
    ADARUN PROG=ADACNV,DB=yyyyy,IDTNAME=ADABAS5B
    ADACNV CONVERT TOVERS=vr
    /LOGOFF NOSPOOL

#### With Intermediate Tape/Cassette File Storage

#### In SDF Format:

    /.ADACNV SET-LOGON-PARAMETERS
    /MODIFY-TEST-OPTIONS DUMP=YES
    /REMARK *
    /REMARK * A D A C N V CONVERT THE DATABASE TO NEW VERSION
    /REMARK * INTERMEDIATE TAPE/CASSETTE STORAGE
    /REMARK *
    /DELETE-FILE ADAyyyyy.FILEA
    /SET-JOB-STEP
    /CREATE-FILE ADAyyyyy.FILEA,TAPE(DEV-TYPE=T-C1,VOL=ADA001)
    /SET-JOB-STEP
    /ASS-SYSLST L.CNV.DATA
    /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
    /SET-FILE-LINK DDWORKR1,ADAyyyyy.WORK,SHARE-UPD=YES
    /SET-FILE-LINK DDPLOGR1,ADAyyyyy.PLOGR1,SHARE-UPD=YES
    /SET-FILE-LINK DDPLOGR2,ADAyyyyy.PLOGR2,SHARE-UPD=YES
    /SET-FILE-LINK DDFILEA,ADAyyyyy.FILEA,TAPE(FILE-SEQ=1),OPEN-MODE=OUTIN
    /START-PROGRAM *M(ADA.MOD,ADARUN),PR-MO=ANY
    ADARUN PROG=ADACNV,DB=yyyyy,IDTNAME=ADABAS5B,TAPEREL=NO
    ADACNV CONVERT TOVERS=vr
    /SET-JOB-STEP
    /REMARK * NOW RELEASE THE TAPE
    /REM-FILE-LINK DDFILEA,UNL-REL-TAPE=YES
    /EXIT-JOB MODE=NORMAL,SYS-OUT=NONE

#### In ISP Format:

    /.ADACNV LOGON
    /OPTION MSG=FH,DUMP=YES
    /REMARK *
    /REMARK * A D A C N V CONVERT THE DATABASE TO NEW VERSION
    /REMARK * INTERMEDIATE TAPE/CASSETTE STORAGE
    /REMARK *
    /SYSFILE SYSLST=L.CNV.DATA
    /FILE ADA.MOD,LINK=DDLIB
    /FILE ADAyyyyy.ASSO,LINK=DDASSOR1,SHARUPD=YES
    /FILE ADAyyyyy.DATA,LINK=DDDATAR1,SHARUPD=YES
    /FILE ADAyyyyy.WORK,LINK=DDWORKR1,SHARUPD=YES
    /FILE ADAyyyyy.PLOGR1,LINK=DDPLOGR1,SHARUPD=YES
    /FILE ADAyyyyy.PLOGR2,LINK=DDPLOGR2,SHARUPD=YES
    /FILE ADAyyyyy.FILEA,LINK=DDFILEA,DEVICE=T-C1,VOLUME=ADA001
    /EXEC (ADARUN,ADA.MOD)
    ADARUN PROG=ADACNV,DB=yyyyy,IDTNAME=ADABAS5B,TAPEREL=NO
    ADACNV CONVERT TOVERS=vr
    /STEP
    /REMARK * NOW RELEASE THE TAPE
    /REL DDFILEA,UNLOAD
    /LOGOFF NOSPOOL

## z/OS

Data Set | DD Name | Storage | More Information
--- | --- | --- | ---
Associator | DDASSORn | disk |
Data Storage | DDDATARn | disk |
Work | DDWORKR1 DDWORKR4 | disk |
Multiple protection logs | DDPLOGRn | disk |
Intermediate storage | DDFILEA | tape/ disk
ADARUN parameters | DDCARD | reader | Operations
ADACNV parameters | DDKARTE | reader |
ADARUN messages | DDPRINT | printer | Messages and Codes
ADACNV messages | DDDRUCK | printer | Messages and Codes

### ADACNV JCL Example (z/OS)

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

    //ADACNV    JOB
    //*
    //*    ADACNV:
    //*       EXAMPLE HOW TO USE ADACNV TO CONVERT DATABASE
    //*       TO A DIFFERENT VERSION
    //*
    //CNV      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
    //DDPLOGR1  DD   DSN=EXAMPLE.DByyyyy.PLOGR1,DISP=SHR <=== PLOG 1
    //DDPLOGR2  DD   DSN=EXAMPLE.DByyyyy.PLOGR2,DISP=SHR <=== PLOG 2
    //DDFILEA   DD   DSN=EXAMPLE.DByyyyy.FILEA,         <=== INTERMEDIATE FILE
    //               UNIT=SYSDA,SPACE=(TRK,(150,150),RLSE),
    //               DISP=(NEW,CATLG)
    //DDDRUCK   DD   SYSOUT=X
    //DDPRINT   DD   SYSOUT=X
    //SYSUDUMP  DD   SYSOUT=X
    //DDCARD    DD   *
    ADARUN PROG=ADACNV,SVC=xxx,DE=dddd,DBID=yyyyy
    /*
    //DDKARTE   DD   *
    ADACNV CONVERT TOVERS=vr
    /*

## z/VSE

File | File Name | Storage | Logical Unit | More Information
--- | --- | --- | --- | ---
Associator | ASSORn | disk | * |
Data Storage | DATARn | disk | * |
Work | WORKRn | disk | * |
Multiple protection logs | PLOGRn | disk | * |
Intermediate storage | FILEA | tape disk | SYS010 *
ADARUN parameters | - CARD CARD | reader tape disk | SYSRDR SYS000 * | Operations
ADACNV parameters | - | reader | SYSIPT |
ADARUN messages | - | printer | SYSLST | Messages and Codes
ADACNV messages | - | printer | SYS009 | Messages and Codes

* Any programmer logical unit may be used.

### ADACNV JCS Example (z/VSE)

See Library and File Procedures for z/VSE Examples for a description of the z/VSE procedures.

Refer to member ADACNV.X for this example.

    * $$ JOB JNM=ADACNV,CLASS=A,DISP=D
    * $$ LST CLASS=A,DISP=D
    *       CONVERT DATABASE TO NEW VERSION
    // JOB ADACNV
    // EXEC PROC=ADAVvLIB
    // EXEC PROC=ADAVvFIL
    // DLBL FILEA,'ADACNV.WORK.FILE',0,SD
    // EXTENT SYS015,,,,ssss,nnnn
    // ASSGN SYS015,DISK,VOL=vvvvvv,SHR
    // EXEC ADARUN,SIZE=ADARUN
    ADARUN DBID=yyyyy,DEVICE=dddd,PROG=ADACNV,SVC=xxx
    /*
    ADACNV CONVERT TOVERS=vr
    /*
    /&
    * $$ EOJ

### On this page

- BS2000
- z/OS
- z/VSE