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

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
*
B PRGEXIT
*
* 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