JCL/JCS Requirements and Examples

#### Search Results

Search

# JCL/JCS Requirements and Examples

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

Note
When running with the optional Recovery Aid (RLOG), all temporary data sets must also be cataloged in the job control.

This document covers the following topics:

- BS2000

- z/OS

- z/VSE

## BS2000

File | Link Name | Storage | More Information
--- | --- | --- | ---
Associator | DDASSORn | disk | data sets to be formatted
Data Storage | DDDATARn |  |
Work | DDWORKR1 DDWORKR4 |  |
Temp | DDTEMPR1 |  |
Sort | DDSORTRn |  |
Multiple command logs | DDCLOGRn |  |
Multiple protection logs | DDPLOGRn |  |
Recovery log | DDRLOGR1 |  |
ADARUN parameters | SYSDTA/ DDCARD |  | Operations
ADAFRM parameters | SYSDTA/ DDKARTE |  |
ADARUN messages | SYSOUT/ DDPRINT |  | Messages and Codes
ADAFRM messages | SYSLST/ DDDRUCK |  | Messages and Codes

### ADAFRM JCL Example (BS2000)

#### In SDF Format:

    /.ADAFRM SET-LOGON-PARAMETERS
    /MODIFY-TEST-OPTIONS DUMP=YES
    /REMARK *
    /REMARK * A D A F R M ALL FUNCTIONS
    /REMARK *
    /ASS-SYSLST L.FRM
    /ASS-SYSDTA *SYSCMD
    /SET-FILE-LINK DDLIB,ADAvrs.MOD
    /SET-FILE-LINK DDASSOR1,ADAyyyyy.ASSO,OPEN-MODE=OUTIN
    /SET-FILE-LINK DDDATAR1,ADAyyyyy.DATA,OPEN-MODE=OUTIN
    /SET-FILE-LINK DDWORKR1,ADAyyyyy.WORK,OPEN-MODE=OUTIN
    /SET-FILE-LINK DDTEMPR1,ADAyyyyy.TEMP,OPEN-MODE=OUTIN
    /SET-FILE-LINK DDSORTR1,ADAyyyyy.SORT,OPEN-MODE=OUTIN
    /SET-FILE-LINK DDPLOGR1,ADAyyyyy.PLOGR1,OPEN-MODE=OUTIN
    /SET-FILE-LINK DDPLOGR2,ADAyyyyy.PLOGR2,OPEN-MODE=OUTIN
    /SET-FILE-LINK DDRLOGR1,ADAyyyyy.RLOGR1,OPEN-MODE=OUTIN
    /START-PROGRAM *M(ADA.MOD,ADARUN),PR-MO=ANY ADARUN PROG=ADAFRM,DB=yyyyy,IDTNAME=ADABAS5B
    ADAFRM ASSOFRM SIZE=100
    ADAFRM DATAFRM SIZE=200
    ADAFRM WORKFRM SIZE=40
    ADAFRM SORTFRM SIZE=25
    ADAFRM TEMPFRM SIZE=10
    ADAFRM PLOGFRM SIZE=40,NUMBER=1
    ADAFRM PLOGFRM SIZE=40,NUMBER=2
    ADAFRM RLOGFRM SIZE=10
    /EXIT-JOB MODE=NORMAL,SYS-OUT=NONE

#### In ISP Format:

    /.ADAFRM LOGON
    /OPTION MSG=FH,DUMP=YES
    /REMARK *
    /REMARK * A D A F R M ALL FUNCTIONS
    /REMARK *
    /SYSFILE SYSLST=L.FRM
    /FILE ADA.MOD,LINK=DDLIB
    /FILE ADAyyyyy.ASSO ,LINK=DDASSOR1,OPEN=OUTIN
    /FILE ADAyyyyy.DATA ,LINK=DDDATAR1,OPEN=OUTIN
    /FILE ADAyyyyy.WORK ,LINK=DDWORKR1,OPEN=OUTIN
    /FILE ADAyyyyy.TEMP ,LINK=DDTEMPR1,OPEN=OUTIN
    /FILE ADAyyyyy.SORT ,LINK=DDSORTR1,OPEN=OUTIN
    /FILE ADAyyyyy.PLOGR1,LINK=DDPLOGR1,OPEN=OUTIN
    /FILE ADAyyyyy.PLOGR2,LINK=DDPLOGR2,OPEN=OUTIN
    /FILE ADAyyyyy.RLOGR1,LINK=DDRLOGR1,OPEN=OUTIN
    /EXEC (ADARUN,ADA.MOD)
    ADARUN PROG=ADAFRM,DB=yyyyy,IDTNAME=ADABAS5B
    ADAFRM ASSOFRM SIZE=100
    ADAFRM DATAFRM SIZE=200
    ADAFRM WORKFRM SIZE=40
    ADAFRM SORTFRM SIZE=25
    ADAFRM TEMPFRM SIZE=10
    ADAFRM PLOGFRM SIZE=40,NUMBER=1
    ADAFRM PLOGFRM SIZE=40,NUMBER=2
    ADAFRM RLOGFRM SIZE=10
    /LOGOFF NOSPOOL

## z/OS

Data Set | DD Name | Storage | More Information
--- | --- | --- | ---
Associator | DDASSORn | disk | data sets to be formatted
Data Storage | DDDATARn |  |
Work | DDWORKR1 DDWORKR4 |  |
Temp | DDTEMPR1 |  |
Sort | DDSORTRn |  |
Multiple command logs | DDCLOGRn |  |
Multiple protection logs | DDPLOGRn |  |
Recovery log | DDRLOGR1 |  |
ADARUN parameters | DDCARD | reader | Operations
ADAFRM parameters | DDKARTE | disk |
ADARUN messages | DDPRINT | printer | Messages and Codes
ADAFRM messages | DDDRUCK | printer | Messages and Codes

### ADAFRM JCL Example (z/OS)

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

    //ADAFRM    JOB
    //*
    //*     ALLOCATE AND FORMAT THE DATABASE COMPONENTS
    //*
    //*     MORE THAN ONE DATA SET CAN BE FORMATTED IN A SINGLE RUN
    //*
    //*
    //FRM       EXEC PGM=ADARUN
    //STEPLIB   DD   DISP=SHR,DSN=ADABAS.ADAvrs.LOAD                <=== ADABAS LOAD
    //*
    //DDASSOR1  DD   DISP=(NEW,CATLG),DSN=EXAMPLE.DByyyyy.ASSOR1, <=== ASSO
    //            SPACE=(CYL,(100,100)),UNIT=DISK,VOL=SER=VOL001
    //DDDATAR1  DD   DISP=(NEW,CATLG),DSN=EXAMPLE.DByyyyy.DATAR1, <=== DATA
    //            SPACE=(CYL,(200,200)),UNIT=DISK,VOL=SER=VOL002
    //DDWORKR1  DD   DISP=(NEW,CATLG),DSN=EXAMPLE.DByyyyy.WORKR1, <=== WORK
    //            SPACE=(CYL,(40,40)),UNIT=DISK,VOL=SER=VOL003
    //DDSORTR1  DD   DISP=(NEW,CATLG),DSN=EXAMPLE.DByyyyy.SORTR1, <=== SORT
    //            SPACE=(CYL,(100,100)),UNIT=DISK,VOL=SER=VOL003
    //DDTEMPR1  DD   DISP=(NEW,CATLG),DSN=EXAMPLE.DByyyyy.TEMPR1, <=== TEMP
    //            SPACE=(CYL,(100,100)),UNIT=DISK,VOL=SER=VOL003
    //DDPLOGR1  DD   DISP=(NEW,CATLG),DSN=EXAMPLE.DByyyyy.PLOGR1, <=== PLOG1
    //            SPACE=(CYL,(50)),UNIT=DISK,VOL=SER=VOL003
    //DDPLOGR2  DD   DISP=(NEW,CATLG),DSN=EXAMPLE.DByyyyy.PLOGR2, <=== PLOG2
    //            SPACE=(CYL,(50)),UNIT=DISK,VOL=SER=VOL003
    //DDCLOGR1  DD   DISP=(NEW,CATLG),DSN=EXAMPLE.DByyyyy.CLOGR1, <=== CLOG1
    //            SPACE=(CYL,(50)),UNIT=DISK,VOL=SER=VOL003
    //DDCLOGR2  DD   DISP=(NEW,CATLG),DSN=EXAMPLE.DByyyyy.CLOGR2, <=== CLOG2
    //            SPACE=(CYL,(50)),UNIT=DISK,VOL=SER=VOL003
    //DDDRUCK   DD   SYSOUT=X
    //DDPRINT   DD   SYSOUT=X
    //SYSUDUMP  DD   SYSOUT=X
    //DDCARD    DD   *
    ADARUN PROG=ADAFRM,SVC=xxx,DEVICE=dddd,DBID=yyyyy
    /*
    //DDKARTE   DD   *
    ADAFRM ASSOFRM SIZE=100,DEVICE=dddd
    ADAFRM DATAFRM SIZE=200,DEVICE=dddd
    ADAFRM WORKFRM SIZE=40,DEVICE=dddd
    ADAFRM SORTFRM SIZE=100,DEVICE=dddd
    ADAFRM TEMPFRM SIZE=100,DEVICE=dddd
    ADAFRM PLOGFRM SIZE=50,NUMBER=1,DEVICE=dddd
    ADAFRM PLOGFRM SIZE=50,NUMBER=2,DEVICE=dddd
    ADAFRM CLOGFRM SIZE=50,NUMBER=1,DEVICE=dddd
    ADAFRM CLOGFRM SIZE=50,NUMBER=2,DEVICE=dddd
    /*

## z/VSE

File | Symbolic Name | Storage | Logical Unit | More Information
--- | --- | --- | --- | ---
Associator | ASSORn | disk | * | files to be formatted
Data Storage | DATARn |  |  |
Work | WORKR1 |  |  |
Temp | TEMPR1 |  |  |
Sort | SORTR1 |  |  |
Multiple command log | CLOGRn |  |  |
Multiple protection log | PLOGRn |  |  |
Recovery log | RLOGR1 |  |  |
ADARUN parameters | - CARD CARD | reader tape disk | SYSRDR SYS000 * |
ADAFRM parameters | - | reader | SYSIPT |
ADARUN messages | - | printer | SYSLST | Messages and Codes
ADAFRM messages | - | printer | SYS009 | Messages and Codes

* Any programmer logical unit may be used.

### ADAFRM JCS Example (z/VSE)

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

Refer to member ADAFRM.X for this example.

    * $$ JOB JNM=ADAFRM,CLASS=A,DISP=D
    * $$ LST CLASS=A,DISP=D
    // JOB ADAFRM
    *       FORMAT THE DATABASE COMPONENTS
    // EXEC PROC=ADAVvLIB
    // EXEC PROC=ADAVvFIL
    // EXEC ADARUN,SIZE=ADARUN
    ADARUN PROG=ADAFRM,MODE=SINGLE,SVC=xxx,DEVICE=dddd,DBID=yyyyy
    /*
    ADAFRM ASSOFRM SIZE=100,DEVICE=dddd
    ADAFRM DATAFRM SIZE=200,DEVICE=dddd
    ADAFRM WORKFRM SIZE=40,DEVICE=dddd
    ADAFRM SORTFRM SIZE=100,DEVICE=dddd
    ADAFRM TEMPFRM SIZE=100,DEVICE=dddd
    ADAFRM PLOGFRM SIZE=50,NUMBER=1,DEVICE=dddd
    ADAFRM PLOGFRM SIZE=50,NUMBER=2,DEVICE=dddd
    ADAFRM CLOGFRM SIZE=50,NUMBER=1,DEVICE=dddd
    ADAFRM CLOGFRM SIZE=50,NUMBER=2,DEVICE=dddd
    /*
    /&
    * $$ EOJ

### On this page

- BS2000
- z/OS
- z/VSE