For SYSTEM 2000 Version: 12.1
Problem Status: ZD -- R12.1 FFD3
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.1 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 27FEB97 B4869 ALWAYS SET COMMBLOCK RETURN CODE IF AVAILABLE 00002990
* *33* 00692010
* AT THIS POINT, REGISTER 2 WILL POINT TO THE ORIGINAL PARM LIST *33* 00692020
* SENT FROM THE APPLICATION PROGRAM. *33* 00692030
* *33* 00692040
TM 0(R2),X'80' ONLY ONE PARM ? *33* 00692050
BO RETURN22 YES. FORGET COMMBLOCK *33* 00692060
L R14,4(R2) NO. ADDRESS COMMBLOCK *33* 00692070
L R15,0(R2) ADDRESS S2KDUM *33* 00692080
CLC 0(4,R15),=F'240' NON-COMMBLOCK COMMAND ? *33* 00692082
BNL RETURN22 YES. JUST RETURN *33* 00692084
CLC 0(4,R15),=F'91' START S2K COMMAND ? *33* 00692086
BE RETURN22 YES. JUST RETURN *33* 00692088
CLI S2KTYP-S2KDUM+3(R15),2 COBOL ? *33* 00692090
BE RETURN21 YES. *33* 00692100
L R15,S2KRTC-S2KDUM(R15) GET RETURN CODE *33* 00692110
ST R15,FCRTC-FCOMBK(R14) SET IN COMMBLOCK *33* 00692120
B RETURN22 WRAP IT UP *33* 00692130
RETURN21 EQU * *33* 00692140
L R15,S2KRTC-S2KDUM(R15) GET RETURN CODE *33* 00692150
CVD R15,DW CONVERT TO DECIMAL *33* 00692160
OI DW+7,X'0F' FIX SIGN *33* 00692170
UNPK CCRTC-CCOMBK(4,R14),DW PUT INTO COBOL COMMBLOCK *33* 00692180
RETURN22 EQU * *33* 00692190
End of Zap Deck