For SYSTEM 2000 Version: 12.0
Problem Status: ZD -- ZAP DISTRIBUTED
Description of Problem:
PLEX URBS GET USED BY SCF USERS IF NO SCF URBS ARE AVAILABLE FOR USE.
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 4670 MVS
./ CHANGE NAME=SCFDRVR
* *23* 27JAN93 GOH B4670 PROPERLY HANDLE WHEN NO URBS AVAILABLE *23** 00030991
B DRVR0460 CONTINUE PROCESSING *23* 00538000
B DRVR0430 LOCK TO INVOKING TRAN *23* 00540000
*23* 00541000
CLI SCFCFLG1,X'80' EXISTING USER ? *23* 00544000
BE DRVR0430 YES. TRY LOCK *23* 00545000
XC SCFCLCK,SCFCLCK CLEAR LOCK TRAN *23* 00546000
CLI SCFCFLG1,X'80' EXISTING USER ? *23* 00555010
BNE DRVR0490 NO. FREE PCI BLOCK *23* 00555020
./ CHANGE NAME=SCFINTF
* *08* 26JAN93 GOH B4670 PROPERLY HANDLE WHEN NO URBS AVAILABLE *08* 00020990
BNZ INTF0030 YES. CONTINUE *08* 00044000
XC SCFCFLG1,SCFCFLG1 CLEAR FLAG *08* 00045000
B INTF0420 SET NO URB AVAIL *08* 00046000
*08* 00047000
*08* 00048000
B INTF0450 YES ... SIGNAL TO CALLER *08* 00066000
*08* 00067000
*08* 00068000
*08* 00069000
*08* 00070000
XC SCFCFLG1,SCFCFLG1 CLEAR EXISTING USER FLAG *08* 00089010
MVI SCFCFLG1,X'80' SET EXISTING USER FLAG *08* 00091010
XC SCFCFLG1,SCFCFLG1 CLEAR FLAG *08* 00095010
B INTF0450 8 - ERROR TASK IN CONTROL *08* 00101000
*08* 00102000
*08* 00103000
*08* 00104000
*08* 00105000
*08* 00106000
LR R0,R15 SAVE FOR USE LATER *08* 00108010
B INTF0420 SET NO URB AVAILABLE *08* 00131000
*08* 00132000
*08* 00133000
*08* 00134000
*08* 00135000
*08* 00136000
L R8,SCFCUSE ADDRESS USER MODULE *08* 00138000
L R8,S2KSCFU-DS2KCUSE(R8) ADDRE START OF URBS *08* 00139000
BO INTF0086 YES. SET NONE AVAIL *08* 00144000
CLI URBTCHAR,C'N' STILL SCF URBS ? *08* 00145010
BE INTF0082 YES. CHECK IT *08* 00146000
INTF0086 EQU * *08* 00147000
CLI SCFCFLG1,X'80' NEW STACE ENTRY ? *08* 00148000
BE INTF0420 NO. JUST PUT OUT MESSAGE *08* 00149000
XC 0(STACEL$,R1),0(R1) CLEAR ENTRY FOR NEW *08* 00150000
B INTF0420 SET RETURN CODE FOR NO URB *08* 00151000
*08* 00152000
End of Zap Deck