*&--------------------------------------------------------------------- *
*& FORM G_STATUS_FORM 调用自定义屏幕
*&---------------------------------------------------------------------
FORM SET_PF_STATUS USING RT_EXTAB TYPE SLIS_T_EXTAB.
DATA lt_fcode TYPE TABLE OF sy-ucomm.
REFRESH LT_FCODE.
IF SUMFLG NE 'X'.
APPEND '&CRTT' TO LT_FCODE.
APPEND '&REL' TO LT_FCODE.
ELSE.
IF FLG NE 'X'.
APPEND '&DSUM' TO LT_FCODE.
APPEND '&REL' TO LT_FCODE.
ELSE.
APPEND '&DSUM' TO LT_FCODE.
APPEND '&CRTT' TO LT_FCODE.
ENDIF.
ENDIF.
SET PF-STATUS 'STANDARD' EXCLUDING lt_fcode.
* SET PF-STATUS 'STANDARD' EXCLUDING EXCLTAB.
ENDFORM. "SET_PF_STATUS