IBM SC34-7012-01 User 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