Wednesday, January 21, 2015

ABAP Tip-Using single value in select-options




REPORT  zso_01.

TABLES sflight.

SELECT-OPTIONS s_carrid FOR sflight-carrid NO INTERVALS.

TYPE-POOLS sscr.


DATA restrict TYPE sscr_restrict.
DATA optlist  TYPE sscr_opt_list,
       ass      TYPE sscr_ass.

INITIALIZATION.

  optlist-name 'OBJECTKEY1'.
  optlist-options-eq 'X'.
*  optlist-options-bt = ' '.

  optlist-options-cp 'X'.
  optlist-options-ge 'X'.
  optlist-options-lt 'X'.
  optlist-options-ne 'X'.
  APPEND optlist TO restrict-opt_list_tab.

  ass-kind 'S'.
  ass-name 'S_CARRID'.   " name of SELECT-OPTIONS
  ass-sg_main 'I'.
  ass-sg_addy space.
  ass-op_main 'OBJECTKEY1'.
  APPEND ass TO restrict-ass_tab.

  CALL FUNCTION 'SELECT_OPTIONS_RESTRICT'
    EXPORTING
      restriction            restrict
      db                     ' '.

No comments:

Post a Comment