COLLECT ABAP

DATA: BEGIN OF linea,
col1(1) TYPE C,
col2(1) TYPE c,
col3 TYPE i,
col4 TYPE i,

END OF linea.

*DATA tabla LIKE HASHED TABLE OF linea WITH UNIQUE KEY col1 COL2.
DATA tabla LIKE STANDARD TABLE OF linea WITH HEADER LINE.
*CUALQUIERA DE LAS DOS TABLAS

*EL COLLECT SUMA LOS DATOS NUMERICOS PERO CUANDO TODAS LAS COLUMNAS SE PARECEN
linea-col1 = 'A'.
linea-col2 = 'S'.
linea-col3 = 1.
linea-col4 = 15.

COLLECT linea INTO tabla.

linea-col1 = 'T'.
linea-col2 = 'V'.
linea-col3 = 1.
linea-col4 = 0.
COLLECT linea INTO tabla.

linea-col1 = 'A'.
linea-col2 = 'S'.
linea-col3 = 3.
linea-col4 = 5.

COLLECT linea INTO tabla.

linea-col1 = 'A'.
linea-col2 = 'I'.
linea-col3 = 5.
linea-col4 = 3.

COLLECT linea INTO tabla.

WRITE linea-col3. "ESCRIBE EL ULTIMO DATO EJEMPLO 5
*SALIDA
* A S 6 20 SUMA LAS DOS
* T V 1 0
* A I 5 3