RS_EDTR_SPLIT_SCREEN_EDIT SAP Function module

DATA:
ld_compare_result  
 
 TYPE STRING
,
it_source_l  
 
 TYPE STANDARD TABLE OF RSWSOURCET,"TABLES PARAM
wa_source_l
 
 LIKE LINE OF it_source_l
,
it_source_r  
 
 TYPE STANDARD TABLE OF RSWSOURCET,"TABLES PARAM
wa_source_r
 
 LIKE LINE OF it_source_r
,
it_lineindex_l  
 
 TYPE STANDARD TABLE OF STRING,"TABLES PARAM
wa_lineindex_l
 
 LIKE LINE OF it_lineindex_l
,
it_lineindex_r  
 
 TYPE STANDARD TABLE OF STRING,"TABLES PARAM
wa_lineindex_r
 
 LIKE LINE OF it_lineindex_r
.


DATA(ld_start_with_compare) = 'some text here'.

DATA(ld_display_l) = 'some text here'.

DATA(ld_display_r) = 'some text here'.

DATA(ld_mod_enabled_l) = 'some text here'.

DATA(ld_mod_enabled_r) = 'some text here'.

DATA(ld_text_l) = 'some text here'.

DATA(ld_text_r) = 'some text here'.

DATA(ld_state_l) = 'some text here'.

DATA(ld_state_r) = 'some text here'.


DATA(ld_object_type_l) = some text here


DATA(ld_object_type_r) = some text here

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

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

SELECT single TRKORR 
  FROM E070 
  INTO @DATA(ld_korrnum_l).

 

SELECT single TRKORR 
  FROM E070 
  INTO @DATA(ld_korrnum_r).


DATA(ld_flg_extension_call) = 'some text here'.

DATA(ld_flg_inact_enabled) = 'some text here'.

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

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

DATA(ld_small_screen) = 'some text here'.

DATA(ld_flg_without_display) = 'some text here'.

DATA(ld_flg_without_init_cus) = 'some text here'.

DATA(ld_flg_tmp_stor_comp) = 'some text here'.

DATA(ld_flg_remote_r) = 'some text here'.
 

"populate fields of struture and append to itab
append wa_source_l to it_source_l.
 

"populate fields of struture and append to itab
append wa_source_r to it_source_r.
 

"populate fields of struture and append to itab
append wa_lineindex_l to it_lineindex_l.
 

"populate fields of struture and append to itab
append wa_lineindex_r to it_lineindex_r.
.

CALL FUNCTION 'RS_EDTR_SPLIT_SCREEN_EDIT'
  EXPORTING
*   start_with_compare =         ld_start_with_compare
    display_l =                  ld_display_l
    display_r =                  ld_display_r
*   mod_enabled_l =              ld_mod_enabled_l
*   mod_enabled_r =              ld_mod_enabled_r
*   text_l =                     ld_text_l
*   text_r =                     ld_text_r
*   state_l =                    ld_state_l
*   state_r =                    ld_state_r
*   object_type_l =              ld_object_type_l
*   object_type_r =              ld_object_type_r
*   transport_key_l =            ld_transport_key_l
*   transport_key_r =            ld_transport_key_r
*   korrnum_l =                  ld_korrnum_l
*   korrnum_r =                  ld_korrnum_r
*   flg_extension_call =         ld_flg_extension_call
*   flg_inact_enabled =          ld_flg_inact_enabled
    trdir_wa_l =                 ld_trdir_wa_l
    trdir_wa_r =                 ld_trdir_wa_r
*   small_screen =               ld_small_screen
*   flg_without_display =        ld_flg_without_display
*   flg_without_init_cus =       ld_flg_without_init_cus
*   flg_tmp_stor_comp =          ld_flg_tmp_stor_comp
*   flg_remote_r =               ld_flg_remote_r
  IMPORTING
    compare_result =             ld_compare_result
  TABLES
    source_l =                   it_source_l
    source_r =                   it_source_r
*   lineindex_l =                it_lineindex_l
*   lineindex_r =                it_lineindex_r
  EXCEPTIONS
    PARAMETER_INVALID =          1
    .  "  RS_EDTR_SPLIT_SCREEN_EDIT

IF SY-SUBRC EQ 0.
  "All OK
ELSEIF SY-SUBRC EQ 1. "Exception
  "Add code for exception here
ENDIF.