IBM SC34-7012-01 Prgcont, CICS TS for z/OS 4.1 Recovery and Restart Guide, BWOFLAGS12,ZEROES

	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

BPRGCONT

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

220CICS TS for z/OS 4.1: Recovery and Restart Guide