For SYSTEM 2000 Version: 12.0
Problem Status: ZC (Zap Coded) -- Fix has received limited testing
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.0 BUG 4870 MVS
*
* THIS IS A 12.0 FIX TO S2KTRMZX (CICS 2.1.2 AND BELOW) THAT CHECKS THE
* PROPER FLAGS INSIDE THE DFHZNEP.
*
*
* THIS IS A 12.0 FIX TO S2KTRM32 (CICS 3.2 AND ABOVE) THAT CHECKS THE
* PROPER FLAGS INSIDE THE DFHZNEP.
*
./ CHANGE NAME=S2KTRMZX
* *07* 30MAY97 GOH B4870 CHECK FLAGS PROPERLY FOR CLSDST ACTION 00014960
TM TWAOPT2,TWAOAT ABENDING TASK ? *07* 00019000
BZ ZNE000A NO. CHECK CLSDST FLAGS *07* 00020000
L R15,TWATCTA YES. CHECK ACTIVE TASK *07* 00021000
L R15,TCTTECA-DFHTCTTE(R15) ADDR CURRENT TCA *07* 00021020
LTR R15,R15 TASK THERE ? *07* 00021030
BNZ RETURN1 YES. LET DFHPEP CLEAN IT UP *07* 00021040
ZNE000A EQU * *07* 00021050
CLI TWAEC,X'49' SESSION TERMINATED ? *07* 00021060
BE ZNE0001 YES. HANDLE USER *07* 00021070
TM TWAOPT3,TWAONCN CLSDST ? *07* 00021080
BO ZNE0001 YES. HANDLE USER *07* 00021090
TM TWAOPT3,TWAOSCN CLSDST ? *07* 00021100
BO ZNE0001 YES. HANDLE USER *07* 00021110
TM TWAOPT3,TWAOCN CLSDST ? *07* 00022000
BZ RETURN1 NO. FORGET IT *07* 00022002
ZNE0001 EQU * *07* 00022004
./ CHANGE NAME=S2KTRM32
* *04* 30MAY97 GOH B4870 CHECK FLAGS PROPERLY FOR CLSDST ACTION 00014960
*04* LINE DELETED *04* 00016000
*04* LINE DELETED *04* 00017000
*04* LINE DELETED *04* 00018000
*04* LINE DELETED *04* 00019000
BZ ZNE000A NO. CHECK CLSDST FLAGS *04* 00019004
,ZNE000A) *04* 00019040
B ZNE000A NO. PROCESS USER *04* 00019100
ZNE000A EQU * *04* 00019111
CLI TWAEC,X'49' SESSION TERMINATED ? *04* 00019112
BE ZNE0001 YES. HANDLE USER *04* 00019113
TM TWAOPT3,TWAONCN CLSDST ? *04* 00019114
BO ZNE0001 YES. HANDLE USER *04* 00019115
TM TWAOPT3,TWAOSCN CLSDST ? *04* 00019116
BO ZNE0001 YES. HANDLE USER *04* 00019117
TM TWAOPT3,TWAOCN CLSDST ? *04* 00019118
BZ RETURN NO. FORGET IT *04* 00019119
End of Zap Deck