CALL_SPLIT SAP Function module

DATA:
it_left_tab  
 
 TYPE STANDARD TABLE OF RSWSOURCET,"TABLES PARAM
wa_left_tab
 
 LIKE LINE OF it_left_tab
,
it_right_tab  
 
 TYPE STANDARD TABLE OF RSWSOURCET,"TABLES PARAM
wa_right_tab
 
 LIKE LINE OF it_right_tab
,
it_lineindex_left  
 
 TYPE STANDARD TABLE OF EDLINEINDX,"TABLES PARAM
wa_lineindex_left
 
 LIKE LINE OF it_lineindex_left
,
it_lineindex_right  
 
 TYPE STANDARD TABLE OF EDLINEINDX,"TABLES PARAM
wa_lineindex_right
 
 LIKE LINE OF it_lineindex_right
,
it_smodilog_abap_left  
 
 TYPE STANDARD TABLE OF SMODILOG,"TABLES PARAM
wa_smodilog_abap_left
 
 LIKE LINE OF it_smodilog_abap_left
,
it_mod_tab_left  
 
 TYPE STANDARD TABLE OF SMODI_MOD_TAB,"TABLES PARAM
wa_mod_tab_left
 
 LIKE LINE OF it_mod_tab_left
,
it_smodilog_abap_right  
 
 TYPE STANDARD TABLE OF SMODILOG,"TABLES PARAM
wa_smodilog_abap_right
 
 LIKE LINE OF it_smodilog_abap_right
,
it_mod_tab_right  
 
 TYPE STANDARD TABLE OF SMODI_MOD_TAB,"TABLES PARAM
wa_mod_tab_right
 
 LIKE LINE OF it_mod_tab_right
.

 

SELECT single NAME 
  FROM TRDIR 
  INTO @DATA(ld_program_left).

 

SELECT single NAME 
  FROM TRDIR 
  INTO @DATA(ld_program_right).


DATA(ld_trdir_inf_left) = 'Check type of data required'.

DATA(ld_trdir_inf_right) = 'Check type of data required'.

DATA(ld_display_left) = 'some text here'.

DATA(ld_display_right) = 'some text here'.

DATA(ld_title_left) = 'some text here'.

DATA(ld_title_right) = 'some text here'.


DATA(ld_appid) = some text here

DATA(ld_ed_cursor_left) = 'Check type of data required'.

DATA(ld_ed_cursor_right) = 'Check type of data required'.
 

SELECT single NAME 
  FROM TRDIR 
  INTO @DATA(ld_callback_program_left).

 

SELECT single NAME 
  FROM TRDIR 
  INTO @DATA(ld_callback_program_right).



DATA(ld_callback_usercom_left) = some text here


DATA(ld_callback_usercom_right) = some text here


DATA(ld_callback_set_pfkey_left) = some text here


DATA(ld_callback_set_pfkey_right) = some text here


DATA(ld_callback_check_left) = some text here


DATA(ld_callback_check_right) = some text here


DATA(ld_callback_save_left) = some text here


DATA(ld_callback_save_right) = some text here


DATA(ld_callback_before_function_left) = some text here


DATA(ld_callback_before_function_right) = some text here


DATA(ld_callback_after_function_left) = some text here


DATA(ld_callback_after_function_right) = some text here


DATA(ld_callback_second_level) = some text here

DATA(ld_editor_mode_left) = 'Check type of data required'.

DATA(ld_editor_mode_right) = 'Check type of data required'.

DATA(ld_transport_key_left) = 'Check type of data required'.

DATA(ld_transport_key_right) = 'Check type of data required'.
 

SELECT single TRKORR 
  FROM E071 
  INTO @DATA(ld_korrnum_left).

 

SELECT single TRKORR 
  FROM E071 
  INTO @DATA(ld_korrnum_right).


DATA(ld_status_left) = 'some text here'.

DATA(ld_status_right) = 'some text here'.

DATA(ld_comment_ignore_flag) = 'some text here'.

DATA(ld_small_screen) = 'some text here'.
 

SELECT single EDC_WNDMOD 
  FROM RSEUMOD 
  INTO @DATA(ld_wnd_mode).

 

"populate fields of struture and append to itab
append wa_left_tab to it_left_tab.
 

"populate fields of struture and append to itab
append wa_right_tab to it_right_tab.
 

"populate fields of struture and append to itab
append wa_lineindex_left to it_lineindex_left.
 

"populate fields of struture and append to itab
append wa_lineindex_right to it_lineindex_right.
 

"populate fields of struture and append to itab
append wa_smodilog_abap_left to it_smodilog_abap_left.
 

"populate fields of struture and append to itab
append wa_mod_tab_left to it_mod_tab_left.
 

"populate fields of struture and append to itab
append wa_smodilog_abap_right to it_smodilog_abap_right.
 

"populate fields of struture and append to itab
append wa_mod_tab_right to it_mod_tab_right.
.

CALL FUNCTION 'CALL_SPLIT'
  EXPORTING
    program_left =               ld_program_left
    program_right =              ld_program_right
*   trdir_inf_left =             ld_trdir_inf_left
*   trdir_inf_right =            ld_trdir_inf_right
*   display_left =               ld_display_left
*   display_right =              ld_display_right
*   title_left =                 ld_title_left
    title_right =                ld_title_right
*   appid =                      ld_appid
*   ed_cursor_left =             ld_ed_cursor_left
*   ed_cursor_right =            ld_ed_cursor_right
*   callback_program_left =      ld_callback_program_left
*   callback_program_right =     ld_callback_program_right
*   callback_usercom_left =      ld_callback_usercom_left
*   callback_usercom_right =     ld_callback_usercom_right
*   callback_set_pfkey_left =    ld_callback_set_pfkey_left
*   callback_set_pfkey_right =    ld_callback_set_pfkey_right
*   callback_check_left =        ld_callback_check_left
*   callback_check_right =       ld_callback_check_right
*   callback_save_left =         ld_callback_save_left
*   callback_save_right =        ld_callback_save_right
*   callback_before_function_left =    ld_callback_before_function_left
*   callback_before_function_right =    ld_callback_before_function_right
*   callback_after_function_left =    ld_callback_after_function_left
*   callback_after_function_right =    ld_callback_after_function_right
*   callback_second_level =      ld_callback_second_level
*   editor_mode_left =           ld_editor_mode_left
*   editor_mode_right =          ld_editor_mode_right
*   transport_key_left =         ld_transport_key_left
*   transport_key_right =        ld_transport_key_right
*   korrnum_left =               ld_korrnum_left
*   korrnum_right =              ld_korrnum_right
*   status_left =                ld_status_left
*   status_right =               ld_status_right
*   comment_ignore_flag =        ld_comment_ignore_flag
*   small_screen =               ld_small_screen
*   wnd_mode =                   ld_wnd_mode
* TABLES
*   left_tab =                   it_left_tab
*   right_tab =                  it_right_tab
*   lineindex_left =             it_lineindex_left
*   lineindex_right =            it_lineindex_right
*   smodilog_abap_left =         it_smodilog_abap_left
*   mod_tab_left =               it_mod_tab_left
*   smodilog_abap_right =        it_smodilog_abap_right
*   mod_tab_right =              it_mod_tab_right
    .  "  CALL_SPLIT

IF SY-SUBRC EQ 0.
  "All OK
ENDIF.