*---pushbutton
TABLES sscrfields.
SELECTION-SCREEN PUSHBUTTON /8(10) text-020 USER-COMMAND cli1.
SELECTION-SCREEN PUSHBUTTON 20(10) text-021 USER-COMMAND cli2.
*---block
SELECTION-SCREEN BEGIN OF BLOCK bk2 WITH FRAME TITLE cond2.
*---comment
SELECTION-SCREEN COMMENT /1(30) comm1 .
*---line
SELECTION-SCREEN BEGIN OF LINE .
*---radiobutton
PARAMETERS pnor RADIOBUTTON GROUP grp1 DEFAULT 'X' .
PARAMETERS ppark RADIOBUTTON GROUP grp1.
SELECTION-SCREEN END OF LINE .
SELECTION-SCREEN BEGIN OF LINE .
*---checkbox
PARAMETERS pnor1 AS CHECKBOX DEFAULT 'X' .
PARAMETERS ppark1 AS CHECKBOX.
SELECTION-SCREEN END OF LINE .
SELECTION-SCREEN END OF BLOCK bk2.
SELECTION-SCREEN BEGIN OF BLOCK blk WITH FRAME TITLE text-001.
SELECTION-SCREEN BEGIN OF LINE .
PARAMETERS: r_01 RADIOBUTTON GROUP rad0 USER-COMMAND radio0.
SELECTION-SCREEN: POSITION 3.
*---comment for field
SELECTION-SCREEN COMMENT 3(10) text-002 FOR FIELD r_01.
PARAMETERS: r_02 RADIOBUTTON GROUP rad0.
SELECTION-SCREEN: POSITION 20.
SELECTION-SCREEN COMMENT 20(8) text-003 FOR FIELD r_02.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK blk.
AT SELECTION-SCREEN.
CASE sscrfields-ucomm. "或sy-ucomm
WHEN 'CLI1'.
MESSAGE 'sss' TYPE 'S'.
ENDCASE.
INITIALIZATION.
cond2 = '这是一个title'. "不能这样用
comm1 = '这是一行屏幕注释'. "这个可以
评论