DATA rspar TYPE TABLE OF rsparams WITH HEADER LINE.
"Get all value on screen
CALL FUNCTION 'RS_REFRESH_FROM_SELECTOPTIONS'
EXPORTING
curr_report = sy-repid
* IMPORTING
* SP =
TABLES
selection_table = rspar .
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
“additional value
rspar-selname = 'JOBCOUNT'.
rspar-kind = 'P'. “P = parameter , S = Select option
rspar-sign = 'I'.
rspar-option = 'EQ'.
rspar-low = ‘1’.
APPEND rspar.
"Submit Program
SUBMIT (program_name) AND RETURN
WITH SELECTION-TABLE rspar
No comments:
Post a Comment