For SYSTEM 2000 Version: 12.1
Problem Status: ZD -- ZAP DISTRIBUTED IN FIELD FIX 12.1-02
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.1 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* 00738000
CVB R1,PLXWK2 *35* 00739000
L R15,=F'20' *35* 00816010
TM HLDCTL+3,X'01' HOLD ? *35* 00816020
BNO FRMT0942 NO. *35* 00816030
S R15,=F'500' YES. NEGATE OPER *35* 00816040
FRMT0942 EQU * *35* 00816050
ST R15,S2KOPR SET OPERATOR *35* 00816060
CVD R1,PLXWK2 *35* 00866000
OI PLXWK2+7,X'0F' *35* 00867000
UNPK CCRTC,PLXWK2 *35* 00869000
* CHANGE TO VALID DATA POINTER FOR FREEMAIN *35* 00949990
EXEC CICS FREEMAIN DATA(0(R2)) 00950000
CLI S2KTYP+3,2 COBOL? *35* 02118010
BE LINK0172 *35* 02118020
USING FCOMBK,R8 *35* 02118030
ST R1,FCRTC *35* 02118040
B LINK0180 *35* 02118050
LINK0172 EQU * *35* 02118060
CVD R1,PLXWK2 *35* 02118070
OI PLXWK2+7,X'0F' *35* 02118080
UNPK CCRTC-CCOMBK(4,R8),PLXWK2 *35* 02118090
End of Zap Deck