For SYSTEM 2000 Version: 11.63
Problem Status: ZC (Zap Coded) -- Fix has received limited testing
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 V11.63 BUG 4670 OS
* DO NOT USE PLEX URBS WHEN SCF URBS ARE UNAVAILABLE
./ CHANGE NAME=SCFDRVR
* *23* 27JAN93 GOH B4670 PROPERLY HANDLE WHEN NO URBS AVAILABLE *23** 00030500
B DRVR0460 CONTINUE PROCESSING *23* 00556000
B DRVR0430 LOCK TO INVOKING TRAN *23* 00558000
*23* 00559000
CLI SCFCFLG1,X'80' EXISTING USER ? *23* 00562000
BE DRVR0430 YES. TRY LOCK *23* 00563000
XC SCFCLCK,SCFCLCK CLEAR LOCK TRAN *23* 00564000
CLI SCFCFLG1,X'80' EXISTING USER ? *23* 00573010
BNE DRVR0490 NO. FREE PCI BLOCK *23* 00573020
./ CHANGE NAME=SCFINTF
* *08A* 26JAN93 GOH B4670 PROPERLY HANDLE WHEN NO URBS AVAILABLE *08A* 00020990
BNZ INTF0030 YES. CONTINUE *08A* 00045000
XC SCFCFLG1,SCFCFLG1 CLEAR FLAG *08A* 00046000
B INTF0420 SET NO URB AVAIL *08A* 00047000
*08A* 00048000
*08A* 00049000
B INTF0450 YES ... SIGNAL TO CALLER *08A* 00067000
*08A* 00068000
*08A* 00069000
*08A* 00070000
*08A* 00071000
XC SCFCFLG1,SCFCFLG1 CLEAR EXISTING USER FLAG *08A* 00090010
MVI SCFCFLG1,X'80' SET EXISTING USER FLAG *08A* 00092010
XC SCFCFLG1,SCFCFLG1 CLEAR FLAG *08A* 00096010
B INTF0450 8 - ERROR TASK IN CONTROL *08A* 00102000
*08A* 00103000
*08A* 00104000
*08A* 00105000
*08A* 00106000
*08A* 00107000
LR R0,R15 SAVE FOR USE LATER *08A* 00109010
B INTF0420 SET NO URB AVAILABLE *08A* 00132000
*08A* 00133000
*08A* 00134000
*08A* 00135000
*08A* 00136000
*08A* 00137000
L R8,SCFCUSE ADDRESS USER MODULE *08A* 00139000
L R8,S2KSCFU-DS2KCUSE(R8) ADDRE START OF URBS *08A* 00140000
BO INTF0086 YES. SET NONE AVAIL *08A* 00145000
CLI URBTCHAR,C'N' STILL SCF URBS ? *08A* 00146010
BE INTF0082 YES. CHECK IT *08A* 00147000
INTF0086 EQU * *08A* 00148000
CLI SCFCFLG1,X'80' NEW STACE ENTRY ? *08A* 00149000
BE INTF0420 NO. JUST PUT OUT MESSAGE *08A* 00150000
XC 0(STACEL$,R1),0(R1) CLEAR ENTRY FOR NEW *08A* 00151000
B INTF0420 SET RETURN CODE FOR NO URB *08A* 00152000
*08A* 00153000
End of Zap Deck