ABAP first program

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.