For ALL INTRIES



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.