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