ADAULD JCL/JCS Requirements and Examples

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

This document covers the following topics:

BS2000/OSD

Data Set Link Name Storage More Information
Unloaded data DDOUT1 tape/disk Output by ADAULD (see note)
Unloaded data DDOUT2 tape/disk Output by ADAULD (see note)
Unloaded ISNs DDISN tape/disk Required with DDISN
Full save tape DDFULL tape/disk Required for full save tapes
Delta save tape(s) DDDEL1 - DDDEL8 tape/disk Required for delta save tape(s)
Delta Save images DDDSIMR1 disk Required for DSIM data set
Recovery log (RLOG) DDRLOGR1 disk Required for ADARAI
ADARUN parameters SYSDTA/DDCARD   Adabas Operations
ADAULD parameters SYSDTA/DDKARTE    
ADARUN messages SYSOUT/DDPRINT   Adabas Messages and Codes
ADAULD messages SYSLST/DDDRUCK   Adabas Messages and Codes

Note:
DDOUT1 and DDOUT2 must have the same block size; otherwise, an ADAULD error will occur. DDOUT2 is required only if NUMOUT=2 is specified.

BS2000/OSD Examples


/.ADAULD LOGON

/OPTION MSG=FH,DUMP=YES

/REMARK *

/REMARK *   A D A U L D     SAVETAPE FUNCTION

/REMARK *

/SYSFILE SYSLST=L.ULD

/FILE    ADA.MOD     ,LINK=DDLIB

/FILE    ADA99.OUT1     ,LINK=DDOUT1 ,SPACE=(480,48)

/FILE    ADA99.FULL     ,LINK=DDFULL 

/FILE    ADA99.DEL1     ,LINK=DDDEL1 

/FILE    ADA99.DEL2     ,LINK=DDDEL2 

/EXEC (ADARUN,ADA.MOD)

ADARUN PROG=ADAULD,DB=99,DSF=YES

ADAULD FILE=1,SAVETAPE,PATTERN=FDD

/LOGOFF NOSPOOL

z/OS

Data Set DD Name Storage More Information
Unloaded data DDOUT1 tape/disk Output by ADAULD (see note)
Unloaded data DDOUT2 tape/disk Output by ADAULD (see note)
Unloaded ISNs DDISN tape/disk Required with DDISN
Full save tape DDFULL tape/disk Required for full save tape
Delta save tape(s) DDDEL1-
DDDEL8 		tape/disk Required for delta save tape(s)
Delta Save images DDDSIMR1 disk Required for DSIM data set
Recovery log (RLOG) DDRLOGR1 disk Required for ADARAI
ADAULD messages DDDRUCK printer Adabas Messages and Codes
ADARUN messages DDPRINT printer Adabas Messages and Codes
ADARUN parameters DDCARD reader Adabas Operations
ADAULD parameters DDKARTE reader  

Note:
DDOUT1 and DDOUT2 must have the same block size; otherwise, an ADAULD error will occur. DDOUT2 is required only if NUMOUT=2 is specified.

z/OS Example

//ULD       EXEC PGM=ADARUN
//STEPLIB   DD   DISP=SHR,DSN=ADABAS.Vvrs.LOADLIB
//*
//DDOUT1    DD   DISP=(,KEEP),DSN=EXAMPLE.ADA99.OUT1,
//          UNIT=SYSDA,VOL=SER=DISK01,SPACE=(TRK,200,RLSE)
//DDFULL    DD   DISP=SHR,DSN=EXAMPLE.ADA99.FULLSAVE
//DDDEL1    DD   DISP=SHR,DSN=EXAMPLE.ADA99.DELTA1
//DDDEL2    DD   DISP=SHR,DSN=EXAMPLE.ADA99.DELTA2
//SYSUDUMP  DD   SYSOUT=A
//DDDRUCK   DD   SYSOUT=A
//DDPRINT   DD   SYSOUT=A
//DDCARD    DD   *
ADARUN PROG=ADAULD,SVC=249,DEVICE=3390,DB=99,DSF=YES
//DDKARTE   DD   *
ADAULD    FILE=1,SAVETAPE,PATTERN=FDD

z/VM

Data Set DD Name Storage More Information
Unloaded data DDOUT1 tape/disk Output by ADAULD (see note)
Unloaded data DDOUT2 tape/disk Output by ADAULD (see note)
Unloaded ISNs DDISN tape/disk Required with DDISN
Full save tape DDFULL tape/disk Required for full save tape
Delta save tape(s) DDDEL1-
DDDEL8 		tape/disk Required for delta save tape(s)
Delta Save images DDDSIMR1 disk Required for DSIM data set
Recovery log (RLOG) DDRLOGR1 disk Required for ADARAI
ADAULD messages DDDRUCK disk/ terminal/ printer Adabas Messages and Codes
ADARUN messages DDPRINT disk/ terminal/ printer Adabas Messages and Codes
ADARUN parameters DDCARD disk/ terminal/ reader Adabas Operations
ADAULD parameters SYSIPT disk/ terminal/ reader  

Note:
DDOUT1 and DDOUT2 must have the same block size; otherwise, an ADAULD error will occur. DDOUT2 is required only if NUMOUT=2 is specified.

z/VM Example


DATADEF DDOUT1,DSN=ADABASVv.ULD1,UNIT=181,VOL=ULDF1

DATADEF DDFULL,DSN=ADABASVv.ULD1,UNIT=181,VOL=ULDF1

DATADEF DDDEL1,DSN=ADABASVv.ULD1,UNIT=181,VOL=ULDF1

DATADEF DDDEL2,DSN=ADABASVv.ULD1,UNIT=181,VOL=ULDF1

DATADEF DDPRINT,DSN=ADAULD.DDPRINT,MODE=A

DATADEF DUMP,DUMMY

DATADEF DDDRUCK,DSN=ADAULD.DDDRUCK,MODE=A

DATADEF DDCARD,DSN=RUNULD.CONTROL,MODE=A

DATADEF DDKARTE,DSN=ADAULD.CONTROL,MODE=A

ADARUN

Contents of RUNULD CONTROL A1:


ADARUN PROG=ADAULD,DEVICE=3390,DB=111,DSF=YES

Contents of ADAULD CONTROL A1 * 


ADAULD FILE=1,SAVETAPE,PATTERN=FDD

VSE/ESA and z/VSE

File Symbolic Name Storage Logical Unit More Information
Unloaded data OUT1 tape
disk 		SYS010
see note 1 		Output by ADAULD (see note 2)
Unloaded data OUT2 tape
disk 		SYS011
see note 1 		Output by ADAULD (see note 2)
Unloaded ISNs ISN tape
disk 		SYS012
see note 1 		Required with DDISN
Full save tape FULL tape
disk 		SYS030
see note 1 		Required for full save tape
Delta save tape(s) DEL1-
DEL8 		tape
disk 		SYS031-
SYS038 see note 1 		Required for delta save tape(s)
Delta Save images DSIMR1 disk see note 1 Required for DSIM data set
Recovery log (RLOG) RLOGR1 disk see note 1 Required for ADARAI
Messages SYSLST printer   Adabas Messages and Codes
ADARUN parameters SYSRDR CARD reader/
tape/disk 		  Adabas Operations
ADAULD parameters SYSIPT reader    

Notes:

  1. Any programmer logical unit can be used.
  2. OUT1 and OUT2 must have the same block size; otherwise, an ADAULD error will occur. OUT2 is required only if NUMOUT=2 is specified.

VSE/ESA and z/VSE Example

See the VSE/ESA-related job information in section Adabas Utility Functions for Delta Save. 


// EXEC PROC=ADAVvFIL

// EXEC PROC=ADAVvLIB

// ASSGN SYS004,DISK,VOL=DISK01,SHR

// DLBL OUT1,'EXAMPLE.ADA99.OUT1'

// EXTENT SYS004,DISK01,,,770,200

// ASSGN SYS030,TAPE

// TLBL FULL,`EXAMPLE.ADAl99.FULL'

// ASSGN SYS031,TAPE

// TLBL DEL1,'EXAMPLE.ADA99.DEL1'

// ASSGN SYS032,TAPE

// TLBL DEL2,'EXAMPLE.ADA99.DEL2'

// EXEC PROC=ADAvLIBS

// EXEC ADARUN,SIZE=ADARUN

ADARUN PROG=ADAULD,SVC=xxx,DEVICE=dddd,DB=yyyy,DSF=YES

/*

ADAULD FILE=1,SAVETAPE,PATTERN=FDD

/*