For SYSTEM 2000 Version: 11.6
Problem Status: ZC (Zap Coded) -- Fix has received limited testing
Description of Problem:
UNABLE TO RESTART S2KA WITH S2KB AFTER S2KA ABENDS. USERS ARE LEFT IN THE R11.6 MACRO LEVEL INTERFACE AND DO NOT GET CLEANED UP. EVENTUALLY, ALL URBS
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 R11.6 BUG 4764 OS
./ CHANGE NAME=DFHPEP,SEQFLD=738
./ NUMBER NEW1=1000,INCR=1000
./ CHANGE NAME=DFHPEP,SEQFLD=738
* DFHPEP-04 08/28/92 JGS R11.6 B4764 SPECIAL CASE IF S2KA ABENDS *04* 00026100
CLC TCAKCOID,=C'S2KA ' ABEND HANDLER ORIGINATOR ? *04* 00040010
BNE POSTAB NO. JUST RETURN *04* 00040020
* *04* 00040030
* SPECIAL CODE ADDED HERE IF IT IS THE ABEND HANDLER THAT GOT THE *04* 00040040
* ARSA ABEND. *04* 00040050
* *04* 00040060
CICSLVA ENTRY=VCON 00040070
USING DS2KVCON,R15 *04* 00040080
L R9,DVCAFLG ADDRESS ACTIVE FLAG *04* 00040090
MVI 0(R9),X'00' RESET ACTIVE FLAG *04* 00040100
L R9,DVCSCFFT ADDRESS SCF FIRST TIME LOGIC *04* 00040110
MVC 0(2,R9),=X'4700' NOP BRANCH AROUND INITIATE LOGIC * 00040120
L R9,DVCPLXFT ADDRESS PLEX FIRST TIME LOGIC *04* 00040130
MVC 0(2,R9),=X'47F0' NOP BRANCH AROUND INITIATE LOGIC * 00040140
DROP R15 *04* 00040150
* *04* 00040160
* PROCESSING DONE, CONTINUE WITH EPOSTAB *04* 00040170
* *04* 00040180
POSTAB EQU * *04* 00040190
DS2KVCON *04* 00049010
./ CHANGE NAME=CICSLVA,SEQFLD=736
.***************** R E V I S I O N S *******************************00* 000710
.* *01* DWP 05/18/90 ADD ENTRY FOR VCON TABLE *01* 000720
.* *02* DWP 09/28/90 DON'T DO DELETE IF ENTRY IS ABEND *01* 000730
.* *03* GOH 23JUL91 FIX FOR CONDITIONAL LOAD OF S2KCICS *03* 000740
.* *04* JGS 16MAR94 B4764 UPDATE R11.6 MACRO TO HANDLE S2K ABENDS *04* 000750
.*******************************************************************01* 000790
&DISPL SETA &DISPL+4 *01* 001910
AIF ('&ENTRY' EQ 'VCON').GENLOAD *01* 001920
MNOTE 12,'ENTRY INVALID NOT "PLR, ABEND, POSTAB, OR VCON"' *01 001930
./ DELETE SEQ1=002000,SEQ2=002000
DFHPC TYPE=LOAD,COND=YES,NORESP=LV&SYSNDX 002310
./ DELETE SEQ1=002400,SEQ2=002400
./ DELETE SEQ1=002500,SEQ2=002600
AIF ('&ENTRY' EQ 'ABEND').NODEL *03* 003110
.NODEL ANOP *02* 003210
End of Zap Deck