IBM SC34-7012-01 manual End Prog

MVC	SUCMSG1(8),SUCTXT1
MVC	SUCMSG2(1),SUCTXT2
UNPK	KEYWORK(9),BWOTIME(5)	Make date printable
TR	KEYWORK(8),HEXTAB-C’0’
MVC	DATEVAL(8),KEYWORK
UNPK	KEYWORK(9),BWOTIME+4(5) Make time printable
TR	KEYWORK(8),HEXTAB-C’0’
MVC	TIMEVAL(8),KEYWORK
CLI	TRANFUNC,C’S’	If READ then print BWO flags
BNE	PRGREADO

*

*Got all the info we need, so put it out and exit

EXEC CICS SEND TEXT FROM(SUCMSG) LENGTH(55) ERASE WAIT

BPRGEXIT

*

*It’s a read so we also need the BWO flags for output

PRGREADO DS 0H

MVC	READMSG(11),READTXT	Set up message text
MVC	BWOVAL1,BWOF1+3
OI	BWOVAL1,X’F0’	Set BWO indicator 1
MVC	BWOVAL2,BWOF2+3
OI	BWOVAL2,X’F0’	Set BWO indicator 2
MVC	BWOVAL3,BWOF3+3
OI	BWOVAL3,X’F0’	Set BWO indicator 3

*

*Now send the message

EXEC CICS SEND TEXT FROM(SUCMSG) LENGTH(66) ERASE WAIT

PRGEXIT DS 0H

EXEC CICS RETURN

PRGABORT DS 0D

EXEC CICS SEND TEXT FROM(FAILMSG) LENGTH(19) ERASE WAIT

EXEC CICS RETURN

*Constant declarations

BLANKS	DC	48C’ ’
INMAXLEN	DC	H’53’
ZEROES	DC	3F’0’
PRELENS	DC	F’9’
PRELENR	DC	F’5’
SUCTXT	DC	C’IGWABWO call completed Date = ’
SUCTXT1	DC	C’ Time = ’
SUCTXT2	DC	C’.’
READTXT	DC	C’ BWO =	.’
FAILMSG	DC	C’IGWABWO call failed’
KEYWORK	DC	CL9’ ’
HEXTAB	DC	C’0123456789ABCDEF’
*

*Constant for IGWABWO SELECT parameter

SEL	DC F’3’	Interested in BWO flags & recov point
*	F’1’	Interested in BWO flags
*	F’2’	Interested in BWO recovery point
*	F’3’	Interested in BWO flags & recov point
	END PROG

Chapter 18. Backup-while-open (BWO) 221