For SYSTEM 2000 Version: 12.0
Problem Status: ZD -- ZAP DISTRIBUTED
Description of Problem:
BUG FIX 4748 REMOVES THE CICS 3.3 CHANGES FROM PLXFRMT TO ALLOW THE INTERFACE TO WORK IN A CICS 1.7 AND CICS 2.2 SYSTEM.
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 4749 MVS
./ CHANGE NAME=PLXFRMT
* *22* 19JAN94 GOH B4749 CHANGE FOR COMPATABILITY FOR CICS 3.2/3.3 *22* 00010940
BE INIT0165 YES. BYPASS LOGIC *22* 00127000
CLI 13(R1),X'00' EVER DONE ? *22* 00127010
BNE INIT0165 YES. BYPASS LOGIC *22* 00127020
* START TRANSACTON PLXS FOR THE PURPOSE OF ENABLING THE *22* 00130000
* AUTOMATIC 'STOP S2K' PROCESSING FOR PLEX USERS. *22* 00131000
*21* CHANGE S2KX TO PLXS IN NEXT LINE *21* 00133000
EXEC CICS START TRANSID('PLXS') 00134000
B INIT0165 CONTINUE *22* 00134010
* *22* CHANGE DATASET TO FILE IN SET COMMANDS 01390990
EXEC CICS SET FILE(S2KCOM) CLOSED WAIT 01391000
EXEC CICS SET FILE(S2KCOM) OPEN 01392000
End of Zap Deck