For SYSTEM 2000 Version: 11.6
Problem Status: ZC (Zap Coded) -- Fix has received limited testing
Description of Problem:
ALLOW FOR TERMINATING A USER AFTER SVC CALL. SOURCE CHANGED IN 11.6-03 AND R12.0. THIS IS A BACKWARD CODING OF CHANGE LEVEL *09* FOR 11.6 USERS (VERSI
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 R11.6 BUG 4806 MVS
./ CHANGE NAME=CICSNLI
* *09* 01/04/89 GOH ALLOW FOR TERMINATING A USER AFTER SVC CALL *09* 00232004
TM URBFLAG1,URBERR ERROR TASK IN CONTROL *09* 00490000
L R15,SAVEAREA+20 R15 <- R0 PASS TO NLRTRN *09* 01100010
LTR R0,R15 RETURN CODE OKAY ? *09* 01100020
BZ NOERR YES. CONTINUE *09* 01100030
TM URBFLAG1,URBERR ERROR TASK IN CONTROL ? *09* 01100040
BZ NOERR NO. CONTINUE *09* 01100050
LA R1,URBUSER ADDRESS TERMID *09* 01100060
L R15,=V(MUPOSTAB) GO POST ABEND *09* 01100070
BALR R14,R15 *09* 01100080
B NOFREE1 BYPASS FREEURB *09* 01100090
NOERR EQU * *09* 01100100
End of Zap Deck