For SYSTEM 2000 Version: 12.0
Problem Status: ZC (Zap Coded) -- Fix has received limited testing
Description of Problem:
COMMBLOCK RETURN CODE IS NOT GETTING SET IN SOME SITUATIONS IN CICS PLEXAPPLICATION PROGRAMS.
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 4869 MVS
*
* THIS BUG FIX WILL MAKE CERTAIN THAT THE COMMBLOCK RETURN FIELD IS
* SET IF A COMMBLOCK IS AVAILABLE ON A GIVEN COMMAND. THIS IS MOST
* OBVIOUS IN THE CIRCUMSTANCE OF A PLEX RETURN CODE 70, OR ANY OF
* THE RETURN CODES INDICATING THAT AN URB IS NOT AVAILABLE.
*
./ CHANGE NAME=S2KPLR$
* *33* GOH 30MAY97 B4869 ALWAYS SET COMMBLOCK RETURN CODE IF AVAILABLE 00002990
* *33* 00689010
* AT THIS POINT, REGISTER 2 WILL POINT TO THE ORIGINAL PARM LIST *33* 00689020
* SENT FROM THE APPLICATION PROGRAM. *33* 00689030
* *33* 00689040
TM 0(R2),X'80' ONLY ONE PARM ? *33* 00689050
BO RETURN22 YES. FORGET COMMBLOCK *33* 00689060
L R14,4(R2) NO. ADDRESS COMMBLOCK *33* 00689070
L R15,0(R2) ADDRESS S2KDUM *33* 00689080
CLC 0(4,R15),=F'240' NON-COMMBLOCK COMMAND ? *33* 00689082
BNL RETURN22 YES. JUST RETURN *33* 00689084
CLC 0(4,R15),=F'91' START S2K COMMAND ? *33* 00689086
BE RETURN22 YES. JUST RETURN *33* 00689088
CLI S2KTYP-S2KDUM+3(R15),2 COBOL ? *33* 00689090
BE RETURN21 YES. *33* 00689100
L R15,S2KRTC-S2KDUM(R15) GET RETURN CODE *33* 00689110
ST R15,FCRTC-FCOMBK(R14) SET IN COMMBLOCK *33* 00689120
B RETURN22 WRAP IT UP *33* 00689130
RETURN21 EQU * *33* 00689140
L R15,S2KRTC-S2KDUM(R15) GET RETURN CODE *33* 00689150
CVD R15,DW CONVERT TO DECIMAL *33* 00689160
OI DW+7,X'0F' FIX SIGN *33* 00689170
UNPK CCRTC-CCOMBK(4,R14),DW PUT INTO COBOL COMMBLOCK *33* 00689180
RETURN22 EQU * *33* 00689190
./ CHANGE NAME=PLXFRMT
* *29* 30MAY97 GOH B4869 ALWAYS SET COMMBLOCK RETURN CODE *29* 00010830
FRMTPADR DS F *29* 00045010
ST R9,FRMTPADR SAVE PARMS ADDRESS *29* 00078010
BAL R14,FRMT1000 SET COMMBLOCK RC IF NEEDED *29* 00157010
BAL R14,FRMT1000 SET COMMBLOCK RTCD *29* 00281010
BAL R14,FRMT1000 SET COMMBLOCK RTCD *29* 00349010
L R8,FRMTPADR INPUT PARMS *29* 00792010
TM 0(R8),X'80' ONLY ONE PARM ? *29* 00792020
BOR R14 YES. FORGET COMMBLOCK *29* 00792030
L R1,0(R8) ADDRESS S2KDUM *29* 00792040
L R1,0(R1) GET OPERATION CODE *29* 00792050
C R1,=F'240' IS IT NON-COMBLOCK CMD ? *29* 00792060
BNLR R14 YES. FORGET IT *29* 00792070
C R1,=F'91' START S2K ? *29* 00792080
BER R14 YES. BYPASS RC SET *29* 00792090
L R8,4(R8) COMMBLOCK *29* 00792100
LTR R8,R8 VALID ? *29* 00792110
BZR R14 NO. JUST RETURN *29* 00792120
CVD R1,PLXWK2 *29* 00800000
OI PLXWK2+7,X'0F' *29* 00801000
UNPK CCRTC,PLXWK2 *29* 00803000
FRMT9042 EQU * *29* 00853010
BAL R14,FRMT1000 SET COMMBLOCK RTCD *29* 00853020
FRMT9052 EQU * *29* 00856010
BAL R14,FRMT1000 SET COMMBLOCK RTCD *29* 00856020
B FRMT9042 CONTINUE *29* 00862000
BAL R14,FRMT1000 PUT RTRN CODE IN COMMBLOCK *29* 00902010
B FRMT9052 RETURN TO CALLER *29* 00998000
B FRMT9052 RETURN TO CALLER *29* 01007000
End of Zap Deck