Tuesday, May 7, 2019

Range with Field Symbol

DATA: rtab TYPE RANGE OF mara-matnr,
      wtab LIKE LINE OF rtab.

SELECT matnr FROM mara INTO TABLE @DATA(t_mara)
  WHERE mtart = 'ZFRT'.

IF sy-subrc = 0.
  SORT t_mara.
  wtab-sign   = 'I'.
  wtab-option = 'EQ'.

  LOOP AT t_mara ASSIGNING FIELD-SYMBOL(<w_mara>).
    wtab-low = <w_mara>-matnr.
    APPEND wtab TO rtab.

    WRITE:/ wtab-sign,
          3 wtab-option,
          6 wtab-low.
    CLEAR: wtab-low, <w_mara>.
  ENDLOOP.
ENDIF.



No comments: