2018.03.30 abap屏幕标签保存之前执行过的状态

 REPORT  ZZJX_TEST09.
 *&---------------------------------------------------------------------*
 TABLES: T001W,T161,T161T,T024.

 DATA: L_OBJ TYPE REF TO CL_GUI_FRONTEND_SERVICES.
 DATA: IT_FILE TYPE FILETABLE WITH HEADER LINE.
 DATA: G_RC TYPE I.
 DATA: IL_RAW TYPE TRUXS_T_TEXT_DATA.

 DATA: G_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE,   "字段内表
       L_LAYOUT TYPE SLIS_LAYOUT_ALV.

 DATA: BEGIN OF GT_UPLOAD OCCURS ,
        DATA1() TYPE C,
        DATA2() TYPE C,
       END OF GT_UPLOAD.
 DATA: BEGIN OF GT_ALV1 OCCURS .
 *        INCLUDE STRUCTURE ZMMWERKS1.
 DATA:  STA() TYPE C,
     END OF GT_ALV1.

 DATA: BEGIN OF GT_ALV2 OCCURS .
 *        INCLUDE STRUCTURE ZMMWERKS2.
 DATA:  STA() TYPE C,
     END OF GT_ALV2.
 FIELD-SYMBOLS: <ALV1> LIKE LINE OF GT_ALV1,
                <ALV2> LIKE LINE OF GT_ALV2.
 DATA: L_FLAG TYPE I VALUE .

 DATA: BEGIN OF L_SIGN,
       FLAG TYPE I VALUE ,
       BUTTON TYPE I VALUE ,
   END OF L_SIGN.

 SELECTION-SCREEN BEGIN OF SCREEN  AS SUBSCREEN.
 SELECTION-SCREEN BEGIN OF BLOCK S01 WITH FRAME TITLE TEXT-C01.
 PARAMETERS: P_RB1 RADIOBUTTON GROUP T1 DEFAULT 'X' USER-COMMAND T1,
             P_RB2 RADIOBUTTON GROUP T1 .
 SELECTION-SCREEN END OF BLOCK S01.
 SELECTION-SCREEN BEGIN OF BLOCK S02 WITH FRAME TITLE TEXT-C02.
 SELECT-OPTIONS: S_WERKS FOR T001W-WERKS.
 SELECTION-SCREEN END OF BLOCK S02.
 SELECTION-SCREEN END OF SCREEN .

 SELECTION-SCREEN BEGIN OF SCREEN  AS SUBSCREEN.
 SELECTION-SCREEN BEGIN OF BLOCK S03 WITH FRAME TITLE TEXT-C01.
 PARAMETERS: P_RB3 RADIOBUTTON GROUP T2 DEFAULT 'X' USER-COMMAND T2,
             P_RB4 RADIOBUTTON GROUP T2 .
 SELECTION-SCREEN END OF BLOCK S03.
 SELECTION-SCREEN BEGIN OF BLOCK S04 WITH FRAME TITLE TEXT-C02.
 SELECT-OPTIONS: T_WERKS FOR T001W-WERKS,
                 T_BSART FOR T161-BSART MODIF ID M3,
                 T_EKGRP FOR T024-EKGRP MODIF ID M4.
 SELECTION-SCREEN END OF BLOCK S04.
 SELECTION-SCREEN END OF SCREEN .

 SELECTION-SCREEN BEGIN OF SCREEN  AS SUBSCREEN.
 SELECTION-SCREEN BEGIN OF BLOCK S05 WITH FRAME TITLE TEXT-C01.
 PARAMETERS: P_RB5 RADIOBUTTON GROUP T3 DEFAULT 'X' USER-COMMAND T3,
             P_RB6 RADIOBUTTON GROUP T3 .
 SELECTION-SCREEN END OF BLOCK S05.
 SELECTION-SCREEN BEGIN OF BLOCK S06 WITH FRAME TITLE TEXT-C02.
 PARAMETERS: P_FIL1 TYPE RLGRAP-FILENAME MODIF ID M5,
             P_FIL2 TYPE RLGRAP-FILENAME MODIF ID M6.
 SELECTION-SCREEN END OF BLOCK S06.

 SELECTION-SCREEN END OF SCREEN .

 SELECTION-SCREEN: BEGIN OF TABBED BLOCK MYTAB FOR  LINES,
    TAB () BUTTON1 USER-COMMAND PUSH1,
    TAB () BUTTON2 USER-COMMAND PUSH2,
    TAB () BUTTON3 USER-COMMAND PUSH3,
 END OF BLOCK MYTAB.

 INITIALIZATION.
   BUTTON1 = TEXT-A01.
   BUTTON2 = TEXT-A02.
   BUTTON3 = TEXT-A03.
   MYTAB-PROG = SY-REPID.

   IMPORT L_SIGN FROM MEMORY ID 'FLAG'."主要使用内存共享的方式来实现，进入list退出之后保存进去之前的标签
   CASE L_SIGN-FLAG.
     WHEN .
       MYTAB-DYNNR = .
       MYTAB-ACTIVETAB = 'PUSH1'.
     WHEN .
       MYTAB-DYNNR = .
       MYTAB-ACTIVETAB = 'PUSH2'.
     WHEN .
       MYTAB-DYNNR = .
       MYTAB-ACTIVETAB = 'PUSH3'.
   ENDCASE.
   MODIFY SCREEN.
   FREE MEMORY ID 'FLAG'.

   "为控件页签单击事件, 选择不同页签显示不同子屏幕.

 AT SELECTION-SCREEN.
   CASE SY-UCOMM.
     WHEN 'PUSH1'.
       MYTAB-DYNNR = .
       MYTAB-ACTIVETAB = 'PUSH1'.
       L_SIGN-FLAG = .
       L_SIGN-BUTTON = .
     WHEN 'PUSH2'.
       MYTAB-DYNNR = .
       MYTAB-ACTIVETAB = 'PUSH2'.
       L_SIGN-FLAG = .
       L_SIGN-BUTTON = .
     WHEN 'PUSH3'.
       MYTAB-DYNNR = .
       MYTAB-ACTIVETAB = 'PUSH3'.
       L_SIGN-FLAG = .
       L_SIGN-BUTTON = .
   ENDCASE.
   EXPORT L_SIGN TO MEMORY ID 'FLAG'.

 AT SELECTION-SCREEN OUTPUT.

   LOOP AT SCREEN.
     CASE SCREEN-GROUP1.
       WHEN 'M1'.
         IF P_RB1 IS INITIAL.
           SCREEN-ACTIVE = ''.
         ELSE.
           SCREEN-ACTIVE = ''.
         ENDIF.
       WHEN 'M2'.
         IF P_RB2 IS INITIAL.
           SCREEN-ACTIVE = ''.
         ELSE.
           SCREEN-ACTIVE = ''.
         ENDIF.
       WHEN 'M2'.
         IF P_RB3 IS INITIAL.
           SCREEN-ACTIVE = ''.
         ELSE.
           SCREEN-ACTIVE = ''.
         ENDIF.
       WHEN 'M4'.
         IF P_RB4 IS INITIAL.
           SCREEN-ACTIVE = ''.
         ELSE.
           SCREEN-ACTIVE = ''.
         ENDIF.
       WHEN 'M5'.
         IF P_RB5 IS INITIAL.
           SCREEN-ACTIVE = ''.
         ELSE.
           SCREEN-ACTIVE = ''.
         ENDIF.
       WHEN 'M6'.
         IF P_RB6 IS INITIAL.
           SCREEN-ACTIVE = ''.
         ELSE.
           SCREEN-ACTIVE = ''.
         ENDIF.
     ENDCASE.
     MODIFY SCREEN.
   ENDLOOP.

 AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FIL1. "弹出选择文件对话框
   CREATE OBJECT L_OBJ.
   CLEAR IT_FILE[].
   CALL METHOD L_OBJ->FILE_OPEN_DIALOG
     EXPORTING
       FILE_FILTER       = '*.xls;*.xlsx;*.txt'
       INITIAL_DIRECTORY = 'C:\data'
     CHANGING
       FILE_TABLE        = IT_FILE[]
       RC                = G_RC.
   READ TABLE IT_FILE INDEX .
   P_FIL1 = IT_FILE-FILENAME.

 AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FIL2. "弹出选择文件对话框
   CREATE OBJECT L_OBJ.
   CLEAR IT_FILE[].
   CALL METHOD L_OBJ->FILE_OPEN_DIALOG
     EXPORTING
       FILE_FILTER       = '*.xls;*.xlsx;*.txt'
       INITIAL_DIRECTORY = 'C:\data'
     CHANGING
       FILE_TABLE        = IT_FILE[]
       RC                = G_RC.
   READ TABLE IT_FILE INDEX .
   P_FIL2 = IT_FILE-FILENAME.

 START-OF-SELECTION.

 END-OF-SELECTION.
   WRITE:/ 'hello'.

F8进去的时候是这样的，出来的时候还是停留在标签3处。