For SYSTEM 2000 Version: 12.1
Problem Status: ZC (Zap Coded) -- Fix has received limited testing
Description of Problem:
PLEX PROGRAMS SOMETIMES UNACCOUNTABLY EXPERIENCE RETURN CODE 70 ON S2K COMMANDS.
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 4928 MVS
*
* IF PLXTRUE IS DELAYED EXECUTING AND THE TERMINAL IS ASSIGNED A URB
* IN A SUBSEQUENT TASK, PLXTRUE WOULD DO A STOP S2K ERRONEOUSLY,
* RESULTING IN A RETURN CODE 70 WITHIN THE APPLICATION PROGRAM.
* THIS FIX MAKES AN ADDITIONAL CHECK OF TASK NUMBERS TO PREVENT THIS
* PROBLEM.
*
* YOU NEED TO RECOMPILE PLXTRUE AND PLXFRMT TO APPLY THIS FIX AND
* CICS MUST BE RECYCLED FOR THE FIX TO TAKE EFFECT.
*
./ CHANGE NAME=PLXTRUE
* MDW 05/05/2000. B4928-PREVENT CLEANING UP URB THAT HAS BEEN *01** 00039100
* REASSIGNED. PLXTRUE STARTED CLEANUP BUT GOT DELAYED. *01** 00039200
BE P3025 NO RETURN WITH TRANSID. *01* 00294000
OI URBFLAG2,X'04' RTN PSEUDO-CONV. (URBPLXT) *01* 00294100
B EXIT *01* 00294200
P3025 TM URBFLAG2,X'04' DID WE MARK AS PSEUDO-CONV LAST*01* 00295100
BO P3035 YES, WE BUT WE CAN NOW DO STOP *01* 00295200
* MAKE SURE URB WAS NOT REASSIGNED BEFORE DOING STOP S2K. *01* 00296100
CLC URBTASK,PLXTASK LAST CHECK, SAME TASK # *01* 00296200
BNE EXIT NO, GET OUT. *01* 00296300
P3035 DS 0H *01* 00296400
./ CHANGE NAME=PLXFRMT
* *37* 05JUN00 MDW B4928 RESET FLAG SET BY PLXTRUE. (URBPLXT) *37* 00010960
NI URBFLAG2,X'FF'-X'04' RESET FLAG SET BY PLXTRUE *37* 00334030
End of Zap Deck