For SYSTEM 2000 Version: 11.63
Problem Status: ZC (Zap Coded) -- Fix has received limited testing
Description of Problem:
WHEN NO PCI BLOCKS ARE AVAILABLE FOR USE THE USER GETS A MESSAGE INDICATING THAT AN ABEND OCCURRED (SCFTERM - 04).
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 4668 OS
./ CHANGE NAME=SCFDRVR
* *22* 19JAN93 GOH B4668 FOR NO PCI JUST PUT OUT MESSAGE AND DO *22** 00030995
* NOT LOCK TO INVOKING VERB *22** 00030996
L R1,SCFCERRS ADDR ERROR MESSAGES *22* 00544000
L R1,SCFERR-DSCFERR(R1) ADDR RIGHT GROUP *22* 00545000
L R1,12(R1) ADDR RIGHT ONE *22* 00546000
LA R2,2(R1) ADDR TEXT *22* 00547000
LH R1,0(R1) GET LENGTH *22* 00548000
STH R1,DRVRHWD SAVE FOR SEND *22* 00549000
XC SCFCLCK,SCFCLCK CLEAR LOCK CODE *22* 00550000
B DRVR0915 DO IT *22* 00551000
LA R2,DRVR0920 ADDR MESSAGE *22* 00819010
LA R1,D920LEN AND LENGTH *22* 00819020
STH R1,DRVRHWD SAVE FOR SEND *22* 00819030
DRVR0915 EQU * *22* 00819040
* CHANGE SEND TO BE GENERIC *22* 00819990
EXEC CICS SEND FROM(0(R2)) LENGTH(DRVRHWD) WAIT 00820000
B DRVR0470 RETURN *22* 00822000
D920LEN EQU *-DRVR0920 *22* 00828010
End of Zap Deck