For SYSTEM 2000 Version: 12.0
Problem Status: ZC (Zap Coded) -- Fix has received limited testing
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.0 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
* *16* 22MAR95 GOH BUG 4803 HONOR WAIT FLAG TO PREVENT 301 ABENDS 00026920
TM URBFLAG1,URBWAIT URB IN WAIT STATE ? *16* 00186010
BO TERM0295 YES. LEAVE IT ALONE *16* 00186020
End of Zap Deck