IBM SC34-7012-01 - 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
218 CICS TS for z/OS 4.1: Recovery and Restart Guide