在SELECTION-SCREEN中创建多选框

SELECTION-SCREEN BEGIN OF LINE. PARAMETERS P_UPSV TYPE XFELD. SELECTION-SCREEN COMMENT 02(04) upsv_ico FOR FIELD P_UPSV. "#ECNEEDED SELECTION-SCREEN COMMENT 06(20) upsv_txt FOR FIELD P_UPSV. "#EC NEEDED SELECTION-SCREEN END OF LINE.

 

 XFELD :  "复选框 'X' or ''.

 

DATA: it_tups03    LIKE tups03 OCCURS 0 WITH HEADER LINE.

SELECT * FROM tups03 INTO TABLE it_tups03.

 

LOOP AT it_tups03.

CASE it_tups03-upsstat.
WHEN ''.

WRITE  it_tups03-icon AS ICON TO upsv_ico.
             upsv_txt = l_txt.

ENDCASE.

ENDLOOP.

 CASE sscrfields-ucomm.

    WHEN 'OUT'.
      p_upsv = kups_true. "  kups_true TYPE C VALUE 'X'

 ENDCASE.