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