For SYSTEM 2000 Version: 12.0
Problem Status: ZC (Zap Coded) -- Fix has received limited testing
Description of Problem:
MULTIPLE TERMINALS TIMING OUT CAUSE LACK OF SPACE PROBLEM IN TERMINAL TABLE IN S2KCUSE CAUSING LOOP CONDITION IN CICS AND EVENTUAL CICS CRASH. BUG FIX
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 4794 OS
*
* THIS BUG FIX DEPENDS ON FFD 4 DISTRIBUTION AS BASE SOURCE
*
* THIS BUG FIX REQUIRES THAT BUG FIX 4791 BE APPLIED FIRST
*
./ CHANGE NAME=SCFTERM
* *15* 29AUG94 GOH B4794 CHANGE TO CHECK ZNEP ERROR SETTINGS *15* 00026930
*15* 00366020
TERM8030 EQU * *15* 00366030
CLI URBTCHAR,C'N' STILL SCF ? *15* 00366040
BNE TERM8050 NO. FINISH UP *15* 00366050
TM URBFLAG1,URBERR IN ERROR TASK ? *15* 00366060
BO TERM8040 YES. PROCESS IT *15* 00366070
TERM8035 EQU * *15* 00366080
AH R8,URBLEN YES. NEXT URB *15* 00366090
B TERM8030 CONTINUE PROCESS *15* 00366100
TERM8040 EQU * *15* 00366110
OI URBFLAG1,X'FF'-URBERR TURN IT OFF *15* 00366120
BAL R14,TERM0200 PROCESS THE EXIT *15* 00366130
B TERM8035 CONTINUE *15* 00366140
TERM8050 EQU * *15* 00367000
* *15* 00368000
* SCAN THE STACE TABLE FOR USERS IN ERROR *15* 00369000
* *15* 00370000
L R1,SCFCUSE CUSE ADDRESS *15* 00371000
L R7,S2KSTAC-DS2KCUSE(R1) STACE ADDRESS *15* 00372000
USING DSTACE,R7 00373000
L R8,S2KABNU-DS2KCUSE(R1) ADDRESS ABEND URB *15* 00374000
ST R8,SCFCURB *15* 00375000
TERM8060 EQU * *15* 00376000
CLI STACENAM,X'FF' END OF STACE TABLE ? *15* 00377000
BE TERM8800 YES. NOT OUR JOB *15* 00378000
TM STACEFLG,#STACEAB IN ERROR ? *15* 00379000
BO TERM8080 YES. PROCESS IT *15* 00380000
LA R7,STACEL$(R7) NO. NEXT ENTRY *15* 00381000
B TERM8060 CHECK IT *15* 00382000
TERM8080 EQU * *15* 00383000
LA R5,ABENLURB SET UP FOR ABORT *15* 00384000
MVC URBUSER,STACENAM *15* 00385000
MVI STATUS,#URBSNOR SET UP FOR EXIT. *15* 00385010
MVI STACEFLG,X'00' FREE STACE *15* 00386000
XC STACENAM,STACENAM *15* 00387000
BAL R14,TERM0200 HANDLE URB *15* 00388000
LA R7,STACEL$(R7) NEXT ENTRY *15* 00389000
B TERM8060 CHECK NEXT ENTRY *15* 00390000
* B4794 *15* 00391000
* *15* 00392000
* *15* 00393000
* *15* 00394000
* *15* 00395000
* *15* 00396000
* *15* 00397000
* *15* 00398000
* *15* 00399000
* *15* 00400000
* *15* 00401000
* *15* 00402000
* *15* 00403000
* *15* 00404000
* *15* 00405000
* *15* 00406000
* *15* 00407000
* *15* 00408000
* *15* 00409000
* *15* 00410000
* *15* 00411000
* *15* 00411010
*15* 00423010
./ CHANGE NAME=PLXTERM
* *21* 29AUG94 B4794 GOH ALLOW FOR ZNEP CHANGES *21* 00018940
*21* LINE DELETED 00071040
B TERM0070 PROCESS LIKE STOP S2K *21* 00071050
./ CHANGE NAME=S2KTRMZX
* *05* 28JUN94 B4794 GOH ALLOW FOR CHECKING FOR USER IN INTERFACE *05* 00014980
L R1,S2KSCFU-DS2KCUSE(R1) ADDR SCF URBS *05* 00028000
USING DURB,R1 00029000
ZNEPURBL EQU * *05* 00030000
CLC TWANID,URBUSER THIS URB ? *05* 00031000
BE ZNEPURBS YES. SET ERROR TASK *05* 00032000
TM URBFLAG1,URBLAST LAST URB ? *05* 00033000
BO ZNEPSTAC YES. CHECK STACE TABLE *05* 00034000
AH R1,URBLEN NO. NEXT URB *05* 00035000
B ZNEPURBL CHECK IT *05* 00036000
ZNEPURBS EQU * *05* 00037000
OI URBFLAG1,URBERR SET URB IN ERROR TASK *05* 00037010
B ZNEPSCFZ START THE SCFZ TRAN *05* 00037020
ZNEPSTAC EQU * *05* 00037030
L R1,TCAPCLA ADDRESS LOADED PROGRAM *05* 00037040
L R1,S2KSTAC-DS2KCUSE(R1) ADDRESS STACE TABLE *05* 00037050
USING DSTACE,R1 00037060
ZNEPSTAL EQU * *05* 00037070
CLC TWANID,STACENAM THIS ENTRY ? *05* 00037080
BE ZNEPSTAS YES. SET IN ERROR *05* 00037090
CLI STACENAM,X'FF' END OF LIST ? *05* 00037100
BE ZNEMACL YES. PROCESS MACRO LEVEL *05* 00037110
LA R1,STACEL$(R1) NO. NEXT ENTRY *05* 00037120
B ZNEPSTAL CONTINUE *05* 00037130
ZNEPSTAS EQU * *05* 00037140
OI STACEFLG,#STACEAB SET ERROR TASK IN CONTROL *05* 00037150
B ZNEPSCFZ START THE SCFZ TRAN *05* 00037160
DROP R1 00037170
ZNEPSCFZ EQU * *05* 00037180
B RETURN1 RETURN TO CALLER *05* 00038010
* INSERT THE FOLLOWING LINES AFTER THE LTORG LINE *05* 00046000
DURBMU RGEQU=NO *05* 00047010
./ CHANGE NAME=S2KTRM32
* *02* 28JUN94 B4794 GOH SCAN URBS FOR USER IN ZNEP *02* 00014980
L R1,S2KSCFU-DS2KCUSE(R1) ADDR SCF URBS *02* 00029000
USING DURB,R1 00029010
ZNEPURBL EQU * *02* 00030000
CLC TWANID,URBUSER THIS URB ? *02* 00031000
BE ZNEPURBS YES. SET ERROR TASK *02* 00032000
TM URBFLAG1,URBLAST LAST URB ? *02* 00033000
BO ZNEPSTAC YES. CHECK STACE TABLE *02* 00034000
AH R1,URBLEN NO. NEXT URB *02* 00035000
B ZNEPURBL CHECK IT *02* 00036000
ZNEPURBS EQU * *02* 00037000
OI URBFLAG1,URBERR SET URB IN ERROR TASK *02* 00038000
B ZNEPSCFZ GET OUT OF ZNEP *02* 00039000
ZNEPSTAC EQU * *02* 00040000
L R1,DFHEITP1 ADDRESS LOADED PROGRAM *02* 00041000
L R1,S2KSTAC-DS2KCUSE(R1) ADDRESS STACE TABLE *02* 00042000
USING DSTACE,R1 00043000
ZNEPSTAL EQU * *02* 00044000
CLC TWANID,STACENAM THIS ENTRY ? *02* 00045000
BE ZNEPSTAS YES. SET IN ERROR *02* 00045010
CLI STACENAM,X'FF' END OF LIST ? *02* 00045020
BE RETURN YES. FINISH UP *02* 00045030
LA R1,STACEL$(R1) NO. NEXT ENTRY *02* 00045040
B ZNEPSTAL CONTINUE *02* 00045050
ZNEPSTAS EQU * *02* 00045060
OI STACEFLG,#STACEAB SET ERROR TASK IN CONTROL *02* 00045070
ZNEPSCFZ EQU * *02* 00045080
* INSERT THE FOLLOWING LINES AFTER THE LTORG LINE *02* 00050000
DURBMU *02* 00051010
./ CHANGE NAME=DURBMU
DURBMU &HOST=,&RGEQU=YES *10* 00002000
.* DURBMU- 10 28AUG94 B4794 ALLOW FOR NOT DOING REGISTER EQUATES *10* 00002010
AIF ('&RGEQU' NE 'YES').NEQU *10* 00264010
.NEQU ANOP *10* 00265010
End of Zap Deck