abap - 内部テーブルで重複する値をチェックする

Question

「フォーム番号」列の繰り返し値を確認するにはどうすればよいですか?

後で重複レコードとして強調表示したいと思います。

  LOOP AT ZVBELNEXTTAB WHERE werks IN werks.

ZVBELNEXTTAB_COPY-WERKS        = ZVBELNEXTTAB-WERKS.
ZVBELNEXTTAB_COPY-MANDT        = ZVBELNEXTTAB-MANDT.
ZVBELNEXTTAB_COPY-BUKRS        = ZVBELNEXTTAB-BUKRS.
ZVBELNEXTTAB_COPY-VBELN        = ZVBELNEXTTAB-VBELN.
ZVBELNEXTTAB_COPY-EVBELN       = ZVBELNEXTTAB-EVBELN.
ZVBELNEXTTAB_COPY-FKDAT        = ZVBELNEXTTAB-FKDAT.
ZVBELNEXTTAB_COPY-VBLSTAT      = ZVBELNEXTTAB-VBLSTAT.
ZVBELNEXTTAB_COPY-ZPRN         = ZVBELNEXTTAB-ZPRN.
ZVBELNEXTTAB_COPY-UNAME        = ZVBELNEXTTAB-UNAME.
ZVBELNEXTTAB_COPY-TYPE         = ZVBELNEXTTAB-TYPE.



curr = ZVBELNEXTTAB-EVBELN.
lv_tab = SY-TABIX + 1.
READ TABLE ZVBELNEXTTAB INDEX lv_tab.
next = ZVBELNEXTTAB-EVBELN.

IF curr GT next.
  a = curr - next.
ELSE.
  a = next - curr.
ENDIF.

IF a GT 1.
  curr = curr + 1.
  next = next - 1.

  ZVBELNEXTTAB_COPY-MISSINGFROM   = curr.
  ZVBELNEXTTAB_COPY-MISSINGTO     = next.
ELSE.
  ZVBELNEXTTAB_COPY-MISSINGFROM   = ''.
  ZVBELNEXTTAB_COPY-MISSINGTO     = ''.
ENDIF.



APPEND ZVBELNEXTTAB_COPY.
SORT ZVBELNEXTTAB_COPY BY EVBELN.


ENDLOOP.

ENDFORM.

ループして1次元配列を使用して、重複した「フォーム＃」列をチェックしようとしています。