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