IBM SC34-7012-01 - Manual (Page 231)

DS 30C
DATEVAL DS 8C Date value from BWO recovery point
SUCMSG1 DS 8C Message text
TIMEVAL DS 8C Time value from BWO recovery point
SUCMSG2 DS C Message text
READMSG DS 0CL11 If function = READ put out BWO flags
DS 7C Message text
BWOVAL1 DS C BWO indicator 1
BWOVAL2 DS C BWO indicator 2
BWOVAL3 DS C BWO indicator 3
DS C Message text
*
DATETIME DS D
Current date and time value
*
RECOVPT
DS 0D BWO recovery point
DTZERO DS B Date dword
DTCENTRY DS B
DTDATE
DS 5B
DTSIGN1 DS B
*
DTTIME
DS 6B Time dword
DTTENTHS DS B
DTSIGN2
DS B
*
RECOVPTP DS 0D
Packed recovery point
DATEPACK DS F Packed version of date
TIMEPACK DS F Packed version of time
*
DFHREGS
PROG CSECT
PROG AMODE 31
*
* Initialise INTO field for RECEIVE
*
MVC DSNAMER(48),BLANKS
MVC INLENGTH(2),INMAXLEN
*
EXEC CICS RECEIVE INTO(INDATA) LENGTH(INLENGTH)
*
CLI TRANFUNC,C’S’ Set or Read call?
BNE PRGREAD
*
* Set up the parameters for a SET call
*
SR R4,R4
LA R4,SET(0)
ST R4,FUNC Set function
MVC DSN(44),DSNAMES Set data set name
LH R4,INLENGTH
S R4,PRELENS Subtract tran id + space + BWO ind
ST R4,DSNLEN Set data set name length
*
EXEC CICS ASKTIME ABSTIME(DATETIME)
EXEC CICS FORMATTIME ABSTIME(DATETIME) YYDDD(DTDATE)
*
TIME(DTTIME)
*
PACK KEYWORK(5),RECOVPT(9) Packed date field
MVC DATEPACK(4),KEYWORK
PACK KEYWORK(5),RECOVPT+8(9) Packed time field
MVC
TIMEPACK(4),KEYWORK
XC RECOVPTP(1),RECOVPTP Set century 0=1900, 1=2000
OI RECOVPTP+3,X’0F’ Set +ve sign for date
OI RECOVPTP+7,X’0F’ Set +ve sign for time
MVC BWOTIME(8),RECOVPTP Set BWO recovery point time
*
EXEC CICS SYNCPOINT
*
Chapter 18. Backup-while-open (BWO) 219