For SYSTEM 2000 Version: 12.0
Problem Status: ZC (Zap Coded) -- Fix has received limited testing
Description of Problem:
USER CICS REGIONS ABENDING WITH SYSTEM 301 FOLLOWED BY SYSTEM 202 ABENDS.
Note: Please send email to s2k@sas.com telling us which problem fixes you have downloaded so we can keep track of the fixes at your site in case questions or problems arise.
Top of Zap Deck:
* IBM R12.0 BUG 4875 MVS
*
* THIS BUG FIX WILL STOP TWO ERROR HANDLER PROGRAMS FROM TRYING TO
* CLEAN UP A SINGLE USER URB. PRE-REQUIREMENTS ARE BUG FIX 4844 AND
* BUG FIX 4871.
*
./ CHANGE NAME=SCFTERM
* *23* 30MAY97 GOH B4875 STOP 301 AND 202 ABENDS IN 12.1 ERROR 00026820
* HANDLERS *23* 00026830
TM URBFLAG2,X'40' BEING HANDLED ? *23* 00186052
BO TERM0299 YES. FORGET IT *23* 00186054
OI URBFLAG2,X'40' TURN ON HANDLED FLAG *23* 00186270
XC URBFLAG2,URBFLAG2 CLEAR FLAG *23* 00263010
TM URBFLAG2,X'40' BEING HANDLED ? *23* 00383002
BO TERM8035 YES. FORGET IT *23* 00383004
End of Zap Deck