For SYSTEM 2000 Version: 11.63
Problem Status: ZC (Zap Coded) -- Fix has received limited testing
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 R11.63 BUG 4716 OS
./ 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* 00103030
BE LIST0110 YES. BYPASS SPECIAL INPUT *12* 00103040
CLC EIBTRNID,CTSCF FROM TSCF ? *12* 00837010
BNE LIST9915 NO. *12* 00837020
L R10,DFHEICAP ADDRESS PASSED COMMAREA *12* 00837030
MVC SCFCTRN-SCFCOMM(4,R10),CLSCF SET LSCF TRAN *12* 00837040
EXEC CICS RETURN 00837050
LIST9915 EQU * *12* 00837060
SCFCOMM *12* 00972010
End of Zap Deck