For SYSTEM 2000 Version: 12.0
Problem Status: ZC (Zap Coded) -- Fix has received limited testing
Description of Problem:
CICS 3.3 STOP S2K TRANSACTION PLXS IS STILL ACTIVE DURING CICS SHUTDOWN TIME. REQUIRES A PROGRAM TO RUN AT SHUTDOWN TIME TO STOP TRANSACTION PLXS.
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 4767 OS
*
* CREATE CICS SHUTDOWN PROGRAM PLXSHUT
*
* 1) APPLY IEBUPDATE CARDS
* 2) COMPILE PLXSTOP AND PLXSHUT USING JCLCPLEX
* 3) DEFINE PLXSHUT WITH CEDA TRANSACTION COPYING PLXSTOP ATTRIBUTES
* 4) COMPILE AND DEFINE PLT ENTRY TO RUN PROGRAM PLXSHUT AT SHUTDOWN TIME
*
./ CHANGE NAME=MACCPLEX
.* *02* JGS 03/22/94 BUG 4767 ADD PLXSHUT SHUTDOWN PROGRAM 00007800
PUNCH '//PLEX8 EXEC CLTPASM,S=PLXSHUT,A=31,R=ANY' *02* 00078200
./ CHANGE NAME=PLXSTOP
* *03* 18MAR94 DWP B4767 ALLOC FOR SHUTDOWN VIA PLXSHUT *03* 00018970
* *02* 18FEB94 GOH REMOVE ERRONEOUS DUMP FROM SOURCE *02* 00018980
L R8,S2KPLXU ADDRESS PLEX URBS *03* 00066010
CLC S2KCSHD,=F'-2' TERMINATE AND SHUTDOWN? *03* 00066020
BE STOP0072 YES. WRAPUP *03* 00066030
*03* *MOVED* *03* 00069000
OC URBUSER,URBUSER URB IN USE ? *03* 00073010
BZ STOP0074 NO. CHECK NEXT ONE *03* 00073020
CLC S2KCSHD,=F'-2' TERMINATE ALL DUE TO SHUTDOWN? *03* 00073030
BZ STOP0097 YES *03* 00073040
*03* *MOVED* *03* 00076000
*03* *MOVED* *03* 00077000
STOP0097 EQU * *03* 00126010
* SAME AS STOP0095, BUT THIS IS AN ABNORMAL SITUATION, *03* 00126020
* DO NOT SET URBSTOP. . *03* 00126030
MVC PLXUID,URBUSER SET USER ID *03* 00126040
ST R8,PLXURB SET URB ADDRESS *03* 00126050
OI URBFLAG1,URBERR SET ERROR TASK ONLY *03* 00126060
BAL R14,STOP0100 PROCESS AN URB *03* 00126070
B STOP0074 CONTINUE *03* 00126080
CLC S2KCSHD,=F'-2' TERMINATE ALL DUE TO SHUTDOWN? *03* 00233010
BZ STOP9950 YES *03* 00233020
*02* CICS DUMP COMMAND REMOVED *02* 00243000
./ ADD NAME=PLXSHUT
./ NUMBER NEW1=1000,INCR=1000
**********************************************************************
* *
* PLXSHUT - TERMINATION LOGIC FOR PLXSTOP *
* *
* FUNCTION - *
* *
* THIS ROUTINE WILL SET THE SHUTDOWN FLAGS FOR PLXSTOP *
* *
* IT PRIMARY PURPOSE IS TO EXECUTE AT CICS SHUTDOWN TIME *
* TO TERMINATE THE PLXS TRANSACTION. *
* *
* INPUT - *
* *
* NOTHING - *
* *
* REGISTER USAGE - *
* *
* 8 - S2KCUSE *
* *
**********************************************************************
* *00* 28JAN94 DWP B4767 ORIGINAL PROGRAM *
**********************************************************************
DFHEISTG
EQUREGS
EJECT
PLXSHUT CSECT
B SHUT0001
DC CL8'PLXSHUT'
SHUT0001 EQU *
EXEC CICS HANDLE CONDITION PGMIDERR(SHUT0900)
EXEC CICS LOAD PROGRAM('S2KCUSE') SET(R8)
USING DS2KCUSE,R8
**********************************************************************
* *
* S2KCSHD IS THE SHUTDOWN FLAG FOR PLXSTOP. NORMALLY, THIS FLAG *
* IS SET TO A -1 THAT TELLS PLXSTOP TO SHUTDOWN. *
* *
* IF THIS IS TRUELY A COMPLETE CICS SYSTEM SHUTDOWN, SETTING *
* S2KCSHD TO A -2 WILL ALSO CAUSE EACH PLEX USER CURRENTLY *
* SIGNED-ON TO BE TERMINATED AS WELL. *
* *
* TERMINATED ALL USERS ( -2 ) IS THE DEFAULT. THIS TERMINATION *
* WILL IGNORE THE PSUDEO-CONVERSATIONAL FLAG AND TERMINATE *
* EACH ACTIVE PLEX USER. *
* *
**********************************************************************
MVC S2KCSHD,=F'-2' TALL AND SET SHUTDOWN
******** MVC S2KCSHD,=F'-1' SET SHUTDOWN ONLY
**********************************************************************
* *
* RETURN TO CALLING PROGRAM *
* *
**********************************************************************
SPACE
SHUT0900 EQU *
EXEC CICS RETURN
EJECT
LTORG
DS2KCUSE
END
End of Zap Deck