For SYSTEM 2000 Version: 12.1
Problem Status: ZD -- R12.1 FFD3
Description of Problem:
PLEX PSUEDO-CONVERSATIONAL USERS NOT GETTING CLEANED UP THROUGH DFHZNEP WHEN TERMINAL IS RELEASED.
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 4870 MVS
*
* THIS IS A 12.1 FIX TO S2KTRMZX (CICS 2.1.2 AND BELOW) THAT CHECKS THE
* PROPER FLAGS INSIDE THE DFHZNEP.
*
*
* THIS IS A 12.1 FIX TO S2KTRM32 (CICS 3.2 AND ABOVE) THAT CHECKS THE
* PROPER FLAGS INSIDE THE DFHZNEP.
*
./ CHANGE NAME=S2KTRMZX
* *07* 03/20/97 GOH B4870 CHECK FLAGS PROPERLY FOR CLSDST ACTION 00014980
TM TWAOPT2,TWAOAT ABENDING TASK ? *07* 00021000
BZ ZNE000A NO. CHECK CLSDST FLAGS *07* 00022000
L R15,TWATCTA YES. CHECK ACTIVE TASK *07* 00023000
L R15,TCTTECA-DFHTCTTE(R15) ADDR CURRENT TCA *07* 00024000
LTR R15,R15 TASK THERE ? *07* 00024010
BNZ RETURN1 YES. LET DFHPEP CLEAN IT UP *07* 00024020
ZNE000A EQU * *07* 00025000
CLI TWAEC,X'49' SESSION TERMINATED ? *07* 00025010
BE ZNE0001 YES. HANDLE USER *07* 00025020
TM TWAOPT3,TWAONCN CLSDST ? *07* 00026000
BO ZNE0001 YES. HANDLE USER *07* 00027000
TM TWAOPT3,TWAOSCN CLSDST ? *07* 00028000
BO ZNE0001 YES. HANDLE USER *07* 00028010
TM TWAOPT3,TWAOCN CLSDST ? *07* 00028020
BZ RETURN1 NO. FORGET IT *07* 00028030
ZNE0001 EQU * *07* 00028040
./ CHANGE NAME=S2KTRM32
* *04* 03/20/97 GOH B4870 CHECK FLAGS PROPERLY FOR CLSDST ACTION 00014980
TM TWAOPT2,TWAOAT ABENDING TASK ? *04* 00018000
BZ ZNE000A NO. CHECK CLSDST FLAGS *04* 00019000
*04* LINE DELETED *04* 00020000
*04* LINE DELETED *04* 00021000
*04* LINE DELETED *04* 00021010
*04* LINE DELETED *04* 00021020
,ZNE000A) *04* 00025000
B ZNE000A NO. PROCESS USER *04* 00031000
ZNE000A EQU * *04* 00032010
CLI TWAEC,X'49' SESSION TERMINATED ? *04* 00032020
BE ZNE0001 YES. HANDLE USER *04* 00032030
TM TWAOPT3,TWAONCN CLSDST ? *04* 00032040
BO ZNE0001 YES. HANDLE USER *04* 00032050
TM TWAOPT3,TWAOSCN CLSDST ? *04* 00032060
BO ZNE0001 YES. HANDLE USER *04* 00032070
TM TWAOPT3,TWAOCN CLSDST ? *04* 00032080
BZ RETURN NO. FORGET IT *04* 00032090
End of Zap Deck