Resources



Problem Fix Number: 4664

For SYSTEM 2000 Version: 11.63

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

Description of Problem:

SOME DISCREPANCIES IN HOW THE FUNCTIONS (MODIFY AND INSERT) WORK WHEN GOING FROM MULTIPLE LINE TO SINGLE LINE MEMBER AND USING PF KEYS IN S2KU SESSION


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 V11.63  BUG 4664  OS                                                     
 ./ CHANGE NAME=S2KPTR                                                           
 * *04* 07JAN93 GOH B4664 RUN OUTBLD PRIOR TO REWRITING CTRL             00011980
 *04* CHANGE ORDER OF LINKS SO THAT OUTBLD GETS CALLED FIRST             00096090
      EXEC CICS LINK PROGRAM('OUTBLD') COMMAREA(EDITCOM) LENGTH(3000)    00097000
          SPACE 2                                                        00098000
          MVI   EDITFLG1,X'40'           PUT CONTROL               *04*  00099000
      EXEC CICS LINK PROGRAM('IOCTRL') COMMAREA(EDITCOM) LENGTH(3000)    00100000
 ./ CHANGE NAME=SETMODE                                                          
 * *04* 07JAN93 GOH B4664 CALL OUTBLD PRIOR TO CALLING IOCTRL        *   00010980
 *04* LINK MOVED AFTER LINK TO OUTBLD                                    00042000
 *04*                                                                    00043000
 *04* MVC INSTRUCTION MOVED INTENTIONALLY                          *04*  00051000
          MVC   TOTLINES,VSTOTLIN         RESET TOTAL LINES        *04*  00053010
 *04* MAKE CHANGES IN ORDER OF LINKS                                     00053990
          MVI   EDITFLG1,X'40'          WRITE CONTROL RECORD             00054010
      EXEC CICS LINK PROGRAM('IOCTRL') COMMAREA(EDITCOM) LENGTH(3000)    00054020
 *04* END OF UPDATE                                                      00054030
 ./ CHANGE NAME=IOCTRL                                                           
 * *04* 06JAN93 GOH B4664 SET USERID BEFORE WRITING NEW CTRL    *04*     00011999
          MVC   USERID(4),TWAUSER         SET USERID            *04*     00054010
          MVC   MEMNAME(4),TWAUSER        SET DEFAULT MEMBER    *04*     00054020
 ./ CHANGE NAME=OUTBLD                                                           
 * *04* 07JAN93 GOH B4664 NEVER ALLOW CURLINE GT TOTLINES                00000997
          CLC   CURLINE,TOTLINES         WITHIN REASON ?            *04* 00024002
          BNH   OBLD0002                 YES. CONTINUE              *04* 00024004
          MVC   CURLINE,=H'1'            NO. SET TO FIRST LINE      *04* 00024006
 ./ CHANGE NAME=S2KEDTRT                                                         
 * *08* 08JAN92 GOH B4664 ALWAYS SET TRAN ID                             00000999
          BE    EDIT0025                YES. CHECK SEND          *08*    00038000
 EDIT0025 EQU   *                                                  *08*  00043010
          CLC   SCFCTRN,CSEND           SEND TRAN ?                *08*  00043020
          BNE   CMDMOVE                 NO. ASSUME INPUT           *08*  00043030
          MVC   EDITTRID(4),EIBTRNID    SET FOR RET TO S2KU        *08*  00043040
          MVC   EDITTRN,EIBTRNID                                   *08*  00043050
          B     CMDMOVE                 CONTINUE                   *08*  00043060
 ./ CHANGE NAME=S2KINS                                                           
 * *07* 11JAN93 GOH B4664 TURN OFF INSERT MODE ON ERROR CONDITION        00005950
          LR    R8,R15                SAVE RETURN CODE            *07*   00116010
          MVI   INSMODE,INSOFF        TURN OFF INSERT ON ERROR    *07*   00116020
          MVI   EDITFLG1,X'40'           PUT CONTROL              *07*   00116030
      EXEC CICS LINK PROGRAM('IOCTRL') COMMAREA(EDITCOM) LENGTH(3000)    00116040
          LR    R15,R8                RESTORE RETURN CODE         *07*   00116050
 ./ CHANGE NAME=S2KLIST                                                          
 * *10* 12JAN93 GOH B4664 ALLOW FOR TPLX TRANSACTION PROCESSING    *10*  00024995
          CLC   EIBTRNID,CTPLX      TPLX REQUEST ?                *10*   00103010
          BE    LIST0110            YES. BYPASS SPEC INPUT        *10*   00103020

End of Zap Deck