DATA: l_t_tablnm TYPE rsdu_t_tablnm,
l_lines TYPE i,
l_hint TYPE rsdu_hint.
IF RESULT_PACKAGE[] IS NOT INITIAL.
FREE: l_t_tablnm.
CLEAR: l_lines, l_hint.
APPEND '/bic/azrepro0200' TO l_t_tablnm.
l_lines = lines( RESULT_PACKAGE ).
CALL FUNCTION 'RSDU_CREATE_HINT_FAE'
EXPORTING
i_t_tablnm = l_t_tablnm
i_fae_fields = 2
i_fae_lines = l_lines
i_equi_join = rs_c_true
IMPORTING
e_hint = l_hint
EXCEPTIONS
OTHERS = 0.
TYPES: BEGIN OF s_ZREPRO02,
DATE0 TYPE /bic/azrepro0200-DATE0,
/BIC/ZILFIYRWK TYPE /bic/azrepro0200-/BIC/ZILFIYRWK,
END OF s_ZREPRO02.
DATA: t_ZREPRO02 TYPE STANDARD TABLE OF s_ZREPRO02.
FIELD-SYMBOLS: <fs_ZREPRO02> TYPE s_ZREPRO02.
SELECT DATE0 /BIC/ZILFIYRWK
FROM /bic/azrepro0200 INTO TABLE t_ZREPRO02
FOR ALL ENTRIES IN RESULT_PACKAGE
WHERE /BIC/ZILIDOW EQ '6'
AND /BIC/ZILFIYRWK EQ RESULT_PACKAGE-/BIC/ZREPID99
%_HINTS HDB l_hint.
SORT t_ZREPRO02 BY /BIC/ZILFIYRWK.
READ TABLE t_ZREPRO02 ASSIGNING <fs_ZREPRO02>
WITH KEY
/BIC/ZILFIYRWK = <result_fields>-/BIC/ZREPID99
BINARY SEARCH.
IF sy-subrc EQ 0.
<result_fields>-/BIC/ZILPHDAT = <fs_ZREPRO02>-DATE0.
String = <result_fields>-/BIC/ZILPHDAT.
int = String(4) * 10000 + String+4(2) * 100 + String+6(2).
<result_fields>-/BIC/ZREPID99 = int.
ENDIF.