For SYSTEM 2000 Version: 12.0
Problem Status: ZC (Zap Coded) -- Fix has received limited testing
Description of Problem:
THE USER USES PLXSTOP DURING CICS SHUTDOWN TO CLEAN UP PLEX USERS IN THE INTERFACE. SCF USERS THAT ARE IN STACE REMAIN ACTIVE IN MULTI-USER EVEN AFTER
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 4881 MVS
*
* THIS BUG FIX WILL ALLOW THE PLXSTOP ROUTINE TO INCLUDE SCF USERS
* IN IT'S PROCESSING DURING CICS SHUTDOWN TIME.
*
./ CHANGE NAME=PLXSTOP
* *07* 30MAY97 GOH B4881 EXPAND TO INCLUDE SCF USERS IN SHUTDOWN *07* 00018930
BE STOP8000 YES. PROCESS ALL USERS *07* 00066030
*******************************************************************07* 00225010
* *07* 00225020
* TERMINATE ALL USERS IN RESPONSE TO A SHUTDOWN TYPE REQUEST. *07* 00225030
* *07* 00225032
* IN THIS ROUTINE, R15 IS USED AS A FLAG TO INDICATE WHETHER *07* 00225034
* THERE ARE ANY SCF USERS THAT NEED TO BE CLEANED UP. *07* 00225036
* *07* 00225038
********************************************************************** 00225040
STOP8000 EQU * *07* 00225050
SR R15,R15 KEEP A FLAG *07* 00225055
L R8,S2KSCFU ADDRESS SCF URBS *07* 00225060
USING DURB,R8 00225070
STOP8010 EQU * *07* 00225080
OC URBUSER,URBUSER IN USE ? *07* 00225090
BZ STOP8020 NO. FORGET IT *07* 00225100
LA R15,1 SET FLAG ON *07* 00225105
OI URBFLAG1,URBERR YES. TURN ON ERROR FLAG *07* 00225110
STOP8020 EQU * *07* 00225120
TM URBFLAG1,URBLAST LAST URB ? *07* 00225130
BO STOP8050 YES. END OF PROCESS *07* 00225140
AH R8,URBLEN NO. NEXT URB *07* 00225150
CLI URBTCHAR,C'N' STILL SCF URB ? *07* 00225160
BNE STOP8050 NO. END OF PROCESS *07* 00225170
B STOP8010 YES. DO THEM ALL *07* 00225180
SPACE 2 00225190
STOP8050 EQU * *07* 00225200
L R5,S2KSTAC ADDRESS STACE TABLE *07* 00225210
USING DSTACE,R5 00225220
STOP8060 EQU * *07* 00225230
CLI STACENAM,X'FF' LAST ENTRY ? *07* 00225240
BE STOP8100 YES. CALL SCFTERM *07* 00225250
OC STACENAM,STACENAM ENTRY IN USE ? *07* 00225260
BZ STOP8070 NO. NEXT ONE *07* 00225270
LA R15,1 SET FLAG ON *07* 00225275
OI STACEFLG,#STACEAB YES. SET ABEND FLAG *07* 00225280
STOP8070 EQU * *07* 00225290
LA R5,STACEL$(R5) NEXT ENTRY *07* 00225300
B STOP8060 CONTINUE *07* 00225310
STOP8100 EQU * *07* 00225320
LTR R15,R15 FLAG SET ? *07* 00225325
BZ STOP8150 NO. NO SCFTERM NEEDED *07* 00225327
EXEC CICS LINK PROGRAM('SCFTERM') 00225330
STOP8150 EQU * *07* 00225335
L R8,S2KPLXU ADDRESS PLEX URBS *07* 00225340
B STOP0072 DO PLEX URBS NOW *07* 00225350
EJECT 00225360
End of Zap Deck