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

Page 231
Image 231
IBM SC34-7012-01 manual DS 8C