JCL/JCS Requirements and Examples

#### Search Results

Search

# JCL/JCS Requirements and Examples

This section describes the job control information required to run ADACDC with BS2000, z/OS, and z/VSE 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 | required to read the GCB and FDT entries
Protection log | DDSIIN/ DDSIINnn | tape/ disk | sequential log (not required when PHASE=2)
Extract file | CDCEXT | tape/ disk | output or input extract file (not required when PHASE=BOTH)
Input transaction file | CDCTXI | tape/ disk | not required when RESETTXF is specified or when PHASE=2
Output transaction file | CDCTXO | tape/ disk | not required when PHASE=2
Primary output file | CDCOUT | tape/ disk | not required when PHASE=1
ADARUN parameters | SYSDTA/ DDCARD | disk/ terminal/ reader | Operations
ADACDC parameters | SYSDTA/ DDKARTE | disk/ terminal/ reader | Utilities
ADARUN messages | DDPRINT | disk/ terminal/ printer | Messages and Codes
ADACDC messages | DDDRUCK | disk/ terminal/ printer | Messages and Codes

### ADACDC JCL Example (BS2000)

In SDF format:

    /.ADACDC SET-LOGON-PARAMETERS
         /REMA  ADACDC: CAPTURE DELTA CHANGES
         /REMA
         /REMA Note: file on CDCTXI should already exist
         /REMA
         /ASS-SYSOUT EXAMPLE.ADACDC.SYSOUT
         /MODIFY-TEST-OPTION DUMP=YES
         /DELETE-FILE EXAMPLE.OUTPUT.TRANS.FILE
         /SET-JOB-STEP
         /DELETE-FILE EXAMPLE.OUTPUT.PRIMARY.FILE
         /SET-JOB-STEP
         /DELETE-FILE EXAMPLE.ADACDC.DRUCK
         /SET-JOB-STEP
         /DELETE-FILE EXAMPLE.ADACDC.PRINT
         /SET-JOB-STEP
         /CREATE-FILE EXAMPLE.OUTPUT.TRANS.FILE,PUB(SPACE=(48,48))
         /CREATE-FILE EXAMPLE.OUTPUT.PRIMARY.FILE,PUB(SPACE=(48,48))
         /CREATE-FILE EXAMPLE.ADACDC.DRUCK,PUB()
         /CREATE-FILE EXAMPLE.ADACDC.PRINT,PUB()
         /ASS-SYSDTA *SYSCMD
         /SET-FILE-LINK  DDASSOR1,EXAMPLE.DByyyyy.ASSOR1
         /SET-FILE-LINK  DDSIIN,EXAMPLE.DByyyyy.PLOG000
         /SET-FILE-LINK  DDSIIN01,EXAMPLE.DByyyyy.PLOG001
         /SET-FILE-LINK  DDSIIN02,EXAMPLE.DByyyyy.PLOG002
         /SET-FILE-LINK  DDSIIN03,EXAMPLE.DByyyyy.PLOG003
         /SET-FILE-LINK  CDCTXI,EXAMPLE.INPUT.TRANS.FILE
         /SET-FILE-LINK  CDCTXO,EXAMPLE.OUTPUT.TRANS.FILE,BUFF-LEN=STD(16)
         /SET-FILE-LINK  CDCOUT,EXAMPLE.OUTPUT.PRIMARY.FILE,BUFF-LEN=STD(16)
         /SET-FILE-LINK  DDDRUCK,EXAMPLE.ADACDC.DRUCK
         /SET-FILE-LINK  DDPRINT,EXAMPLE.ADACDC.PRINT
         /SET-FILE-LINK  DDLIB,$SAG.ADAvrs.MOD
         /SET-FILE-LINK  BLSLIB00,$TSOS.SORTLIB
         /START-PROGRAM *M(ADABAS.ADAvrs.MOD,ADARUN)
         ADARUN PROG=ADACDC,MODE=MULTI,IDTNAME=xxxxxxxx,DEVICE=dddd,DBID=yyyyy
         ADACDC PHASE=BOTH,FILES=1,10,20-30
         /EXIT-JOB MODE=NORMAL,SYS-OUT=NONE

## z/OS

Data Set | DD Name | Storage | More Information
--- | --- | --- | ---
Associator | DDASSORn | disk | required to read the GCB and FDT entries
Protection log | DDSIIN | tape/ disk | sequential log (not required when PHASE=2)
Input transaction file | CDCTXI | tape/ disk | not required when RESETTXF is specified or when PHASE=2
Output transaction file | CDCTXO | tape/ disk | not required when PHASE=2
Extract file | CDCEXT | tape/ disk | output or input extract file (not required when PHASE=BOTH)
Primary output file | CDCOUT | tape/ disk | not required when PHASE=1
ADARUN parameters | DDCARD | reader | Operations
ADACDC parameters | DDKARTE | reader | Utilities
ADARUN messages | DDPRINT | printer | Messages and Codes
ADACDC messages | DDDRUCK | printer | Messages and Codes

### ADACDC JCL Example (z/OS)

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

    //ADACDC    JOB
    //*
    //*    ADACDC: CAPTURE DELTA CHANGES
    //*
    //CDC      EXEC PGM=ADARUN
    //STEPLIB   DD   DISP=SHR,DSN=ADABAS.ADAvrs.LOAD          <=== ADABAS LOAD
    //*
    //DDASSOR1  DD   DISP=SHR,DSN=EXAMPLE.DByyyyy.ASSOR1    <=== ASSO
    //DDSIIN    DD   DSN=EXAMPLE.DByyyyy.PLOG(-3),DISP=SHR  <== PLOG TAPE
    //          DD   DSN=EXAMPLE.DByyyyy.PLOG(-2),DISP=SHR  <== PLOG TAPE
    //          DD   DSN=EXAMPLE.DByyyyy.PLOG(-1),DISP=SHR  <== PLOG TAPE
    //          DD   DSN=EXAMPLE.DByyyyy.PLOG(0),DISP=SHR   <== PLOG TAPE
    //CDCTXI    DD   DSN=EXAMPLE.input.trans.file,DISP=SHR
    //CDCTXO    DD   DSN=EXAMPLE.output.trans.file,DISP=OLD
    //CDCOUT    DD   DSN=EXAMPLE.output.primary.file,DISP=OLD
    //DDDRUCK   DD   SYSOUT=X
    //DDPRINT   DD   SYSOUT=X
    //SYSUDUMP  DD   SYSOUT=X
    //DDCARD    DD   *
    ADARUN PROG=ADACDC,MODE=MULTI,SVC=xxx,DEVICE=dddd,DBID=yyyyy
    /*
    //DDKARTE   DD   *
    ADACDC PHASE=BOTH,FILES=1,10,20-30
    /*

## z/VSE

File | Symbolic Name | Storage | Logical Unit | More Information
--- | --- | --- | --- | ---
Associator | ASSORn | disk | * | required to read the GCB and FDT entries
Protection log | SIIN | tape disk | SYS010 * | sequential log (not required when PHASE=2)
Input transaction | CDCTXI | tape disk | SYS015 * | not required when RESETTXF is specified or when PHASE=2
Output transaction | CDCTXO | tape disk | SYS016 * | not required when PHASE=2
Extract | CDCEXT | tape disk | SYS017 * | output or input extract file (not required when PHASE=BOTH)
Primary output | CDCOUT | tape disk | SYS018 * | not required when PHASE=1
ADARUN parameters | - CARD CARD | reader tape disk | SYSRDR SYS000 * | Operations
ADACDC parameters | - | reader | SYSIPT | Utilities
ADARUN messages | - | printer | SYSLST | Messages and Codes
ADACDC messages | - | printer | SYS009 | Messages and Codes

* Any programmer logical unit may be used.

### ADACDC JCS Example (z/VSE)

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

Refer to member ADACDC.X for this example.

    * $$ JOB JNM=ADACDC,CLASS=A,DISP=D
    * $$ LST CLASS=A,DISP=D
    // JOB ADACDC
    *       CAPTURE DELTA CHANGES
    // EXEC PROC=ADAVvLIB
    // EXEC PROC=ADAVvFIL
    // ASSGN SYS010,TAPE
    // PAUSE MOUNT LOAD INPUT FILE ON TAPE cuu
    // TLBL SIIN,'EXAMPLE.DByyy.PLOG'
    // MTC REW,SYS010
    // DLBL CDCTXI,'EXAMPLE.INPUT.TRANS.FILE',,SD
    // EXTENT SYS015
    // ASSGN SYS015,DISK,VOL=DISK01,SHR
    // DLBL CDCTXO,'EXAMPLE.OUTPUT.TRANS.FILE',,SD
    // EXTENT SYS016,,,,sssss,nnnnn
    // ASSGN SYS016,DISK,VOL=DISK02
    // DLBL CDCOUT,'EXAMPLE.OUTPUT.TRANS.FILE',,SD
    // EXTENT SYS018,,,,sssss,nnnnn
    // ASSGN SYS018,DISK,VOL=DISK04
    // EXEC ADARUN,SIZE=(ADARUN,300K)
    ADARUN DBID=yyyyy,DEVICE=dddd,PROG=ADACDC,SVC=xxx,MODE=MULTI
    /*
    ADACDC PHASE=BOTH,FILES=1,10,20-30
    /*
    /&
    * $$ EOJ

### On this page

- BS2000
- z/OS
- z/VSE