For SYSTEM 2000 Version: 12.0
Problem Status: ZD -- ZAP DISTRIBUTED
Description of Problem:
THE PLXS TRANSACTION GETS AN 'AEIK' ABEND WHEN PROCESSING A PLEX TASK THAT IS NOT TERMINAL ORIENTED.
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 4718 MVS
./ CHANGE NAME=PLXSTOP
* *01* 20AUG93 GOH B4718 TRAP TERMINAL ID ERRORS TO PREVENT AEIK *01* 00018990
* AND FIX ADDRESSING ERRORS *01* 00018992
STOPTABL DS F *01* 00025010
ST R5,STOPTABL SAVE ADDRESS FOR LATER *01* 00044010
* CHANGE THE LOGIC HERE FROM RESP TO HANDLE CONDITION *01* 00081010
* *01* 00081020
EXEC CICS HANDLE CONDITION TASKIDERR(STOP0080) 00082000
EXEC CICS INQUIRE TASK(URBTASK) TRANSACTION(STOPTRN) 00083000
* DELETED BY FIX *01* *01* 00084000
L R6,STOPTABL ADDRESS TRAN TABLE *01* 00095010
LTR R6,R6 ADDRESS TRANSACTION TABLE *01* 00096000
* IGNORE TERMINAL ERROR AND PROCESS STOP *01* 00117010
* *01* 00117020
EXEC CICS HANDLE CONDITION TERMIDERR(STOP0095) 00117030
L R1,S2KPLST ADDRESS PARMS *01* 00244000
End of Zap Deck