INTERNAL TABLE

REPORT YMS_INTERNAL_TABLE .

DATA: BEGIN OF IT OCCURS 0, F1(10) TYPE C, F2(10) TYPE C,
END OF IT.
IT-F1 = 'KABLU'.
IT-F2 = 'MANDAL'.
APPEND IT TO IT.

IT-F1 = 'RAVI'.
IT-F2 = 'KISAN'.
APPEND IT TO IT.

IT-F1 = 'AMIT'.
IT-F2 = 'KUMAR'.
APPEND IT TO IT.
ULINE.
WRITE: /25 'UNSORTED TABLE' COLOR 4.
LOOP AT IT.
WRITE: /25 IT-F1, IT-F2.
ENDLOOP.
ULINE.
WRITE:/25 'AFTER SORTING' COLOR 5.
ULINE.
SORT IT.
LOOP AT IT.
WRITE: /25 IT-F1, IT-F2.
ENDLOOP.

ULINE.
WRITE: /25 'AFTER MODIFYING INTERNAL TABLE' COLOR 7.
ULINE.
IT-F1 = 'LALLO'.
IT-F2 = 'PRASAD'.
MODIFY IT INDEX 2.
LOOP AT IT.
WRITE: /25 IT-F1, IT-F2.
ENDLOOP.

ULINE.
WRITE: /25 'AFTER DELETING DATA' COLOR 1.
DELETE IT INDEX 1.
LOOP AT IT.
WRITE: /25 IT-F1, IT-F2.
ENDLOOP.

ULINE.
WRITE: /25 'INSERT AT INDEX' COLOR 6.
IT-F1 = 'RAMU'.
IT-F2 = 'KHAN'.
INSERT IT INDEX 4.
LOOP AT IT.
WRITE: /25 IT-F1, IT-F2.
ENDLOOP.

Comments

Popular Posts