Version 8.1.4	SEARCH   INDEX   CONTENTS   |   PDF PAGE   PDF BOOKS   |   HOME   UP   PREV   NEXT

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

This document covers the following topics:

• BS2000

• z/OS

• z/VM

• VSE

BS2000

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                                                     

z/OS

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

z/VM

ADACDC JCL Example (z/VM)

/*                                              */
/*       ADACDC JCL Example (z/VM)              */
/*                                              */
DATADEF DDASSOR1,DSN=ADABASVv.ASSO,VOL=ASSOV1
/*                                              */
DATADEF DDSIIN,DSN=ADACDC.PLOG,MODE=A
DATADEF CDCTXI,DSN=ADACDC.INNPUT,MODE=A
DATADEF CDCTXO,DSN=ADACDC.OUTPUT,MODE=A
DATADEF CDCOUT,DSN=ADACDC.PRIMARY,MODE=A 
/*                                              */
DATADEF DDPRINT,DSN=ADACDC,DDPRINT,MODE=A
DATADEF DUMP,DUMMY
DATADEF DDDRUCK,DSN=ADACDC.DDDRUCK,MODE=A
/*                                              */
DATADEF DDCARD,DSN=RUNCDC.CONTROL,MODE=A
DATADEF DDKARTE,DSN=ADACDC.CONTROL,MODE=A

EXECOS ADARUN
RCODE = RC
EXIT RCODE

Contents of RUNCDC CONTROL A1:

ADARUN PROG=ADACDC,DEVICE=dddd,DB=yyyyy

Contents of ADACDC CONTROL A1:

ADACDC PHASE=BOTH,FILE=1,10,20-30

VSE

* Any programmer logical unit may be used.

ADACDC JCS Example (VSE)

See Library and File Procedures for VSE Examples for descriptions of the 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

www.softwareag.com

Copyright © 1971-2014 Software AG, Darmstadt, Germany.

SEARCH   INDEX   CONTENTS   |   PDF PAGE   PDF BOOKS   |   HOME   UP   PREV   NEXT