1
*----------------------------------------------------------------------*
2
***INCLUDE LSVIMF64 .
3
4
*&---------------------------------------------------------------------*
5
*& Form vim_synchronizer_call
6
7
* text
8
9
* -->P_CU_KO200_TAB[] text
10
* -->P_CORR_KEYTAB[] text
11
* -->P_SPACE text
12
13
FORM vim_synchronizer_call USING
14
p_cu_ko200_tab TYPE vim_ko200_tab_type
15
p_corr_keytab TYPE tr_keys
16
p_synchronizer_flag TYPE xfeld.
17
18
STATICS: e071k_loc TYPE TABLE OF e071k,
19
e071_loc TYPE TABLE OF e071.
20
DATA: e071k_loc_wa TYPE e071k,
21
e071_loc_wa TYPE e071.
22
23
IF p_synchronizer_flag = space.
24
CLEAR: e071k_loc, e071_loc.
25
REFRESH: e071k_loc, e071_loc.
26
LOOP AT p_corr_keytab INTO e071k_loc_wa.
27
APPEND e071k_loc_wa TO e071k_loc.
28
ENDLOOP.
29
LOOP AT p_cu_ko200_tab INTO e071_loc_wa.
30
APPEND e071_loc_wa TO e071_loc.
31
32
ELSE.
33
READ TABLE e071k_loc INDEX 1 INTO e071k_loc_wa.
34
*----------------------------------------------------------------------
35
* Signal for Wulf Kruempelmann's Synchronizer (data written)
36
READ TABLE p_corr_keytab INDEX 1 INTO e071k_loc_wa.
37
CALL FUNCTION 'SCDC_DISTRIBUTE_TABLE_KEYS'
38
EXPORTING
39
* PROJECT_ID =
40
trkorr = e071k_loc_wa-trkorr
41
TABLES
42
e071_tab = e071_loc
43
e071k_tab = e071k_loc
44
EXCEPTIONS
45
no_project = 1
46
OTHERS = 2
47
.
48
IF sy-subrc <> 0.
49
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
50
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
51
ENDIF.
52
53
54
ENDFORM. " vim_synchronizer_call