To use the selection screen entry in another program

Question

dear all,
i have a requirement that i want to use the selection screen entry of my zmodule pool to the selection screen of a zreport and want to use its output in my module pool.
how could i do this in my module pool programing??
i hope u get my question, i want to use the output of my zreport in my module pool with the same selection screen as given in module pool.,directly in my module pool output without opening my zreport seperately for this same selection screen data

Answer 1

Hi,
  You can use SUBMIT statement in your module program to call the zreport program in background.
Press F1 on Submit statement and you will find required detials of this statement. For using submit statement
you have to create an internal table of type RSPARAMS and pass it in the submit statement.
eg.
DATA :
*  table to be passed to background report 'ZREPORT1'
    int_rspar TYPE TABLE OF rsparams,
    ws_rspar TYPE rsparams.
CONSTANTS: c_include     TYPE rsparams-sign               VALUE 'I',
           c_kind        TYPE rsparams-kind               VALUE 'S',
           c_between     TYPE rsparams-option             VALUE 'BT'.
*Preparing the table to be passed to the background report.
*populating SELECT-OPTION for knb1-kunnr (Customer Number)
CLEAR : ws_rspar.
ws_rspar-selname = 'S_KUNNR'. "Should be the name of select option as in                               the called report
ws_rspar-kind = c_kind.
ws_rspar-sign = c_include.
ws_rspar-option = c_between.
ws_rspar-low = '1'.
ws_rspar-high = '100'.
APPEND ws_rspar TO int_rspar.
*populating SELECT-OPTION for knb1-bukrs (Company code)
CLEAR : ws_rspar.
ws_rspar-selname = 'S_BUKRS'.
ws_rspar-kind = c_kind.
ws_rspar-sign = c_include.
ws_rspar-option = c_between.
ws_rspar-low = 'a'.
ws_rspar-high = 'z'.
APPEND ws_rspar TO int_rspar.
submit zreport
  with selection-table int_rspar
      EXPORTING LIST TO MEMORY
          and return.
The above code will execute the zreport in backgournd.
Now to get the output of the zreport :-
*This internal table stores the value
*Of output listed to memory
DATA BEGIN OF itab_list OCCURS 0.
INCLUDE STRUCTURE abaplist.
DATA END OF itab_list
* To read from the memory. The output of the program that is executed in background is then populated in the itab_list table.
CALL FUNCTION 'LIST_FROM_MEMORY'
TABLES
listobject = itab_list
EXCEPTIONS
not_found = 4
OTHERS = 8.
* To write it onto the output
CALL FUNCTION 'WRITE_LIST'
EXPORTING
WRITE_ONLY = 'X'
TABLES
listobject = itab_list
EXCEPTIONS
EMPTY_LIST = 1
OTHERS = 2
IF sy-subrc 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
Regards,
Bhavesh.