Passing an internal to another program using SUBMIT

Question

Hi,
   I need to pass one internal table from one program to another which i am calling using SUBMIT. Is there any way to pass this data without using export/import or selection screen.
   If i do use EXPORT is there a retriction to the maximum size i can export?
Thanks

Answer 1

Hi Pankaj,
Consider these two programs I have done using both WITH SELECTION-TABLE and IMPORT/EXPORT.
In Program 1(ZZTEST_ARUN_1).
I have two radio buttons. If I select Material the program executes its own code. If I select plant data is fetched and exported to memory. Then it gets the selection parameters of the Program 2(ZZTEST_ARUN_2) through the FM RS_REFRESH_FROM_SELECTOPTIONS. Then I populate the values for selection screen and pass using the
SUBMIT....WITH SELECTION-TABLE option.
REPORT zztest_arun_1.
  TABLES: t001w.
  DATA : it_marc TYPE STANDARD TABLE OF marc WITH HEADER LINE,
         it_werks TYPE STANDARD TABLE OF t001w WITH HEADER LINE.
   PARAMETERS material RADIOBUTTON  GROUP  abc.     "Material General Details
   PARAMETERS plant RADIOBUTTON GROUP abc DEFAULT 'X'.      "Material Plant Details
   START-OF-SELECTION.
   IF material EQ 'X'.
*If Material selected own code executes  
    SELECT * FROM marc INTO TABLE it_marc UP TO 200 ROWS .
     LOOP AT it_marc.
     WRITE :/ it_marc-matnr,
            it_marc-werks.
     ENDLOOP.
   ENDIF.
  IF plant EQ 'X'.
*If Plant selected data fetched  
    SELECT * FROM t001w INTO TABLE it_werks UP TO 50 ROWS.
*Exported to Memory
    EXPORT it_werks[] TO MEMORY ID 'TEST'.
*Declare on selection table type RSPARAMS
    DATA :   stable     LIKE     rsparams OCCURS 0 WITH HEADER LINE.
*Call this FM to get the Selection screen details
*of Program ZZTEST_ARUN_2 (it returns Select Options, Parameters..)
    CALL FUNCTION 'RS_REFRESH_FROM_SELECTOPTIONS'
       EXPORTING
         curr_report     = 'ZZTEST_ARUN_2'
      TABLES
         selection_table = stable
      EXCEPTIONS
         not_found       = 1
         no_report       = 2
         OTHERS          = 3.
    IF sy-subrc <> 0.
     MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
     WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    ENDIF.
   stable-sign = 'I'.
   stable-option = 'BT'.
* populate some selection condition
   READ TABLE it_werks INDEX 10.
   stable-low = it_werks-werks.
   READ TABLE it_werks INDEX 40.
   stable-high = it_werks-werks.
   APPEND stable.
*Submit it then
   SUBMIT zztest_arun_2
       WITH SELECTION-TABLE stable
       AND RETURN.
   ENDIF.
<b>Second Program.</b>
REPORT zztest_arun_2.
TABLES: t001w.
DATA : it_werks TYPE STANDARD TABLE OF t001w WITH HEADER LINE.
SELECT-OPTIONS : s_werks FOR t001w-werks.
*Import the stored data.
IMPORT it_werks[] FROM MEMORY ID 'TEST'.
*Display the data based on selection criteria got
*form ZZTEST_ARUN_1
LOOP AT it_werks WHERE werks  IN s_werks.
  WRITE : / it_werks-werks,
            it_werks-name1.
ENDLOOP.
Regards,
Arun Sambargi.