For SYSTEM 2000 Version: 12.0
Problem Status: ZC (Zap Coded) -- Fix has received limited testing
Description of Problem:
PSUEDO-CONVERSATIONAL CICS PROGRAMS GET SPORADIC ASRA ABENDS CAUSED BY 0C4 PROGRAM INTERRUPTS.
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 4787 MVS
./ CHANGE NAME=PLXFRMT
* *25* 05JUL94 GOH B4787 SET CICS TASK NUMBER EVERY TIME THROUGH *25* 00010910
MVC URBTASK,EIBTASKN SET TASK NUMBER *25* 00286010
./ CHANGE NAME=PLXSTOP
* *05* 05JUL94 GOH B4787 BYPASS TERMINAL IF CURRENTLY PROCESSING *05* 00018950
STOPTRN1 DS CL4 *05* 00026010
* IF TERMINAL IS CURRENTLY PROCESSING A TRANSACTION, LET THE OTHER *05* 00117040
* CODE IN THE INTERFACE HANDLE PROBLEMS *05* 00117050
EXEC CICS INQUIRE TERMINAL(URBUSER) TRANSACTION(STOPTRN1) *00118000
NEXTTRANSID(STOPTRN) 00118010
CLC STOPTRN1,=CL4' ' BLANK TRAN ID ? *05* 00118020
BNE STOP0074 NO. DON'T PROCESS *05* 00118030
End of Zap Deck