For SYSTEM 2000 Version: 12.0
Problem Status: ZD -- ZAP DISTRIBUTED
Description of Problem:
THE TSCF TRANSACTION WHEN USED WITH THE USERID= PARAMETER GETS ERRONEOUS MESSAGE FROM INTERFACE AND LOCKS TERMINAL TO THE TSCF TRANSACTION.
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 4716 MVS
./ CHANGE NAME=SCFTERM
* *10* 29JUL93 GOH B4716 PASS COMMBLOCK TO S2KLIST FOR PROCESSING * 00026980
B TERM9990 FINISH UP *10* 00455000
* PASS COMMBLOCK TO S2KLIST *10* 00468990
EXEC CICS LINK PROGRAM('S2KLIST') COMMAREA(SCFCOMM) *00469000
LENGTH(COMMLEN) 00469005
CLC SCFCTRN,CLSCF LOCK TO LIST TRAN ? *10* 00469010
BNE TERM9980 NO. JUST RETURN *10* 00469020
EXEC CICS RETURN TRANSID(SCFCTRN) 00469030
TERM9980 EQU * *10* 00469040
EXEC CICS SEND FROM(TERMMSG1) LENGTH(TERMMLN) WAIT 00469050
CLSCF DC CL4'LSCF' *10* 00483010
./ CHANGE NAME=S2KLIST
* *12* 29JUL93 GOH B4716 BYPASS SPECIAL INPUT FOR TSCF TRAN ALSO *12* 00024990
CLC EIBTRNID,CTSCF FROM TSCF TRANSACTION ? *12* 00086090
BE LIST0110 YES. BYPASS SPECIAL INPUT *12* 00086100
CLC EIBTRNID,CTSCF FROM TSCF ? *12* 00806002
BNE LIST9915 NO. *12* 00806004
L R10,DFHEICAP ADDRESS PASSED COMMAREA *12* 00806005
MVC SCFCTRN-SCFCOMM(4,R10),CLSCF SET LSCF TRAN *12* 00806006
EXEC CICS RETURN 00806007
LIST9915 EQU * *12* 00806008
SCFCOMM *12* 00933010
End of Zap Deck