For SYSTEM 2000 Version: 11.63
Problem Status: ZC (Zap Coded) -- Fix has received limited testing
Description of Problem:
A PLEX LINK COMMAND GETS A RETURN CODE 127.
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.63 BUG 4865 MVS
*
* THIS BUG FIX WILL ALLOW THE PLEX LINK COMMAND TO WORK PROPERLY IN
* A CICS ENVIRONMENT.
*
./ CHANGE NAME=PLXFRMT
* *35* 04DEC96 GOH B4865 MAKE LINK PROCESSING WORK IN CICS *35* 00010980
PACK PLXWK2,CCRTC *35* 00684000
CVB R1,PLXWK2 *35* 00685000
L R15,=F'20' *35* 00762010
TM HLDCTL+3,X'01' HOLD ? *35* 00762020
BNO FRMT0942 NO. *35* 00762030
S R15,=F'500' YES. NEGATE OPER *35* 00762040
FRMT0942 EQU * *35* 00762050
ST R15,S2KOPR SET OPERATOR *35* 00762060
CVD R1,PLXWK2 *35* 00800000
OI PLXWK2+7,X'0F' *35* 00801000
UNPK CCRTC,PLXWK2 *35* 00803000
* CHANGE TO VALID DATA POINTER FOR FREEMAIN *35* 00880990
EXEC CICS FREEMAIN DATA(0(R2)) 00881000
CLI S2KTYP+3,2 COBOL? *35* 02026010
BE LINK0172 *35* 02026020
USING FCOMBK,R8 *35* 02026030
ST R1,FCRTC *35* 02026040
B LINK0180 *35* 02026050
LINK0172 EQU * *35* 02026060
CVD R1,PLXWK2 *35* 02026070
OI PLXWK2+7,X'0F' *35* 02026080
UNPK CCRTC-CCOMBK(4,R8),PLXWK2 *35* 02026090
End of Zap Deck