IBM SC34-7012-01 manual An assembler program that calls DFSMS callable services

An assembler program that calls DFSMS callable services

*ASM XOPTS(CICS,NOEPILOG,SP)

*

*A program that can be run as a CICS transaction to Read and Set

*the BWO Indicators and BWO Recovery Point via DFSMS Callable

*Services (IGWABWO).

*

*Invoke the program via a CICS transaction as follows:

*Rxxx ’data_set_name’

*Sxxx 100 ’data_set_name’

*

*Where:

*Rxxx and Sxxx are the names of the transactions that will invoke

*this program. Specify Rxxx to read and Sxxx to set the BWO

*attributes.

*’data_set_name’ is the fully-qualified name of your data set

*100 is the value the BWO indicators will be set to.

*The BWO Recovery Point time will be set to the current date and

*time returned from the CICS ASKTIME function.

*
DFHEISTG	DSECT
INDATA	DS 0CL53	Input data stream
*

*First character of tran id indicates transaction function

TRANFUNC DS		C	First char of tran id - S=SET R=READ
	DS	4C	Remainder of tran id and space
BWOC1	DS	C	First BWO indicator
BWOC2	DS	C	Second BWO indicator
BWOC3	DS	C	Third BWO indicator
	DS	C	Space
DSNAMES	DS	44C	Target data set name 1-44 chars
*

*2 possible formats of input line, so overlay the definitions

ORG INDATA

DS	5C	Tran id and space
DSNAMER DS	44C	Target data set name 1-44 chars
DS	4C	Filler
*
INLENGTH DS	H	Length of input data stream
*

*Parmlist for IGWABWO call

PARMLST DS 10A

RETCODE	DS	F	Return	code
REASON	DS	F	Reason
PROBDET	DS	D	Problem determination code
FUNC	DS	F	Function
READ	EQU	0	Read
SET	EQU	1	Set
DSNLEN	DS	F	Data set name length
DSN	DS	44C	Data set name
BWOFLAGS	DS	03F	BWO indicator flags
	ORG	BWOFLAGS
BWOF1	DS	F	BWO	indicator 1
BWOF2	DS	F	BWO	indicator 2
BWOF3	DS	F	BWO	indicator 3
BWOTIME	DS	D	BWO	recovery point time
RESERVED	DS	2D	Reserved
*

*Success message

SUCMSG DS 0CL66 Define storage for success message

218CICS TS for z/OS 4.1: Recovery and Restart Guide