*----------------------------------------------------------------------*
***INCLUDE LSVIMF64 .
*----------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*&      Form  vim_synchronizer_call
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_CU_KO200_TAB[]  text
*      -->P_CORR_KEYTAB[]  text
*      -->P_SPACE  text
*----------------------------------------------------------------------*
FORM vim_synchronizer_call  USING
                                 p_cu_ko200_tab TYPE vim_ko200_tab_type
                                 p_corr_keytab TYPE tr_keys
                                 p_synchronizer_flag TYPE xfeld.

  STATICS: e071k_loc TYPE TABLE OF e071k,
          e071_loc TYPE TABLE OF e071.
  DATA: e071k_loc_wa TYPE e071k,
        e071_loc_wa TYPE e071.

  IF p_synchronizer_flag = space.
    CLEAR: e071k_loc, e071_loc.
    REFRESH: e071k_loc, e071_loc.
    LOOP AT p_corr_keytab INTO e071k_loc_wa.
      APPEND e071k_loc_wa TO e071k_loc.
    ENDLOOP.
    LOOP AT p_cu_ko200_tab INTO e071_loc_wa.
      APPEND e071_loc_wa TO e071_loc.
    ENDLOOP.
  ELSE.
    READ TABLE e071k_loc INDEX 1 INTO e071k_loc_wa.
*----------------------------------------------------------------------
* Signal for Wulf Kruempelmann's Synchronizer (data written)
      READ TABLE p_corr_keytab INDEX 1 INTO e071k_loc_wa.
        CALL FUNCTION 'SCDC_DISTRIBUTE_TABLE_KEYS'
          EXPORTING
*           PROJECT_ID       =
            trkorr           = e071k_loc_wa-trkorr
          TABLES
            e071_tab         = e071_loc
            e071k_tab        = e071k_loc
         EXCEPTIONS
           no_project       = 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.
*----------------------------------------------------------------------
  ENDIF.
ENDFORM.                    " vim_synchronizer_call
