REPORT ZAPPEND_TABLE_DEMO
DATA: BEGIN OF LINE,
COLA TYPE C,
COLB TYPE I,
END OF LINE.
DATA : TABLE1 LIKE OF LINE ,TABLE2 LIKE TABLE1.

DO 3 TIMES .
LINE-COLA = SY-INDEX. LINE-COLB = SY-INDEX ** 2.
APPEND LINE TO TABLE1.
LINE-COLA =SY-INDEX . LINE-COLB = SY-INDEX ** 3.
APPEND LINE TO TABLE2.
ENDDO.
APPEND LINES OF TABLE2 FROM 2 TO 3 TO TABLE1.
LOOP AT TABLE1 INTO LINE.
WRITE : / LINE-COLA, LINE-COLB.
ENDLOOP.

REPORT ZAPPEND_TABLE_DEMO
DATA : BEGIN OF ROW ,
COL1 TYPE I,
COL2 TYPE I,
COL3 TYPE I,
END OF ROW.
DATA MYTABLE LIKE TABLE OF ROW INITIAL SIZE 2.
ROW-COL1 = 1. ROW-COL2 = 10. ROW-COL3 = 100.
APPEND ROW TO MYTABLE SORTED BY COL2.
ROW-COL1 = 2. ROW-COL2 = 20. ROW-COL3 = 200.
APPEND ROW TO MYTABLE SORTED BY COL2.
ROW-COL1 = 3. ROW-COL2 = 30. ROW-COL3 = 300.
APPEND ROW TO MYTABLE SORTED BY COL2.
ROW-COL1 = 4. ROW-COL2 = 40. ROW-COL3 = 400.
APPEND ROW TO MYTABLE SORTED BY COL2.
ROW-COL1 = 5. ROW-COL2 = 50. ROW-COL3 = 500.
APPEND ROW TO MYTABLE SORTED BY COL2.
LOOP AT MYTABLE INTO ROW .
WRITE : / ROW-COL1, ROW-COL2, ROW-COL3.
ENDLOOP.

REPORT ZREADLINES_DEMO,
COLA TYPE I,
COLB TYPE I,
END OF RECORD.
DATA MYTABLE LIKE HASHED TABLE OF RECORD WITH UNIQUE KEY COLA.

DO 4 TIMES.
RECORD-COLA = SY-INDEX.
RECORD-COLB = SY-INDEX ** 3.
INSERT RECORD INTO TABLE MYTABLE.
ENDDO.
RECORD-COLA = 3 . RECORD-COLB = 64.
READ TABLE MYTABLE FROM RECORD COMPARING COLB.
WRITE : ‘SY-SUBRC.
SKIP.
WRITE : / RECORD-COLA, RECORD-COLB.

REPORT ZREADLINES_DEMO.
DATA BEGIN OF LINE,
COLA TYPE I,
COLB TYPE I,
END OF LINE.
DATA MYTABLE LIKE SORTED TABLE OF LINE WITH UNIQUE KEY COLA.
DO 4 TIMES .
LINE-COLA = SY-INDEX.
LINE-COLB = SY-INDEX ** 2.
INSERT LINE INTO TABLE MYTABLE
ENDDO.

CLEAR LINE.
READ TABLE MYTABLE WITH TABLE KEY COLA = 3 INTO LINE TRANSPORTING COLB.
WRITE :/ ‘SY-SUBRC = ‘, SY-SUBRC,
/ ‘SY-TABIX=’, SY-TABIX.
SKIP.