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