Resources



Problem Fix Number: 4739

For SYSTEM 2000 Version: 11.63

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

Description of Problem:

THE REQUIREMENTS FOR CICS 3.2 AND ABOVE ARE DIFFERENT THAN PREVIOUS RELEASES. THE ERROR PROGRAMS HAVE TO BE COMMAND LEVEL AND THE ERROR CONDITIONS MUS


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 4739  MVS                                                    
 ./ ADD NAME=S2KTRM32                                                            
 ./ NUMBER NEW1=1000,INCR=1000                                                   
 *********************************************************************           
 ***     VTAM DEPENDENT CODE TO HANDLE TERMINAL ERRORS.            ***           
 ***     INSERT INTO DFHZNEPX COPY CODE AS INDICATED BY COMMENTS.   **           
 ***     THIS ROUTINE HAS BEEN PRE-TRANSLATED AND SHOULD BE         **           
 ***     INSERTED AFTER THE LABEL NEP0AF IN DFHZNEPX                **           
 ***                                                                **           
 ***     WHEN LINK EDITING THE DFHZNEP MODULE AFTER THIS CHANGE     **           
 ***     THE ENTRY POINT TO THE RESULTING LOAD MODULE MUST BE       **           
 ***     SET TO DFHZNENA.                                           **           
 ***                                                                **           
 *********************************************************************           
 * *00* 19NOV93 GOH B4739 NEW ZNEP CODE FOR CICS 3.2 AND ABOVE                   
          TM    TWAOPT2,TWAOGMM    GOOD MORNING MESSAGE ?                        
          BO    RETURN             YES. JUST RETURN                              
          TM    TWAOPT2,TWAOASM    LOGON ?                                       
          BO    RETURN             YES. JUST RETURN                              
 *                                                                               
 * START SCFZ TO CALL SCFTERM.  STORE THE TERMINAL ID TO BE                      
 * RETRIEVED BY SCFTERM AS IT EXECUTES.                                          
 *                                                                               
 *    EXEC CICS START TRANSID('SCFZ') FROM(TWANID) LENGTH(4)                     
          DFHECALL =X'1008B8000800005000',(___4,=PL4'0'),,(CHA4,=CL4'SCF*        
                Z'),(______RF,TWANID),(FB_2,=Y(4))                               
 RETURN   DS    0H                                                               
 ./ CHANGE NAME=SCFTERM                                                          
 * *12* 08DEC93 GOH B4739 ALLOW FOR CALL FROM DFHZNEP AND REMOVE   *12*  00026950
 *                        REFERENCES TO S2KCZAPS, FREE PCI BLOCKS  *12*  00026960
 TERMHWD  DS    H                                          *12*          00037010
          CLC   EIBTRNID,CSCFZ      FROM DFHZNEP (3.3) ?   *12*          00049010
          BE    TERM001A            YES. DO A SCFCOMM      *12*          00049020
 TERM001A EQU   *                                          *12*          00054100
 *12* REMOVE REFERENCES TO S2KCZAPS                                      00059000
 *12*                                                                    00060000
          CLC   EIBTRNID,CSCFZ      FROM ZNEP ?             *12*         00062010
          BE    TERM8000            YES. PROCESS TERM ERROR *12*         00062020
 *                                                                 *12*  00263010
 * DETERMINE IF USER HAS PCI BLOCK AND FREE IT TOO                 *12*  00263020
 *                                                                 *12*  00263030
          L     R14,SCFCUSE         ADDRESS USER MODULE            *12*  00263040
          L     R14,S2KPCIA-DS2KCUSE(R14)  ADDR PCI BLOCKS         *12*  00263050
          USING DS2KPCI,R14                                        *12*  00263060
 TERM0275 EQU   *                                                  *12*  00263070
          CLI   PCITRMNL,X'FF'      END OF BLOCKS ?                *12*  00263080
          BE    TERM0295            YES. WRAP IT UP                *12*  00263090
          CLC   PCITRMNL,SCFCUID    OUR PCI BLOCK ?                *12*  00263100
          BE    TERM0280            YES. PROCESS IT                *12*  00263110
          LA    R14,PCILEN$(R14)    NEXT BLOCK                     *12*  00263120
          B     TERM0275            CONTINUE PROCESS               *12*  00263130
 TERM0280 EQU   *                                                  *12*  00263140
          NI    PCIFLG2,X'F0'       CLEAR SIGNON FLAG              *12*  00263150
          XC    PCITRMNL,PCITRMNL   CLEAR TERMINAL ID              *12*  00263160
 TERM0295 EQU   *                                                  *12*  00263170
          DROP  R14                                                *12*  00263180
          CLC   EIBTRNID,CSCFZ          FROM ZNEP ?            *12*      00355010
          BNE   TERM8001                NO. CHECK FCI          *12*      00355020
          MVI   TERMFCI,X'00'           SET AS NOT TERM ORIENT *12*      00355030
      EXEC CICS RETRIEVE SET(R2) LENGTH(TERMHWD)                         00355040
          MVC   SCFCUID(4),0(R2)        SET SAVE TERM ID       *12*      00355050
          B     TERM8020                CONTINUE               *12*      00355060
 TERM8001 EQU   *                                              *12*      00355070
          B     TERM9990             FINISH UP              *12*         00455000
 CSCFZ    DC    CL4'SCFZ'                                      *12*      00482010
          DS2KPCI                                                  *12*  00504010
 ./ CHANGE NAME=PLXINIT                                                          
 * *20* 08DEC93 GOH B4739 ALLOW FOR DFHZNEP ACTIVITY              *20*   00029997
          CLC   EIBTRNID,CSCFZ      TERMINAL ERROR ?           *20*      00075010
          BNE   TERM005A            NO. CONTINUE               *20*      00075020
          MVI   PLXFCI,X'00'        YES. SET NOT TERM ORIENT   *20*      00075030
          B     TERM005B            CONTINUE                   *20*      00075040
 TERM005A EQU   *                                              *20*      00075050
 TERM005B EQU   *                                              *20*      00081010
 *20* REMOVE ALL                                                         00246000
 *20*      REFERENCES TO                                                 00247000
 *20*          S2KCZAPS                                                  00248000
 *20*                                                                    00249000
 CSCFZ    DC    CL4'SCFZ'                                      *20*      00281010
 ./ CHANGE NAME=PLXTERM                                                          
 * *19* 08DEC93 GOH B4739 ALLOW FOR DFHZNEP ACTIVITY               *19*  00018960
          CLC   EIBTRNID,CSCFZ      TERMINAL ERROR ?           *19*      00048010
          BNE   TERM001A            NO. CONTINUE               *19*      00048020
          MVI   TERMFCI,X'00'       YES. SET NOT TERM ORIEN    *19*      00048030
          B     TERM002A            CONTINUE                   *19*      00048040
 TERM001A EQU   *                                              *19*      00048050
 TERM002A EQU   *                                              *19*      00057020
          CLC   EIBTRNID,CSCFZ      TERMINAL ERROR ?           *19*      00071010
          BNE   TERM0005            NO. CONTINUE               *19*      00071020
          L     R1,DFHEICAP         ADDRESS SCF COMMON AREA    *19*      00071030
          MVC   PLXUID,SCFCUID-SCFCOMM(R1)   MOVE IN USERID    *19*      00071040
          B     TERM0010            CONTINUE PROCESSING        *19*      00071050
 TERM0005 EQU   *                                              *19*      00071060
 CSCFZ    DC    CL4'SCFZ'                                      *19*      00339020
          SCFCOMM                                              *19*      00362010
 ./ CHANGE NAME=DFHPCT12                                                         
 * *03* 27OCT93 GOH B4739 ADD ENTRY FOR THE SCFZ TRANSACTION             00001990
 *03* ADDED ENTRY FOR TRAN SCFZ                                          00021010
          DFHPCT TYPE=ENTRY,TRANSID=SCFZ,PROGRAM=SCFTERM,TWASIZE=256,   *00021020
                TPURGE=NO,SPURGE=NO,TRNPRTY=250                          00021030

End of Zap Deck