Version 8.2.4 SEARCH   INDEX   CONTENTS   |   PDF PAGE   PDF BOOKS   |   HOME   UP   PREV   NEXT
 —  Utilities  —

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

Data Set 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)

    /.ADACDC LOGON
     /REMA  ADACDC: CAPTURE DELTA CHANGES                             
     /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                                                     
     /CREATE-FILE EXAMPLE.OUTPUT.TRANS.FILE,PUB(SPACE=(48,48))         
     /CREATE-FILE EXAMPLE.OUTPUT.PRIMARY.FILE,PUB(SPACE=(48,48))       
     /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                  
     /SET-FILE-LINK  CDCOUT,EXAMPLE.OUTPUT.PRIMARY.FILE                
     /SET-FILE-LINK  DDDRUCK,EXAMPLE.ADACDC.DRUCK                      
     /SET-FILE-LINK  DDPRINT,EXAMPLE.ADACDC.PRINT                      
     /SET-FILE-LINK  DDLIB,ADABAS.ADAvrs.MOD                             
     /START-PROGRAM *M(ADABAS.ADAvrs.MOD,ADARUN)                         
     ADARUN 
PROG=ADACDC,MODE=MULTI,IDTNAME=xxxxxxxx,DEVICE=dddd,DBID=yyyyy  
     ADACDC
PHASE=BOTH,FILE=1,10,20-30                                      
     /LOGOFF SYS-OUTPUT=DEL
NOSPOOL

Top of page

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,FILE=1,10,20-30
/*

Top of page

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,128K)
ADARUN DBID=yyyyy,DEVICE=dddd,PROG=ADACDC,SVC=xxx,MODE=MULTI
/*
ADACDC PHASE=BOTH,FILE=1,10,20-30
/*
/&
* $$ EOJ

Top of page

 www.softwareag.com  Copyright © 1971-2012 Software AG, Darmstadt, Germany.   SEARCH   INDEX   CONTENTS   |   PDF PAGE   PDF BOOKS   |   HOME   UP   PREV   NEXT