SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE TEXT-002.
SELECTION-SCREEN:BEGIN OF LINE,
               PUSHBUTTON 1(15) sel USER-COMMAND sel,
               PUSHBUTTON 17(15) unsel USER-COMMAND unsel,
             END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS: c01 TYPE char1 AS CHECKBOX  DEFAULT 'X'."科目
SELECTION-SCREEN COMMENT 3(15)  TEXT-c01 FOR FIELD c01.
PARAMETERS: c02 TYPE char1 AS CHECKBOX  DEFAULT 'X'."供應商
SELECTION-SCREEN COMMENT 21(15)  TEXT-c02 FOR FIELD c02.
SELECTION-SCREEN END OF LINE.

  "設置文件選擇按鈕圖標及文字說明
  CALL FUNCTION 'ICON_CREATE'
    EXPORTING
      name   = icon_select_all
      text   = '全選選擇'
    IMPORTING
      result = sel
    EXCEPTIONS
      OTHERS = 0.
  CALL FUNCTION 'ICON_CREATE'
    EXPORTING
      name   = icon_deselect_all
      text   = '全選取消'
    IMPORTING
      result = unsel
    EXCEPTIONS
      OTHERS = 0.