Resources



Problem Fix Number: 4716

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.


Download Fix:

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