For SYSTEM 2000 Version: 12.1
Problem Status: ZD -- R12.1 FFD3
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.1 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
* *08* 20MAY97 GOH B4881 EXPAND TO INCLUDE SCF USERS IN SHUTDOWN *08* 00018990
BE STOP8000 YES. PROCESS ALL USERS *08* 00080010
*******************************************************************08* 00269010
* *08* 00269020
* TERMINATE ALL USERS IN RESPONSE TO A SHUTDOWN TYPE REQUEST. *08* 00269030
* *08* 00269040
* IN THIS ROUTINE, R15 IS USED AS A FLAG TO INDICATE WHETHER *08* 00269050
* THERE ARE ANY SCF USERS THAT NEED TO BE CLEANED UP. *08* 00269060
* *08* 00269070
********************************************************************** 00269080
STOP8000 EQU * *08* 00269090
SR R15,R15 KEEP A FLAG *08* 00269100
L R8,S2KSCFU ADDRESS SCF URBS *08* 00269110
USING DURB,R8 00269120
STOP8010 EQU * *08* 00269130
OC URBUSER,URBUSER IN USE ? *08* 00269140
BZ STOP8020 NO. FORGET IT *08* 00269150
LA R15,1 SET FLAG ON *08* 00269160
OI URBFLAG1,URBERR YES. TURN ON ERROR FLAG *08* 00269170
STOP8020 EQU * *08* 00269180
TM URBFLAG1,URBLAST LAST URB ? *08* 00269190
BO STOP8050 YES. END OF PROCESS *08* 00269200
AH R8,URBLEN NO. NEXT URB *08* 00269210
CLI URBTCHAR,C'N' STILL SCF URB ? *08* 00269220
BNE STOP8050 NO. END OF PROCESS *08* 00269230
B STOP8010 YES. DO THEM ALL *08* 00269240
SPACE 2 00269250
STOP8050 EQU * *08* 00269260
L R5,S2KSTAC ADDRESS STACE TABLE *08* 00269270
USING DSTACE,R5 00269280
STOP8060 EQU * *08* 00269290
CLI STACENAM,X'FF' LAST ENTRY ? *08* 00269300
BE STOP8100 YES. CALL SCFTERM *08* 00269310
OC STACENAM,STACENAM ENTRY IN USE ? *08* 00269320
BZ STOP8070 NO. NEXT ONE *08* 00269330
LA R15,1 SET FLAG ON *08* 00269340
OI STACEFLG,#STACEAB YES. SET ABEND FLAG *08* 00269350
STOP8070 EQU * *08* 00269360
LA R5,STACEL$(R5) NEXT ENTRY *08* 00269370
B STOP8060 CONTINUE *08* 00269380
STOP8100 EQU * *08* 00269390
LTR R15,R15 FLAG SET ? *08* 00269400
BZ STOP8150 NO. NO SCFTERM NEEDED *08* 00269410
EXEC CICS LINK PROGRAM('SCFTERM') 00269420
STOP8150 EQU * *08* 00269430
L R8,S2KPLXU ADDRESS PLEX URBS *08* 00269440
B STOP0072 DO PLEX URBS NOW *08* 00269450
EJECT 00269460
End of Zap Deck