For SYSTEM 2000 Version: 12.1
Problem Status: ZD -- R12.1 FFD3
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.1 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* 11APR97 GOH B4875 STOP 301 AND 202 ABENDS IN 12.1 ERROR 00026820
* HANDLERS *23* 00026830
TM URBFLAG2,X'40' BEING HANDLED ? *23* 00217052
BO TERM0299 YES. FORGET IT *23* 00217054
OI URBFLAG2,X'40' TURN ON HANDLED FLAG *23* 00217270
XC URBFLAG2,URBFLAG2 CLEAR FLAG *23* 00295010
TM URBFLAG2,X'40' BEING HANDLED ? *23* 00419002
BO TERM8035 YES. FORGET IT *23* 00419004
End of Zap Deck