For SYSTEM 2000 Version: 12.0
Problem Status: ZC (Zap Coded) -- Fix has received limited testing
Description of Problem:
THIS FIX PREVENTS 301 ABEND FOR AN S2KU USER THAT IS ABENDED WHILE THE USER IS STILL IN AN SCF URB.
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 4873 MVS
* IBM R12.1 BUG 4873 MVS
*
* THIS FIX PREVENTS 301 PROBLEMS TERMINATING AN S2KU USER WHILE
* THE USER IS STILL IN AN SCF URB.
*
./ CHANGE NAME=SCFTERM
* *22* 30MAY97 GOH B4873 ALLOW FOR MULTIPLE SCFZ TRANSACTIONS *22* 00026850
OI URBFLAG1,URBWAIT MARK URB AS BEING WAITED ON *22* 00213010
NI URBFLAG1,X'FF'-URBWAIT RESET URBWAIT FLAG *22* 00214010
End of Zap Deck