https://codegolf.stackexchange.com/questions/178500/enumerat

"Codegolf
"https://codegolf.stackexchange.com/questions/178500/enumerate-each-series-of-identical-numbers-in-place

REPORT z.

DATA tab TYPE TABLE OF i.
APPEND 7 TO tab.
APPEND 7 TO tab.
APPEND 7 TO tab.

PERFORM f TABLES tab.

LOOP AT tab INTO DATA(l).
  WRITE l.
ENDLOOP.
ULINE.
CLEAR tab[].

APPEND 5 TO tab.
APPEND 12 TO tab.
APPEND 10 TO tab.
APPEND 12 TO tab.
APPEND 12 TO tab.
APPEND 10 TO tab.
PERFORM f TABLES tab.

LOOP AT tab INTO l.
  WRITE l.
ENDLOOP.
ULINE.
CLEAR tab[].


APPEND 2 TO tab.
APPEND 7 TO tab.
APPEND 1 TO tab.
APPEND 8 TO tab.
APPEND 2 TO tab.
APPEND 8 TO tab.
APPEND 1 TO tab.
APPEND 8 TO tab.
APPEND 2 TO tab.
APPEND 8 TO tab.
PERFORM f TABLES tab.

LOOP AT tab INTO l.
  WRITE l.
ENDLOOP.
ULINE.
CLEAR tab[].


APPEND 3 TO tab.
APPEND 1 TO tab.
APPEND 4 TO tab.
APPEND 1 TO tab.
APPEND 5 TO tab.
APPEND 9 TO tab.
APPEND 2 TO tab.
APPEND 6 TO tab.
APPEND 5 TO tab.
APPEND 3 TO tab.
APPEND 5 TO tab.
APPEND 9 TO tab.
PERFORM f TABLES tab.

LOOP AT tab INTO l.
  WRITE l.
ENDLOOP.
ULINE.
CLEAR tab[].


FORM f TABLES t.
  DATA r TYPE int_tab1.
  LOOP AT t.
    DATA(i) = 0.
    DATA(x) = sy-tabix.
    LOOP AT t.
      CHECK:x > sy-tabix,t = t[ x ].
      i = i + 1.
    ENDLOOP.
    APPEND i TO r.
  ENDLOOP.
  t[] = r.
ENDFORM.