Dialog OKCODE

Question

Daer All:
I have problem with okcode.
I click the GUI button and it can work.
But i  click the CUI button in the next screen, it can"t work.
I think the reason is i don't clear    the former okcode.  
To use GUI buttons in the next screen, can someone tell me where I can clear okcode.
Thanks.
The code :
<garbled code removed by moderator>
Moderator message: please post only relevant code parts, your posts must contain less than 5000 characters to preserve readable formatting.
Edited by: Thomas Zloch on Nov 8, 2011 11:40 AM

Answer 1

Dear max bianchi:
I repost the code:
REPORT  ZCH9TABCTRL.
*SCREENu8B8Au6578
*SCREENu5143u7D20 u5C0Du61C9
TABLES:  ZQACHK.
*u5BA3u544ASCREENu8B8Au6578u5167u8868
DATA : t_ZQACHK  TYPE STANDARD TABLE OF  ZQACHK  WITH HEADER
LINE.
*u5BA3u544A table control u8B8Au6578
CONTROLS : tabctrl TYPE TABLEVIEW USING SCREEN '9200'.
*GUIu8B8Au6578
DATA OK_CODE LIKE SY-UCOMM.
*for    SCREEN 9002 GUI
  DATA : ACTION TYPE C. "1 -->CREATE 2--->Change 3. Display
CALL SCREEN 9200.
*&      Module  SHOW_TABDATA  OUTPUT
*       text
MODULE  SHOW_TABDATA  OUTPUT.
  MOVE-CORRESPONDING   t_ZQACHK   TO ZQACHK.
ENDMODULE.                 " SHOW_TABDATA  OUTPUT
*&      Module  MARK_LINE  INPUT
*       text
MODULE   MARK_LINE   INPUT.
*  u53D6u5F97screenu8207itabu4E4Bu884Cu6578u5C0Du61C9u4F86u4FEEu6539u5167u5BB9
MODIFY   t_ZQACHK FROM ZQACHK INDEX tabctrl-CURRENT_LINE.
ENDMODULE.                 " MARK_LINE  INPUT
*&      Module  STATUS_9200  OUTPUT
*       text
MODULE STATUS_9200 OUTPUT.
  SET PF-STATUS 'ZCH9TABCTRL'.
*  SET TITLEBAR 'xxx'.
*u6E05u9664u4E0Au6B21u8B8Au6578
CLEAR OK_CODE.
ENDMODULE.                 " STATUS_9200  OUTPUT
*&      Module  USER_COMMAND_9200  INPUT
*       text
MODULE USER_COMMAND_9200 INPUT.
  CASE ok_code.
    WHEN 'MODIFY'.
      action = 2.
*      u8B80u6709u6A19u8A18u5230u4E4Bu5167u8868
      READ TABLE t_ZQACHK WITH KEY mark = 'X'.
*u82E5u6709u8B80u6210
      IF sy-subrc = 0.
*        u5C07u5167u8868u8F38u5230SCREEN
        MOVE-CORRESPONDING t_ZQACHK TO ZQACHK.
*        u547Cu53EB SCREEN
        CALL SCREEN 9000.
      ENDIF.
    WHEN 'DISPLAY'.
      action = 3.
      READ TABLE t_ZQACHK WITH KEY mark = 'X'.
      IF sy-subrc = 0.
        MOVE-CORRESPONDING t_ZQACHK TO ZQACHK.
        CALL SCREEN 9000.
      ENDIF.
    WHEN 'DELETE'.
      READ TABLE t_ZQACHK WITH KEY mark = 'X'.
      IF sy-subrc = 0.
      ENDIF.
ENDCASE.
ENDMODULE.                 " USER_COMMAND_9200  INPUT
*&      Module  EXIT_9200  INPUT
*       text
MODULE EXIT_9200 INPUT.
    CASE ok_code.
    WHEN 'EXIT'.
      LEAVE PROGRAM.
    WHEN 'CANCEL'.
      SET SCREEN 0.
      LEAVE SCREEN.
    WHEN OTHERS.
  ENDCASE.
ENDMODULE.                 " EXIT_9200  INPUT
*&      Module  STATUS_9000  OUTPUT
*       text
MODULE STATUS_9000 OUTPUT.
  WRITE: OK_CODE.
CLEAR  OK_CODE.
WRITE: OK_CODE.
  SET PF-STATUS 'STATUS_9000'.
*  SET TITLEBAR 'xxx'.
ENDMODULE.                 " STATUS_9000  OUTPUT
*&      Module  USER_COMMAND_9000  INPUT
*       text
MODULE USER_COMMAND_9000 INPUT.
   CASE OK_CODE.
WHEN 'SAVE'.
              CASE  ACTION.
*              u65B0u589E
              WHEN  1.
          ZQACHK-mandt = sy-mandt.
          INSERT ZQACHK.
          IF sy-subrc = 0.
          MESSAGE  'u65B0u589Eu8CC7u6599u6210u529F'(002)  TYPE 'S'.
        ENDIF.
*              u4FEEu6539
                WHEN 2.
           UPDATE   ZQACHK.
           IF sy-subrc = 0.
          MESSAGE  'u4FEEu6539u8CC7u6599u6210u529F'(003)  TYPE 'S'.
           ENDIF.
          CLEAR ZQACHK.
          SET SCREEN 0.
          LEAVE SCREEN.
               ENDCASE.
WHEN 'EXIT'.
    LEAVE    PROGRAM .
  WHEN 'CANCEL'.
  LEAVE    PROGRAM  .
ENDCASE.
ENDMODULE.                 " USER_COMMAND_9000  INPUT