For SYSTEM 2000 Version: 12.1
Problem Status: ZD -- ZAP DISTRIBUTED IN FIELD FIX 12.1-01
Description of Problem:
CICS ABENDS WITH A SYSTEM 301 ABEND.
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 4803 MVS
*
* THIS FIX PREVENTS A 301 ABEND OF CICS
*
* THE FIX IS TO RECOGNIZE THAT THE URB ECB IS CURRENTLY
* BEING WAITED ON AND BYPASS IMMEDIATE PROCESSING OF THE
* URB.
*
./ CHANGE NAME=SCFTERM
* *19* 22MAR95 GOH BUG 4803 HONOR WAIT FLAG TO PREVENT 301 ABENDS 00026900
TM URBFLAG1,URBWAIT URB IN WAIT STATE ? *19* 00217010
BO TERM0295 YES. LEAVE IT ALONE *19* 00217020
End of Zap Deck