Selection Screen Options

  TABLES : sflight, sscrfields.

SELECTION-SCREEN BEGIN OF LINE.
  SELECTION-SCREEN COMMENT  1(10) text-001 FOR FIELD p_1.
  PARAMETERS : p_1 LIKE  sflight-carrid.

  SELECTION-SCREEN POSITION POS_LOW.
  PARAMETERS : p_2 LIKE   sflight-connid.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN SKIP 2.
SELECTION-SCREEN ULINE.
SELECTION-SCREEN ULINE /1(10).
SELECTION-SCREEN ULINE pos_low(10).
SELECTION-SCREEN ULINE pos_high(10).

SELECTION-SCREEN PUSHBUTTON /pos_low(10) text-002 USER-COMMAND psh.

SELECTION-SCREEN BEGIN OF BLOCK block WITH FRAME TITLE text-003.
  PARAMETERS : p_3 TYPE c.
  SELECT-OPTIONS : s_1 FOR sflight-carrid.
SELECTION-SCREEN END OF BLOCK block.

SELECTION-SCREEN BEGIN OF BLOCK block2 WITH FRAME TITLE text-004
  NO INTERVALS.
  PARAMETERS : p_4 TYPE c.
  SELECT-OPTIONS : s_2 FOR sflight-carrid.
SELECTION-SCREEN END OF BLOCK block2.
SELECTION-SCREEN FUNCTION KEY 1.

INITIALIZATION.
MOVE 'Func key 1' TO sscrfields-functxt_01.

AT SELECTION-SCREEN.
IF sscrfields-ucomm = 'FC01'.

ENDIF.

결과 화면

 참조 : 이지 아밥 책