For SYSTEM 2000 Version: 12.0
Problem Status: ZD -- ZAP DISTRIBUTED
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 R12.0 BUG 4668 MVS
./ CHANGE NAME=SCFDRVR
* *22* 19JAN93 GOH B4668 FOR NO PCI JUST PUT OUT MESSAGE AND DO *22** 00030992
* NOT LOCK TO INVOKING VERB *22** 00030993
L R1,SCFCERRS ADDR ERROR MESSAGES *22* 00526000
L R1,SCFERR-DSCFERR(R1) ADDR RIGHT GROUP *22* 00527000
L R1,12(R1) ADDR RIGHT ONE *22* 00528000
LA R2,2(R1) ADDR TEXT *22* 00529000
LH R1,0(R1) GET LENGTH *22* 00530000
STH R1,DRVRHWD SAVE FOR SEND *22* 00531000
XC SCFCLCK,SCFCLCK CLEAR LOCK CODE *22* 00532000
B DRVR0915 DO IT *22* 00533000
LA R2,DRVR0920 ADDR MESSAGE *22* 00800010
LA R1,D920LEN AND LENGTH *22* 00800020
STH R1,DRVRHWD SAVE FOR SEND *22* 00800030
DRVR0915 EQU * *22* 00800040
* CHANGE SEND TO BE GENERIC *22* 00800990
EXEC CICS SEND FROM(0(R2)) LENGTH(DRVRHWD) WAIT 00801000
B DRVR0470 RETURN *22* 00803000
D920LEN EQU *-DRVR0920 *22* 00809010
End of Zap Deck