How to pass Selection screen values to another program's selection screen

Question

Hello,
I have a requriement where in which i need to pass the selection screen values (say list of pernrs) and few others of one program to selection screen of another. 
One option that i came across is using Submit. But am unware how to pass only the selection screen values (there wont be any data processing or filtering).  Just the values of one prgm's selection screen are to be sent to another.
Thanks
RK

Answer 1

prog1.
data:lt_params type table of RSPARAMS.
data:wa like line of lt_params.
parameters:pa1 type sy-datum.
select-options:so1 type sy-dtaum.
wa-SELNAME = 'PA2'.               "Seletion screen field name
wa-KIND     = 'P'.                    "P-Parameter,S-Select-options
wa-SIGN     = 'I'.                    "I-in
wa-OPTION     = 'EQ'.               "EQ,BT,CP
wa-LOW     = pa1.                    "Selection Option Low,Parameter value
append wa to lt_params.
loop at so1.
wa-SELNAME = 'SO2'.               "Seletion screen field name
wa-KIND     = 'S'.                    "P-Parameter,S-Select-options
wa-SIGN     = 'I'.                    "I-in
wa-OPTION     = 'EQ'.               "EQ,BT,CP
wa-LOW     = so1-low.               "Selection Option Low,Parameter value
wa-HIGH     = so1-high.               "Selection Option Low,Parameter value
append wa to lt_params.
endloop.
CALL FUNCTION 'SUBMIT_REPORT'
  EXPORTING
    report                 = 'ZPROG2.'   "report name of ur tocde
    RET_VIA_LEAVE          = ''            "IF 'X' returns to the called program after execution
    SKIP_SELSCREEN         = 'X'       "If 'X' selection screen of called program is not displayed
TABLES
   SELECTION_TABLE        = lt_params       "Contains values to the selection screen
EXCEPTIONS
  JUST_VIA_VARIANT       = 1
  NO_SUBMIT_AUTH         = 2
  OTHERS                 = 3
Prog2.
parameters:pa2 type sy-datum.
select-options:so2 type sy-dtaum.
write pa2.
skip 1.
loop at so2.
write:so2-low,so2-high.
skip 1.
endloop.
Edited by: Keshu Thekkillam on Aug 20, 2009 3:22 PM