Sunday, April 8, 2012

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.

About ABAP

Simply ABAP is Business. It is have some features externally that's way we are called as Advanced Business Application Program Development. I can show only ABAP Program. If you have any doubt about ABAP. send to my email I can search I will tell that to you OK. I giving the suggestion to you guys Before Learning the ABAP You must learn About C. 
                There we have what is a class, structure, interface, methods like that everything you can learn then you can learn ABAP.  

                                  Thank you for seeing my website.
                                   My email is: srinivaschinna7@gmail.com

ABAP First Program Explanation.
*//ABAP is not a case sensitive we can write either small or capital letters.
If you want to write comments you can start with either star or double quotation (").

Declaration variable.
Syntax:
                 Data     <variable name >  type      <standard data type>. "Ending with dot symbol.
Example:
                 Data      Variable1 type I.
                 Data      Variable2 type C.
I, C, String, DATs, Tims, P Decimal 2, N are the  Data types.


Example Program:
"Declaring the variable for Integer, character, String.

Data var1 type I.
Data var2 type C.
Data var3 type String.
"Assigning the value declaration 
var1 =100.
var2 = 'A'    "C means It will take only one character.
var3 = 'SAP-ABAP'.
"Printing for output we are using WRITE key word.

write : var1, var2, var3. " colon(:) means chain related we can use at the same time more variables.