Contar registros repetidos

[john smith]

Hola a todos!

Estoy empezando con ABAP y aún no tengo dominado los loops. Tengo un pequeño problema y no sé cómo solucionarlo. Tengo que contar el número de registros repetidos en una tabla estándar de SAP.

Os pego aquí lo que tengo escrito que no está funcionando muy bien pues entra siempre en el loop, no sólo en los repetidos (de LIFNR):

1º Ordeno la tabla por el campo LIFNR y luego hago el count

SORT gt_ekko BY lifnr.
LOOP AT gt_ekko INTO gs_ekko.
AT NEW lifnr.
MOVE-CORRESPONDING gs_ekko TO wa_ekko2.
MOVE 0 TO wa_ekko2-contador.
ENDAT.
ADD 1 TO wa_ekko2-contador.
AT END OF lifnr.
" Cuando ýa no hay mas valores iguales se PASAN DATOS A LA SALIDA
l_fieldnm = 'Z_MANDT'.
ASSIGN COMPONENT l_fieldnm OF STRUCTURE <fs_lin> TO <fs_val>.
MOVE wa_ekko2-mandt TO <fs_val>.
l_fieldnm = 'Z_EBELN'.
ASSIGN COMPONENT l_fieldnm OF STRUCTURE <fs_lin> TO <fs_val>.
MOVE wa_ekko2-ebeln TO <fs_val>.
l_fieldnm = 'Z_BUKRS'.
ASSIGN COMPONENT l_fieldnm OF STRUCTURE <fs_lin> TO <fs_val>.
MOVE wa_ekko2-bukrs TO <fs_val>.
l_fieldnm = 'Z_BSART'.
ASSIGN COMPONENT l_fieldnm OF STRUCTURE <fs_lin> TO <fs_val>.
MOVE wa_ekko2-bsart TO <fs_val>.
l_fieldnm = 'Z_LIFNR'.
ASSIGN COMPONENT l_fieldnm OF STRUCTURE <fs_lin> TO <fs_val>.
MOVE wa_ekko2-lifnr TO <fs_val>.
l_fieldnm = 'Z_CONTA'.
ASSIGN COMPONENT l_fieldnm OF STRUCTURE <fs_lin> TO <fs_val>.
MOVE wa_ekko2-contador TO <fs_val>.
APPEND <fs_lin> TO <fs_tab>.
ENDAT.
ENDLOOP.

[ballan]

Para contar el numero de registros repetidos te puedes ayudar de la sentencia DELETE ADJACENT DUPLICATES.

Seria algo mas o menos asi:

Supongamos que los registros lo tienes en la tabla GT_EKKO

DATA: gt_ekko_aux like gt_ekko occurs 0,
lv_linini type i,
lv_linfin type i,
lv_dif type i.

describe table gt_ekko lines lv_linini.

gt_ekko_aux[] = gt_ekko[].

sort gt_ekko_aux.
delete adjacent duplicates from table gt_ekko_aux.

describe table gt_ekko_aux lines lv_linfin.

lv_dif = lv_linini - lv_linfin.

En lv_dif tendrias el numero de lineas duplicadas.

Si solo quisieras los registros que tienen repetidos unos determinados campos (por ejemplo si solo quieres lo que tienen repetido el campo proveedor)

Deberias sustituir la sentencia

delete adjacent duplicates from table gt_ekko_aux.

por

delete adjacent duplicates from table gt_ekko_aux comparing lifnr.

Aqui he puesto lifnr pero podrias poner la lista de campos que quisieras.

[pedro701]

contar numeros repetidos

tengo un pequeño inconveniente, me gustaria saber como utilizar un contador para que en una columna me genere el numero de veces que se repite cada numero de otra columna y borrar el duplicado por ejemplo
columna 1- columna 2. Resultado Col1--Resultado Col 2
1 1 1 1
2 1 2 1
3 1 3 4
3 2
3 3
3 4

GRACIAS POR SU AYUDA! SOY NUEVO Y ESTOY APRENDIENDO