Resources



Problem Fix Number: 4794

For SYSTEM 2000 Version: 11.63

Problem Status: ZC (Zap Coded) -- Fix has received limited testing

Description of Problem:

MULTIPLE TERMINALS TIMING OUT CAUSE LACK OF SPACE PROBLEM IN TERMINAL TABLE IN S2KCUSE CAUSING LOOP CONDITION IN CICS AND EVENTUAL CICS CRASH. BUG FIX


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 4794  OS                                                     
 *                                                                               
 * THIS BUG FIX DEPENDS ON FFD 4 DISTRIBUTION AS BASE SOURCE                     
 *                                                                               
 * THIS BUG FIX REQUIRES THAT BUG FIX 4791 BE APPLIED FIRST                      
 *                                                                               
 ./ CHANGE NAME=SCFTERM                                                          
 * *15* 29AUG94 GOH B4794 CHANGE TO CHECK ZNEP ERROR SETTINGS      *15*  00026930
 *15*                                                                    00366020
 TERM8030 EQU   *                                              *15*      00366030
          CLI   URBTCHAR,C'N'           STILL SCF ?            *15*      00366040
          BNE   TERM8050                NO. FINISH UP          *15*      00366050
          TM    URBFLAG1,URBERR         IN ERROR TASK ?        *15*      00366060
          BO    TERM8040                YES. PROCESS IT        *15*      00366070
 TERM8035 EQU   *                                              *15*      00366080
          AH    R8,URBLEN               YES. NEXT URB          *15*      00366090
          B     TERM8030                CONTINUE PROCESS       *15*      00366100
 TERM8040 EQU   *                                              *15*      00366110
          OI    URBFLAG1,X'FF'-URBERR   TURN IT OFF            *15*      00366120
          BAL   R14,TERM0200            PROCESS THE EXIT       *15*      00366130
          B     TERM8035                CONTINUE               *15*      00366140
 TERM8050 EQU   *                                              *15*      00367000
 *                                                             *15*      00368000
 *  SCAN THE STACE TABLE FOR USERS IN ERROR                    *15*      00369000
 *                                                             *15*      00370000
          L     R1,SCFCUSE              CUSE ADDRESS           *15*      00371000
          L     R7,S2KSTAC-DS2KCUSE(R1) STACE ADDRESS          *15*      00372000
          USING DSTACE,R7                                                00373000
          L     R8,S2KABNU-DS2KCUSE(R1)    ADDRESS ABEND URB   *15*      00374000
          ST    R8,SCFCURB                                     *15*      00375000
 TERM8060 EQU   *                                              *15*      00376000
          CLI   STACENAM,X'FF'          END OF STACE TABLE ?   *15*      00377000
          BE    TERM8800                YES. NOT OUR JOB       *15*      00378000
          TM    STACEFLG,#STACEAB       IN ERROR ?             *15*      00379000
          BO    TERM8080                YES. PROCESS IT        *15*      00380000
          LA    R7,STACEL$(R7)          NO. NEXT ENTRY         *15*      00381000
          B     TERM8060                CHECK IT               *15*      00382000
 TERM8080 EQU   *                                              *15*      00383000
          LA    R5,ABENLURB  SET UP FOR ABORT                  *15*      00384000
          MVC   URBUSER,STACENAM                               *15*      00385000
          MVI   STATUS,#URBSNOR     SET UP FOR EXIT.           *15*      00385010
          MVI   STACEFLG,X'00'      FREE STACE                 *15*      00386000
          XC    STACENAM,STACENAM                              *15*      00387000
          BAL   R14,TERM0200        HANDLE URB                 *15*      00388000
          LA    R7,STACEL$(R7)      NEXT ENTRY                 *15*      00389000
          B     TERM8060            CHECK NEXT ENTRY           *15*      00390000
 * B4794                                                       *15*      00391000
 *                                                             *15*      00392000
 *                                                             *15*      00393000
 *                                                             *15*      00394000
 *                                                             *15*      00395000
 *                                                             *15*      00396000
 *                                                             *15*      00397000
 *                                                             *15*      00398000
 *                                                             *15*      00399000
 *                                                             *15*      00400000
 *                                                             *15*      00401000
 *                                                             *15*      00402000
 *                                                             *15*      00403000
 *                                                             *15*      00404000
 *                                                             *15*      00405000
 *                                                             *15*      00406000
 *                                                             *15*      00407000
 *                                                             *15*      00408000
 *                                                             *15*      00409000
 *                                                             *15*      00410000
 *                                                             *15*      00411000
 *                                                             *15*      00411010
 *15*                                                                    00423010
 ./ CHANGE NAME=PLXTERM                                                          
 * *21* 29AUG94 B4794 GOH ALLOW FOR ZNEP CHANGES               *21*      00018940
 *21* LINE DELETED                                                       00071040
          B     TERM0070         PROCESS LIKE STOP S2K         *21*      00071050
 ./ CHANGE NAME=S2KTRMZX                                                         
 * *05* 28JUN94 B4794 GOH ALLOW FOR CHECKING FOR USER IN INTERFACE *05*  00014980
          L     R1,S2KSCFU-DS2KCUSE(R1)   ADDR SCF URBS            *05*  00028000
          USING DURB,R1                                                  00029000
 ZNEPURBL EQU   *                                                  *05*  00030000
          CLC   TWANID,URBUSER      THIS URB ?                     *05*  00031000
          BE    ZNEPURBS            YES. SET ERROR TASK            *05*  00032000
          TM    URBFLAG1,URBLAST    LAST URB ?                     *05*  00033000
          BO    ZNEPSTAC            YES. CHECK STACE TABLE         *05*  00034000
          AH    R1,URBLEN           NO. NEXT URB                   *05*  00035000
          B     ZNEPURBL            CHECK IT                       *05*  00036000
 ZNEPURBS EQU   *                                                  *05*  00037000
          OI    URBFLAG1,URBERR     SET URB IN ERROR TASK          *05*  00037010
          B     ZNEPSCFZ            START THE SCFZ TRAN            *05*  00037020
 ZNEPSTAC EQU   *                                                  *05*  00037030
          L     R1,TCAPCLA          ADDRESS LOADED PROGRAM         *05*  00037040
          L     R1,S2KSTAC-DS2KCUSE(R1)  ADDRESS STACE TABLE       *05*  00037050
          USING DSTACE,R1                                                00037060
 ZNEPSTAL EQU   *                                                  *05*  00037070
          CLC   TWANID,STACENAM      THIS ENTRY   ?                *05*  00037080
          BE    ZNEPSTAS             YES. SET IN ERROR             *05*  00037090
          CLI   STACENAM,X'FF'       END OF LIST ?                 *05*  00037100
          BE    ZNEMACL              YES. PROCESS MACRO LEVEL      *05*  00037110
          LA    R1,STACEL$(R1)       NO. NEXT ENTRY                *05*  00037120
          B     ZNEPSTAL             CONTINUE                      *05*  00037130
 ZNEPSTAS EQU   *                                                  *05*  00037140
          OI    STACEFLG,#STACEAB    SET ERROR TASK IN CONTROL     *05*  00037150
          B     ZNEPSCFZ             START THE SCFZ TRAN           *05*  00037160
          DROP  R1                                                       00037170
 ZNEPSCFZ EQU   *                                                  *05*  00037180
          B     RETURN1              RETURN TO CALLER              *05*  00038010
 * INSERT THE FOLLOWING LINES AFTER THE LTORG LINE                 *05*  00046000
          DURBMU RGEQU=NO                                          *05*  00047010
 ./ CHANGE NAME=S2KTRM32                                                         
 * *02* 28JUN94 B4794 GOH SCAN URBS FOR USER IN ZNEP              *02*   00014980
          L     R1,S2KSCFU-DS2KCUSE(R1)   ADDR SCF URBS            *02*  00029000
          USING DURB,R1                                                  00029010
 ZNEPURBL EQU   *                                                  *02*  00030000
          CLC   TWANID,URBUSER      THIS URB ?                     *02*  00031000
          BE    ZNEPURBS            YES. SET ERROR TASK            *02*  00032000
          TM    URBFLAG1,URBLAST    LAST URB ?                     *02*  00033000
          BO    ZNEPSTAC            YES. CHECK STACE TABLE         *02*  00034000
          AH    R1,URBLEN           NO. NEXT URB                   *02*  00035000
          B     ZNEPURBL            CHECK IT                       *02*  00036000
 ZNEPURBS EQU   *                                                  *02*  00037000
          OI    URBFLAG1,URBERR     SET URB IN ERROR TASK          *02*  00038000
          B     ZNEPSCFZ            GET OUT OF ZNEP                *02*  00039000
 ZNEPSTAC EQU   *                                                  *02*  00040000
          L     R1,DFHEITP1         ADDRESS LOADED PROGRAM         *02*  00041000
          L     R1,S2KSTAC-DS2KCUSE(R1)  ADDRESS STACE TABLE       *02*  00042000
          USING DSTACE,R1                                                00043000
 ZNEPSTAL EQU   *                                                  *02*  00044000
          CLC   TWANID,STACENAM      THIS ENTRY   ?                *02*  00045000
          BE    ZNEPSTAS             YES. SET IN ERROR             *02*  00045010
          CLI   STACENAM,X'FF'       END OF LIST ?                 *02*  00045020
          BE    RETURN               YES. FINISH UP                *02*  00045030
          LA    R1,STACEL$(R1)       NO. NEXT ENTRY                *02*  00045040
          B     ZNEPSTAL             CONTINUE                      *02*  00045050
 ZNEPSTAS EQU   *                                                  *02*  00045060
          OI    STACEFLG,#STACEAB    SET ERROR TASK IN CONTROL     *02*  00045070
 ZNEPSCFZ EQU   *                                                  *02*  00045080
 * INSERT THE FOLLOWING LINES AFTER THE LTORG LINE                 *02*  00050000
          DURBMU                                                   *02*  00051010
 ./ CHANGE NAME=DURBMU                                                           
          DURBMU &HOST=,&RGEQU=YES                                 *10*  00002000
 .*  DURBMU- 10 28AUG94 B4794 ALLOW FOR NOT DOING REGISTER EQUATES  *10* 00002010
          AIF   ('&RGEQU' NE 'YES').NEQU                            *10* 00264010
 .NEQU    ANOP                                                      *10* 00265010

End of Zap Deck