For SYSTEM 2000 Version: 11.6
Problem Status: ZD -- ZAP DISTRIBUTED
Description of Problem:
VALIDATE THIS IS THE CORRECT USER OF THIS SVC ENTRY BY CHECKING FOR A CICS USER SET BY FIX 4473 AND COMPARE TERMINAL IDS BETWEEN THE SVC ENTRY AND THE
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 4475 MVS
./ CHANGE NAME=MRISVC,SEQFLD=736
* MRISVC-96 LCW 05/17/90 CHANGE CHECK FOR CICS *96* 001390
TM URBTYPE2-DURB(R15),#URBCICS IS THIS A CICS USER? *96* 203600
MVCP 0(R12,R15),URBEND(R10),R11 BETTER VERIFY USER *96* 204100
MVC USRSTEP(8),URBEND COPY URBUSER FROM CICS URB *96* 204500
TM URBTYPE2-DURB(R15),#URBCICS IS THIS A CICS USER? *96* 222000
L R2,URBEND(,R10) GET URSUSER IN R2 AND R12 *96* 222400
L R12,URBEND+4(,R10) FROM CICS REGION *96* 222500
CLC URBEND-DURB(8,R10),USRSTEP IS THIS THE CORRECT USER?*96* 223300
End of Zap Deck