IBM SC34-7012-01 User Manual
Page 232
MVC
BWOFLAGS(12),ZEROES
LA
R4,1(0)
CLI
BWOC1,C’0’
BE
PRGBIT2
ST
R4,BWOF1
Set BWO indicator 1 if required
PRGBIT2
DS
0H
CLI
BWOC2,C’0’
BE
PRGBIT3
ST
R4,BWOF2
Set BWO indicator 2 if required
PRGBIT3
DS
0H
CLI
BWOC3,C’0’
BE
PRGCONT
ST
R4,BWOF3
Set BWO indicator 3 if required
B
PRGCONT
PRGREAD
DS
0H
CLI
TRANFUNC,C’R’
BNE
PRGABORT
If tran id not R or S then abort
*
* Set up the parameters for a read call
*
SR
R4,R4
LA
R4,READ(0)
ST
R4,FUNC
Set function
MVC
DSN(44),DSNAMER
Set data set name
LH
R4,INLENGTH
S
R4,PRELENR
Subtract tran id + space
ST
R4,DSNLEN
Set data set name length
PRGCONT
DS
0H
*
* OK, our parameters are set up, so create the address list, and make
* the call
*
LOAD EP=IGWABWO,ERRET=PRGABORT
LR
R15,R0
LA
R1,PARMLST
R1 -> parmlist
LA
R4,RETCODE
ST
R4,0(R1)
Pass addr of return code
LA
R4,REASON
ST
R4,4(R1)
Pass addr of reason code
LA
R4,PROBDET
ST
R4,8(R1)
Pass addr of problem determination
LA
R4,FUNC
ST
R4,12(R1)
Pass addr of function required
LA
R4,DSNLEN
ST
R4,16(R1)
Pass addr of data set name length
LA
R4,DSN
ST
R4,20(R1)
Pass addr of data set name
LA
R4,SEL
ST
R4,24(R1)
Pass addr of selection mask
LA
R4,BWOFLAGS
ST
R4,28(R1)
Pass addr of BWO flags
LA
R4,BWOTIME
ST
R4,32(R1)
Pass addr of BWO recovery point
LA
R4,RESERVED
ST
R4,36(R1)
Pass addr of reserved field
BALR 14,15
Call IGWABWO
*
* Back from the call, check return code
*
SR
R4,R4
CL
R4,RETCODE
Check return code
BNE
PRGABORT
*
* All OK, set up minimum success message, decide if we need more
*
MVC
SUCMSG(38),SUCTXT
Set up message text
220
CICS TS for z/OS 4.1: Recovery and Restart Guide