For SYSTEM 2000 Version: 12.1
Problem Status: ZD -- R12.1 FFD3
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.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* 04APR97 DWP B4873 ALLOW FOR MULTIPLE SCFZ TRANSACTIONS *22* 00026850
OI URBFLAG1,URBWAIT MARK URB AS BEING WAITED ON *22* 00244100
NI URBFLAG1,X'FF'-URBWAIT RESET URBWAIT FLAG *22* 00246100
End of Zap Deck