Example programs:
*&---------------------------------------------------------------------*
*&
Report ZTEST_PROGRAM4
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT ZTEST_PROGRAM5 NO STANDARD PAGE HEADING.
*// Internal
table dclaration by using global structure
DATA : LT_ADDRS1
TYPE TABLE OF ZSADDRS.
*// Work area
declaration by using Global structure
DATA : WA_ADDRS
TYPE ZSADDRS.
*// Assigning
values to the workarea
WA_ADDRS-ADDRNUM
= 1.
WA_ADDRS-NAME1 = 'Kalyan'.
WA_ADDRS-NAME2 = 'Reddy'.
WA_ADDRS-DOORNUM
= '123/A'.
WA_ADDRS-CITY = 'Hyderabad'.
APPEND WA_ADDRS
TO LT_ADDRS1.
CLEAR WA_ADDRS.
WA_ADDRS-ADDRNUM
= 9.
WA_ADDRS-NAME1 = 'Raghu'.
WA_ADDRS-NAME2 = 'Reddy'.
WA_ADDRS-DOORNUM
= '125/A'.
WA_ADDRS-CITY = 'Chennai'.
APPEND WA_ADDRS
TO LT_ADDRS1.
CLEAR WA_ADDRS.
WA_ADDRS-ADDRNUM
= 2.
WA_ADDRS-NAME1 = 'Ram'.
WA_ADDRS-NAME2 = 'Reddy'.
WA_ADDRS-DOORNUM
= '124/A'.
WA_ADDRS-CITY = 'Bangalore'.
APPEND WA_ADDRS
TO LT_ADDRS1.
CLEAR WA_ADDRS.
WA_ADDRS-ADDRNUM
= 3.
WA_ADDRS-NAME1 = 'Raghu'.
WA_ADDRS-NAME2 = 'Reddy'.
WA_ADDRS-DOORNUM
= '125/A'.
WA_ADDRS-CITY = 'Chennai'.
APPEND WA_ADDRS
TO LT_ADDRS1.
CLEAR WA_ADDRS.
WA_ADDRS-ADDRNUM
= 4.
WA_ADDRS-NAME1 = 'Kalyan'.
WA_ADDRS-NAME2 = 'Reddy'.
WA_ADDRS-DOORNUM
= '123/A'.
WA_ADDRS-CITY = 'Hyderabad'.
INSERT WA_ADDRS
INTO LT_ADDRS1 INDEX 3.
CLEAR WA_ADDRS.
WA_ADDRS-ADDRNUM
= 5.
WA_ADDRS-NAME1 = 'Kalyan'.
WA_ADDRS-NAME2 = 'Reddy'.
WA_ADDRS-DOORNUM
= '123/A'.
WA_ADDRS-CITY = 'Hyderabad'.
APPEND WA_ADDRS
TO LT_ADDRS1.
CLEAR WA_ADDRS.
WA_ADDRS-ADDRNUM
= 6.
WA_ADDRS-NAME1 = 'Kalyan'.
WA_ADDRS-NAME2 = 'Reddy'.
WA_ADDRS-DOORNUM
= '123/A'.
WA_ADDRS-CITY = 'Hyderabad'.
INSERT WA_ADDRS
INTO LT_ADDRS1 INDEX 3.
CLEAR WA_ADDRS.
WA_ADDRS-ADDRNUM
= 8.
WA_ADDRS-NAME1 = 'Ram'.
WA_ADDRS-NAME2 = 'Reddy'.
WA_ADDRS-DOORNUM
= '124/A'.
WA_ADDRS-CITY = 'Bangalore'.
APPEND WA_ADDRS
TO LT_ADDRS1.
CLEAR WA_ADDRS.
WA_ADDRS-ADDRNUM
= 9.
WA_ADDRS-NAME1 = 'Kalyan'.
WA_ADDRS-NAME2 = 'Reddy'.
WA_ADDRS-DOORNUM
= '125/A'.
WA_ADDRS-CITY = 'Chennai'.
APPEND WA_ADDRS
TO LT_ADDRS1.
CLEAR WA_ADDRS.
WA_ADDRS-ADDRNUM
= 9.
WA_ADDRS-NAME1 = 'Ram'.
WA_ADDRS-NAME2 = 'Reddy'.
WA_ADDRS-DOORNUM
= '125/A'.
WA_ADDRS-CITY = 'Chennai'.
APPEND WA_ADDRS
TO LT_ADDRS1.
CLEAR WA_ADDRS.
WA_ADDRS-ADDRNUM
= 6.
WA_ADDRS-NAME1 = 'Kalyan'.
WA_ADDRS-NAME2 = 'Reddy'.
WA_ADDRS-DOORNUM
= '123/A'.
WA_ADDRS-CITY = 'Hyderabad'.
APPEND WA_ADDRS
TO LT_ADDRS1.
CLEAR WA_ADDRS.
*// Sorting
internal table
SORT LT_ADDRS1.
*// Deleting
total data from internal table
*REFRESH
LT_ADDRS1.
*CLEAR LT_ADDRS1.
*// Deleting
particular record from Internal Table
*DELETE LT_ADDRS1
INDEX 3.
DELETE LT_ADDRS1
WHERE ADDRNUM.
*AND NAME1 =
'Kalyan'.
*DELETE LT_ADDRS1
FROM 4.
*DELETE LT_ADDRS1
INDEX SY-TABIX.
*DELETE ADJACENT
DUPLICATES FROM LT_ADDRS1.
**READ TABLE
LT_ADDRS1 INTO WA_ADDRS INDEX 3.
**IF SY-SUBRC EQ
0.
** DELETE TABLE LT_ADDRS1 FROM WA_ADDRS.
**ENDIF.
*// Display
Output
IF LT_ADDRS1 IS
NOT INITIAL.
LOOP AT LT_ADDRS1 INTO WA_ADDRS.
WRITE : / WA_ADDRS-ADDRNUM, 20
WA_ADDRS-NAME1, 40 WA_ADDRS-NAME2, 60 WA_ADDRS-DOORNUM, 80 WA_ADDRS-CITY.
ENDLOOP.
ELSE.
WRITE : /,/20 'There is no data in internal
table'.
ENDIF.