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:
| 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 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
| 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 |
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 /*
| 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.
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
