IBM SC34-7012-01 manual Datetime, Dttenths, Recovptp, Datepack, Timepack, Dtcentry

	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