FORM FRM_USER_STATUS USING EXTAB TYPE SLIS_T_EXTAB.
DATA:L_BUTXT TYPE BUTXT.
* SELECT SINGLE butxt INTO l_butxt FROM t001 WHERE bukrs IN s_bukrs.
"设置gui状态
SET PF-STATUS ‘STANDARD’ .
"设置动态标题
SET TITLEBAR ‘STANDARD’ WITH L_BUTXT .
ENDFORM.