ADAFRM JCL/JCS Requirements and Examples

This section describes the job control information required to run the Delta Save functions of ADAFRM 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
z/OS
z/VM
VSE/ESA and z/VSE

BS2000/OSD

Data Set	Link Name	Storage	More Information
Delta Save images (DSIM)	DDDSIMR1	disk	Required for DSIM... functions
ADAFRM parameters	SYSDTA/ DDKARTE
ADARUN parameters	SYSDTA/ DDCARD		Adabas Operations
ADAFRM messages	SYSLST/ DDDRUCK		Adabas Messages and Codes
ADARUN messages	SYSOUT/ DDPRINT		Adabas Messages and Codes

Format DSIM Data Set (ADAFRM DSIMFRM)


/.FRM               LOGON

/MOD-JOB-OPTIONS    LISTING=YES

/MOD-TEST           DUMP=YES

/ASS-SYSLST         DO.PRI.LST

/ASS-SYSOUT         DO.PRI.OUT

/SET-JOB-STEP

/ASS-SYSDTA         *SYSCMD

/SET-FILE-LINK      DDDSIMR1, ADABAS.DB010.DSIM 

,SUP=DISK(SHARE-UPD=NO)

/SET-FILE-LINK      DDLIB   , ADABAS.MOD

/REMARK

/START-PROGRAM      FROM-FILE=*MOD(ADABAS.MOD,ADARUN)

ADARUN   PROG=ADAFRM, ...

ADAFRM DSIMFRM SIZE=20,...

/ASS-SYSLST         *PRIM

/ASS-SYSOUT         *PRIM

/ASS-SYSDTA         *PRIM

/LOGOFF             SYS-OUTPUT=DEL

Reset DSIM Data Set (ADAFRM DSIMRESET)


/.RESET             LOGON

/MOD-JOB-OPTIONS    LISTING=YES

/MOD-TEST           DUMP=YES

/ASS-SYSLST         DO.PRI.LST

/ASS-SYSOUT         DO.PRI.OUT

/SET-JOB-STEP

/ASS-SYSDTA         *SYSCMD

/SET-FILE-LINK      DDDSIMR1, ADABAS.DB010.DSIM 

,SUP=DISK(SHARE-UPD=NO)

/SET-FILE-LINK      DDLIB   , ADABAS.MOD

/REMARK

/START-PROGRAM      FROM-FILE=*MOD(ADABAS.MOD,ADARUN)

ADARUN   PROG=ADAFRM, ...

ADAFRM DSIMRESET FROMRABN=1,SIZE=1B

/ASS-SYSLST         *PRIM

/ASS-SYSOUT         *PRIM

/ASS-SYSDTA         *PRIM

/ASS-SYSIPT         *PRIM

/LOGOFF             SYS-OUTPUT=DEL

z/OS

Data Set	DD Name	Storage	More Information
Delta Save images (DSIM)	DDDSIMR1	disk	Required for DSIM... functions
ADAFRM parameters	DDKARTE
ADARUN parameters	DDCARD		Adabas Operations
ADAFRM messages	DDDRUCK		Adabas Messages and Codes
ADARUN messages	DDPRINT		Adabas Messages and Codes

Format DSIM Data Set (ADAFRM DSIMFRM)


//FORMAT   EXEC  PGM=ADARUN

//DDDSIMR1 DD  DSN=ADABAS.DB010.DSIMR1,DISP=(NEW,CATLG),

//             VOL=SER=...,UNIT=...,SPACE=(CYL,20)

//DDCARD   DD  *

 ADARUN    PROG=ADAFRM,...

//DDKARTE  DD  *

 ADAFRM DSIMFRM SIZE=20,...

//DDPRINT  DD  SYSOUT=*

//DDDRUCK  DD  SYSOUT=*

Reset DSIM Data Set (ADAFRM DSIMRESET)


//FORMAT   EXEC  PGM=ADARUN

//DDDSIMR1 DD  DSN=ADABAS.DB010.DSIMR1,DISP=OLD

//DDCARD   DD  *

 ADARUN    PROG=ADAFRM, ...

//DDKARTE  DD  *

 ADAFRM DSIMRESET FROMRABN=1,SIZE=1B

//DDPRINT  DD  SYSOUT=*

//DDDRUCK  DD  SYSOUT=*

z/VM

Data Set	DD Name	Storage	More Information
Delta Save images (DSIM)	DDDSIMR1	disk	Required for DSIM... functions
ADAFRM parameters	DDKARTE	disk/ terminal/ reader
ADARUN parameters	DDCARD	disk/ terminal/ reader	Adabas Operations
ADAFRM messages	DDDRUCK	disk/ terminal/ printer	Adabas Messages and Codes
ADARUN messages	DDPRINT	disk/ terminal/ printer	Adabas Messages and Codes

Format DSIM Data Set (ADAFRM DSIMFRM)


DATADEF DDDSIMR1,DSN=ADABASVv.DSIM,VOL=DSIM

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

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

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

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

ADARUN

Contents of RUNFRM CONTROL A1


ADARUN  PROG=ADAFRM, ...

Contents of ADAFRM CONTROL A1


ADAFRM  DSIMFRM SIZE=20,...

Reset DSIM Data Set (ADAFRM DSIMRESET)


DATADEF DDDSIMR1,DSN=ADABASVv.DSIM,VOL=DSIM

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

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

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

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

ADARUN

Contents of RUNFRM CONTROL A1


ADARUN  PROG=ADAFRM, ...

Contents of ADAFRM CONTROL A1


ADAFRM  DSIMRESET FROMRABN=1,SIZE=1B

VSE/ESA and z/VSE

Data Set	Symbolic	Storage	Logical Unit	More Information
Delta Save images (DSIM)	DSIMR1	disk		Required for DSIM... functions
ADAFRM parameters		reader	SYSIPT
ADARUN parameters	CARD CARD	reader tape disk	SYSRDR SYS000 *	Adabas Operations
ADAFRM messages		printer	SYS009	Adabas Messages and Codes
ADARUN messages		printer	SYSLST	Adabas Messages and Codes

* Any programmer logical unit can be used.

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

Format DSIM Data Set (ADAFRM DSIMFRM)


// EXEC PROC=ADAVvFIL

// EXEC PROC=ADAVvLIB

// EXEC ADARUN,SIZE=ADARUN

ADARUN PROG=ADAFRM,...

/*

ADAFRM DSIMFRM SIZE=...

/*

Reset DSIM Data Set (ADAFRM DSIMRESET)


// EXEC PROC=ADAVvFIL

// EXEC PROC=ADAVvLIB

// EXEC ADARUN,SIZE=ADARUN

ADARUN PROG=ADAFRM,...

/*

ADAFRM DSIMRESET FROMRABN=1,SIZE=1B

/*