Code: Alles auswählen.
REPORT.
DATA: %%gt_rsparams TYPE rsparams_tt.
FREE MEMORY ID '%%GT_RSPARAMS'.
* Das hier muss vor dem Aufruf angelegt worde sein oder dynamisch generiert werden.
SUBMIT zss_test1b VIA SELECTION-SCREEN AND RETURN.
IMPORT %%gt_rsparams FROM MEMORY ID '%%GT_RSPARAMS'.
BREAK-POINT.Code: Alles auswählen.
INCLUDE balvst01.
PARAMETERS: %%tricky NO-DISPLAY.
DATA: %%gt_rsparams TYPE rsparams_tt.
AT SELECTION-SCREEN ON %%tricky.
CHECK sy-ucomm = 'ONLI'.
CALL FUNCTION 'RS_REFRESH_FROM_SELECTOPTIONS'
EXPORTING
curr_report = sy-repid
TABLES
selection_table = %%gt_rsparams
EXCEPTIONS
not_found = 1
no_report = 2
OTHERS = 3.
IF sy-subrc = 0.
EXPORT %%gt_rsparams TO MEMORY ID '%%GT_RSPARAMS'.
ENDIF.
LEAVE PROGRAM.Folgende Benutzer bedankten sich beim Autor black_adept für den Beitrag:
a-dead-trousers
Code: Alles auswählen.
*&---------------------------------------------------------------------*
*& Form GET_DYNPVALUES
*&---------------------------------------------------------------------*
FORM get_dynpvalues USING p_progname TYPE syrepid
CHANGING pt_rsparams TYPE rsparams_tt.
DATA: lt_source TYPE abapsource_t,
tmp_reportname TYPE syrepid VALUE 'ZGET_SELSCREENDATA_TMP_PROG'.
APPEND 'INCLUDE #1.' TO lt_source.
APPEND 'INCLUDE zget_selscreendata_tricky.' TO lt_source.
REPLACE '#1' IN TABLE lt_source WITH p_progname.
INSERT REPORT tmp_reportname FROM lt_source.
CHECK sy-subrc = 0.
GENERATE REPORT tmp_reportname.
CHECK sy-subrc = 0.
FREE MEMORY ID '%%GT_RSPARAMS'.
* Das hier muss vor dem Aufruf dynamisch generiert werden.
SUBMIT (tmp_reportname) VIA SELECTION-SCREEN AND RETURN.
IMPORT %%gt_rsparams FROM MEMORY ID '%%GT_RSPARAMS'.
ENDFORM. " GET_DYNPVALUESFolgende Benutzer bedankten sich beim Autor black_adept für den Beitrag:
a-dead-trousers