复制 GUI 状态

FORM frm_set_pf_status USING pt_extab TYPE slis_t_extab.
*--·状态 'STANDARD'是从系统功能组 KKBL GUI状态下的”STANDARD“下右键复制过去的
  DATA: l_rc(5).
  PERFORM copy_status_diff_progs_new IN PROGRAM saplsmpe IF FOUND
 USING 'X' 'SAPLKKBL' sy-repid 'STANDARD_FULLSCREEN' 'STATUS_ALV'
 CHANGING l_rc.

*   SET PF-STATUS 'STANDARD' EXCLUDING pt_extab.
*--·如果要排除按钮的话，需要在此处加上EXCLUDING PT_EXTAB
*  SET TITLEBAR 'TITLE'.
ENDFORM.                    "frm_set_pf_status


  CASE r_ucomm.
    WHEN 'E'."返回

      LEAVE TO SCREEN 0.
    WHEN 'ENDE'."退出
      LEAVE PROGRAM.
    WHEN 'ECAN'."取消
      LEAVE PROGRAM.
endcase.


  SET PF-STATUS 'SHBTCEVT' OF PROGRAM 'SAPLBTCH'.

  LEAVE TO LIST-PROCESSING AND RETURN TO SCREEN 9400.