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.
