Version 8.2.5
 —  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                            
     /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,FILE=1,10,20-30                                      
     /LOGOFF SYS-OUTPUT=DEL

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