For SYSTEM 2000 Version: 11.6
Problem Status: ZC (Zap Coded) -- Fix has received limited testing
Description of Problem:
KCP EXIT AND S2KA TRANSACATION WILL NOT WORK FOR CICS 3.1.1 AND RELEASE 11.6.
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 V11.6 BUG 4520 OS
./ CHANGE NAME=XKCREQ,SEQFLD=736
./ NUMBER NEW1=000100,INCR=100
./ CHANGE NAME=XKCREQ,SEQFLD=736
./ DELETE SEQ1=1400,SEQ2=1500
* *04A* GOH 07AUG91 ALLOW FOR USE OF 11.6 INTERFACE WITH CICS 3.1 002310
B XKCR0010 CONTINUE PROCESSING *04A* 002710
* THE FOLLOWING FULLWORD MUST BE LEFT AT DISPLACEMENT 4 INTO *04A* 002712
* CSECT XKCREQ13 FOR USE BY THE CICSS2KA MODULE DURING INIT *04A* 002714
XKCPPTA DC F'0' S2KCICS PPT ADDR GOES HERE *04A* 002720
XKCR0010 EQU * *04A* 002730
LR 3,15 RESET BASE ADDRESS *04A* 002810
DROP 15 *04A* 002820
USING XKCREQ13,3 *04A* 002830
L 15,XKCPPTA ADDRESS PROGRAM *04A* 005600
./ DELETE SEQ1=5700,SEQ2=6900
./ DELETE SEQ1=8800,SEQ2=8800
./ CHANGE NAME=CICSS2KA,SEQFLD=736
./ NUMBER NEW1=000100,INCR=100
./ CHANGE NAME=CICSS2KA,SEQFLD=736
* *01A* GOH 07AUG91 ALLOW FOR USE OF 11.6 INTERFACE WITH CICS 3.1 001610
./ DELETE SEQ1=2300,SEQ2=3000
DFHPC TYPE=LOAD,PROGRAM=S2KCICS *01A* 003100
L R4,TCAPCLA SAVE ADDRESS OF ENTRY *01A* 003200
./ DELETE SEQ1=3300,SEQ2=3600
DFHPC TYPE=LOAD,PROGRAM=XKCREQ,COND=YES,NORESP=XKC0020 *01A* 003610
B NOT16 *01A* 003620
XKC0020 EQU * *01A* 003630
L R15,TCAPCLA ADDRESS XKCREQ *01A* 003640
ST R4,4(,R15) SAVE S2KCICS ADDR IN XKCREQ *01A* 003700
L R15,12(,R4) ADDRESS ABEND ROUTINE *01A* 003900
./ DELETE SEQ1=4200,SEQ2=4200
./ DELETE SEQ1=4400,SEQ2=4600
./ CHANGE NAME=S2KSRTRR,SEQFLD=736
./ NUMBER NEW1=000100,INCR=100
./ CHANGE NAME=S2KSRTRR,SEQFLD=736
* *00A* GOH 07AUG91 ALLOW FOR USE OF 11.6 INTERFACE WITH CICS 3.1 001610
* BY DELETING REFERENCES TO CSAPPTBA FIELD 001620
./ DELETE SEQ1=2800,SEQ2=4800
End of Zap Deck