Search help exit
DATA : wa_temp LIKE record_tab,
* wa_shlp type SHLP_DESCR,
it_temp LIKE TABLE OF record_tab.
*SHLP_TAB
DATA: it_shlp type SHLP_DESCR-interface,
wa_shlp LIKE LINE OF it_shlp ,
ls_selopt TYPE ddshselopt. "loc str for shlp-selopt
RANGES: lr_mfrpn FOR mara-mfrpn. "Ranges for customer number
*Build range for customer number
LOOP AT shlp-selopt INTO ls_selopt WHERE shlpfield = 'MFRPN'.
lr_mfrpn-sign = ls_selopt-sign.
lr_mfrpn-option = ls_selopt-option.
lr_mfrpn-low = ls_selopt-low.
lr_mfrpn-high = ls_selopt-high.
APPEND lr_mfrpn.
CLEAR: lr_mfrpn.
ENDLOOP.
LOOP AT record_tab INTO wa_temp. " SHLP_TAB[1]-INTERFACE
READ TABLE it_shlp into wa_shlp WITH KEY value = wa_temp-string+18.
IF sy-subrc EQ 0.
APPEND wa_temp TO it_temp.
CLEAR: wa_temp.
ENDIF.
ENDLOOP.
CLEAR: record_tab.
record_tab[] = it_temp[].
CLEAR: it_temp.
ENDFUNCTION.
Comments
Post a Comment