topic Re: ABAP OBJECTS in Application Development and Automation Discussions

ABAP OBJECTS

Former Member — Fri, 06 Jul 2007 11:08:45 GMT

I WANT A SAMPLE PROGRAM TO PRINT SOME DATABASE VALUES( ANY TABLE) USING ABAP OBJECTS , THANKS IN ADVANCE.

Re: ABAP OBJECTS

seshatalpasai_madala — Fri, 06 Jul 2007 11:10:04 GMT

Hi,

You can goto the package SLIS there are lot of programs for displaying the results using ALV grid.

Regards,

Sesh

Re: ABAP OBJECTS

Former Member — Fri, 06 Jul 2007 11:12:17 GMT

Hi Srinath

check this one

*&---------------------------------------------------------------------*
*& Report  ZEKKOINFO                                                   *
*&                                                                     *
*&---------------------------------------------------------------------*
*&                                                                     *
*&                                                                     *
*&---------------------------------------------------------------------*

REPORT  ZEKKOINFO                               .





tables: ekpo.



Data: begin of int_ekko occurs 0,

   EBELN  type ekko-ebeln,
   BEDAT type ekKo-BEDAT,


   end of int_ekKo.



   select EBELN BEDAT from ekKo into corresponding fields of table
int_ekKo.


loop at int_ekKo.


Write: / int_ekKo-EBELN,
         int_ekKo-BEDAT.


   endloop.

Reward all helpfull answers

Regards

Pavan

Re: ABAP OBJECTS

Former Member — Fri, 06 Jul 2007 11:14:03 GMT

Hi,

Welcome to SDN.

go through this link

http://www.sapgenie.com/abap/OO/index.htm

http://www.geocities.com/victorav15/sapr3/abap_ood.html

http://www.brabandt.de/html/abap_oo.html

Check this cool weblog:

/people/thomas.jung3/blog/2004/12/08/abap-persistent-classes-coding-without-sql

/people/sap.user72/blog/2005/05/10/a-small-tip-for-the-beginners-in-oo-abap

/people/ravikumar.allampallam/blog/2005/02/11/abap-oo-in-action

/people/thomas.jung3/blog/2005/09/08/oo-abap-dynpro-programming

http://help.sap.com/saphelp_nw04/helpdata/en/c3/225b6254f411d194a60000e8353423/frameset.htm

http://www.sapgenie.com/abap/OO/

http://www.sapgenie.com/abap/OO/index.htm

http://help.sap.com/saphelp_nw04/helpdata/en/c3/225b5654f411d194a60000e8353423/content.htm

http://www.esnips.com/doc/375fff1b-5a62-444d-8ec1-55508c308b17/prefinalppt.ppt

http://www.esnips.com/doc/2c76dc57-e74a-4539-a20e-29383317e804/OO-abap.pdf

http://www.esnips.com/doc/5c65b0dd-eddf-4512-8e32-ecd26735f0f2/prefinalppt.ppt

http://www.allsaplinks.com/

http://www.sap-img.com/

http://www.sapgenie.com/

http://help.sap.com

http://www.sapgenie.com/abap/OO/

http://www.sapgenie.com/abap/OO/index.htm

http://www.sapgenie.com/abap/controls/index.htm

http://www.esnips.com/doc/2c76dc57-e74a-4539-a20e-29383317e804/OO-abap.pdf

http://www.esnips.com/doc/0ef39d4b-586a-4637-abbb-e4f69d2d9307/SAP-CONTROLS-WORKSHOP.pdf

http://www.sapgenie.com/abap/OO/index.htm

http://help.sap.com/saphelp_erp2005/helpdata/en/ce/b518b6513611d194a50000e8353423/frameset.htm

http://www.sapgenie.com/abap/OO/

these links

http://help.sap.com/saphelp_47x200/helpdata/en/ce/b518b6513611d194a50000e8353423/content.htm

For funtion module to class

http://help.sap.com/saphelp_47x200/helpdata/en/c3/225b5954f411d194a60000e8353423/content.htm

for classes

http://help.sap.com/saphelp_47x200/helpdata/en/c3/225b5c54f411d194a60000e8353423/content.htm

for methods

http://help.sap.com/saphelp_47x200/helpdata/en/08/d27c03b81011d194f60000e8353423/content.htm

for inheritance

http://help.sap.com/saphelp_47x200/helpdata/en/dd/4049c40f4611d3b9380000e8353423/content.htm

for interfaces

http://help.sap.com/saphelp_47x200/helpdata/en/c3/225b6254f411d194a60000e8353423/content.htm

Reward points if it helps..

Regards,

Omkar.

Re: ABAP OBJECTS

Former Member — Fri, 06 Jul 2007 11:14:04 GMT

check this is one

TYPES:begin of str_bkpf,

blart type blart,

bukrs type bukrs,

belnr type bseg-belnr,

gjahr type gjahr,

budat type budat,

end of str_bkpf.

TYPES: begin of str_bseg,

belnr type belnr_d,

gjahr type gjahr,

buzei type buzei,

bschl type bschl,

hkont type hkont,

bukrs type bukrs,

blart type blart,

budat type bkpf-budat,

saknr type saknr,

fstag type fstag,

ktopl type ktopl,

bilkt type bilkt,

color(4) type c,

end of str_bseg.

TYPES:begin of str_t001,

bukrs type bukrs,

ktopl type ktopl,

end of str_t001.

TYPES:begin of str_ska1,

bilkt type bilkt,

ktopl type ktopl,

saknr type saknr,

end of str_ska1.

TYPES:begin of str_skb1,

fstag type fstag,

bukrs type bukrs,

saknr type saknr,

end of str_skb1.

----

DATA DECLARATIONS

----

DATA:it_bkpf type standard table of str_bkpf ,

it_bseg type standard table of str_bseg ,

it_t001 type standard table of str_t001 ,

it_ska1 type standard table of str_ska1 ,

it_skb1 type standard table of str_skb1 ,

fieldcat type slis_t_fieldcat_alv WITH HEADER LINE,

events type slis_t_event WITH HEADER LINE,

layout type slis_layout_alv,

layout type slis_layout_alv1 ,
ALV type SY-REPID.

data:w_index type sy-tabix.

data: wa_bkpf like line of it_bkpf,

wa_bseg like line of it_bseg,

wa_t001 like line of it_t001,

wa_ska1 like line of it_ska1,

wa_skb1 like line of it_skb1,

WA_LAYOUT-INFO_FNAME = 'COLOR'.

----

INPUT VARIABLES

----

SELECT-OPTIONS:s_BUKRS FOR BKPF-BUKRS obligatory,

s_BLART FOR BKPF-BLART obligatory,

s_BUDAT FOR BKPF-BUDAT,

s_BSCHL FOR BSEG-BSCHL,

s_HKONT FOR BSEG-HKONT.

----

SELECT STATEMENTS

----

START-OF-SELECTION.

select blart "Document type

bukrs "Company Code

belnr "Accounting Document Number

gjahr "Fiscal Year

budat "Posting Date in the Document

from bkpf

into

table it_bkpf

where bukrs in s_bukrs

and blart in s_blart

and budat in s_BUDAT.

check sy-subrc = 0.

if not it_bkpf[] is initial.

select belnr "Accounting Document Number

gjahr "Fiscal Year

buzei "Number of Line Item Within Accounting Document

bschl "Posting Key

hkont "General Ledger Account

bukrs "Company Code

from bseg

into table it_bseg

for all entries in it_bkpf

where belnr = it_bkpf-belnr

and gjahr = it_bkpf-gjahr

and bukrs = it_bkpf-bukrs.

endif.

if not s_BSCHL[] is initial.

delete it_bseg where not bschl in s_bschl.

endif.

if not s_HKONT[] is initial.

delete it_bseg where not hkont in s_hkont.

endif.

if it_bseg[] is not initial.

sort it_bseg by bukrs gjahr belnr.

refresh it_t001.

SELECT bukrs "Company Code

ktopl "Chart of Accounts

from T001

into table it_t001

where bukrs in s_bukrs.

if not it_t001[] is initial.

sort it_t001 by bukrs.

refresh it_ska1.

SELECT bilkt "Group Account Number

ktopl "Chart of Accounts

saknr "G/L account number

from SKA1

into table it_ska1

for all entries in it_t001

where ktopl = it_t001-ktopl.

if not it_ska1[] is initial.

sort it_ska1.

refresh it_skb1.

SELECT fstag "Field status group

bukrs "Company code

saknr "G/L account number

from skb1

into table it_skb1

for all entries in it_ska1

where bukrs in s_bukrs and

SAKNR = it_ska1-saknr.

endif.

loop at it_bseg into wa_bseg.

w_index = sy-tabix.

read table it_bkpf into wa_bkpf with key BUKRS = wa_bseg-bukrs.

if sy-subrc = 0.

wa_bseg-blart = wa_bkpf-blart.

Read Table it_t001 into wa_t001 with key bukrs = wa_bseg-bukrs.

if sy-subrc = 0.

wa_bseg-ktopl = wa_t001-ktopl.

if sy-subrc = 0.

Read table it_ska1 into wa_ska1 with key ktopl = wa_bseg-ktopl.

wa_bseg-saknr = wa_ska1-saknr.

wa_bseg-bilkt = wa_ska1-bilkt.

if sy-subrc = 0.

Read Table it_skb1 into wa_skb1 with key bukrs = wa_bseg-bukrs saknr = wa_bseg-hkont.

wa_bseg-fstag = wa_skb1-fstag.

modify it_bseg from wa_bseg index w_index transporting ktopl bilkt saknr fstag blart.

endif.

endloop.

LOOP AT IT_bseg.

IF SY-TABIX LE 5.

IT_besg-COLOR = 'C410'.

MODIFY IT_bseg INDEX SY-TABIX.

ENDIF.

ENDLOOP.

thnkx

bhanu

Re: ABAP OBJECTS

Former Member — Fri, 06 Jul 2007 11:14:46 GMT

Hi,

check the below links lot of info and examples r there

http://www.sapgenie.com/abap/OO/index.htm

http://www.geocities.com/victorav15/sapr3/abap_ood.html

http://www.brabandt.de/html/abap_oo.html

Check this cool weblog:

/people/thomas.jung3/blog/2004/12/08/abap-persistent-classes-coding-without-sql

http://help.sap.com/saphelp_nw04/helpdata/en/c3/225b6254f411d194a60000e8353423/frameset.htm

http://www.sapgenie.com/abap/OO/

http://www.sapgenie.com/abap/OO/index.htm

http://help.sap.com/saphelp_nw04/helpdata/en/c3/225b5654f411d194a60000e8353423/content.htm

http://www.esnips.com/doc/375fff1b-5a62-444d-8ec1-55508c308b17/prefinalppt.ppt

http://www.esnips.com/doc/2c76dc57-e74a-4539-a20e-29383317e804/OO-abap.pdf

http://www.esnips.com/doc/5c65b0dd-eddf-4512-8e32-ecd26735f0f2/prefinalppt.ppt

http://www.allsaplinks.com/

http://www.sap-img.com/

http://www.sapgenie.com/

http://help.sap.com

http://www.sapgenie.com/abap/OO/

http://www.sapgenie.com/abap/OO/index.htm

http://www.sapgenie.com/abap/controls/index.htm

http://www.esnips.com/doc/2c76dc57-e74a-4539-a20e-29383317e804/OO-abap.pdf

http://www.esnips.com/doc/0ef39d4b-586a-4637-abbb-e4f69d2d9307/SAP-CONTROLS-WORKSHOP.pdf

http://www.sapgenie.com/abap/OO/index.htm

http://help.sap.com/saphelp_erp2005/helpdata/en/ce/b518b6513611d194a50000e8353423/frameset.htm

http://www.sapgenie.com/abap/OO/

these links

http://help.sap.com/saphelp_47x200/helpdata/en/ce/b518b6513611d194a50000e8353423/content.htm

For funtion module to class

http://help.sap.com/saphelp_47x200/helpdata/en/c3/225b5954f411d194a60000e8353423/content.htm

for classes

http://help.sap.com/saphelp_47x200/helpdata/en/c3/225b5c54f411d194a60000e8353423/content.htm

for methods

http://help.sap.com/saphelp_47x200/helpdata/en/08/d27c03b81011d194f60000e8353423/content.htm

for inheritance

http://help.sap.com/saphelp_47x200/helpdata/en/dd/4049c40f4611d3b9380000e8353423/content.htm

for interfaces

http://help.sap.com/saphelp_47x200/helpdata/en/c3/225b6254f411d194a60000e8353423/content.htm

For Materials:

1) http://help.sap.com/printdocu/core/Print46c/en/data/pdf/BCABA/BCABA.pdf -- Page no: 1291

2) http://esnips.com/doc/5c65b0dd-eddf-4512-8e32-ecd26735f0f2/prefinalppt.ppt

3) http://esnips.com/doc/2c76dc57-e74a-4539-a20e-29383317e804/OO-abap.pdf

4) http://esnips.com/doc/0ef39d4b-586a-4637-abbb-e4f69d2d9307/SAP-CONTROLS-WORKSHOP.pdf

5) http://esnips.com/doc/92be4457-1b6e-4061-92e5-8e4b3a6e3239/Object-Oriented-ABAP.ppt

6) http://esnips.com/doc/448e8302-68b1-4046-9fef-8fa8808caee0/abap-objects-by-helen.pdf

7) http://esnips.com/doc/39fdc647-1aed-4b40-a476-4d3042b6ec28/class_builder.ppt

😎 http://www.amazon.com/gp/explorer/0201750805/2/ref=pd_lpo_ase/102-9378020-8749710?ie=UTF8

1) http://www.erpgenie.com/sap/abap/OO/index.htm

2) http://help.sap.com/saphelp_nw04/helpdata/en/ce/b518b6513611d194a50000e8353423/frameset.htm

Reward points if useful

Regards

Ashu

Re: ABAP OBJECTS

Former Member — Fri, 06 Jul 2007 11:16:38 GMT

TYPE-POOLS: SLIS.

*&----

TYPES:

BEGIN OF TY_KNA1,

KUNNR TYPE KUNNR,

NAME1 TYPE NAME1,

ORT01 TYPE ORT01,

END OF TY_KNA1.

TYPES: BEGIN OF TY_VBAK,

VBELN TYPE VBELN,

ERNAM TYPE ERNAM,

ERDAT TYPE ERDAT,

NETWR TYPE NETWR,

WAERK TYPE WAERK,

END OF TY_VBAK.

*&--

WORK AREA & TABLE DECLARATION--

DATA: W_KNA1 TYPE TY_KNA1.

DATA: T_KNA1 TYPE STANDARD TABLE OF TY_KNA1 INITIAL SIZE 1.

DATA: W_VBAK TYPE TY_VBAK.

DATA: T_VBAK TYPE STANDARD TABLE OF TY_VBAK INITIAL SIZE 1.

*&--

FIELDCAT TABLE & WORK AREA--

DATA: W_FCAT TYPE SLIS_FIELDCAT_ALV.

DATA: T_FCAT TYPE SLIS_T_FIELDCAT_ALV.

*&----

DATA: W_FCAT1 TYPE SLIS_FIELDCAT_ALV.

DATA: T_FCAT1 TYPE SLIS_T_FIELDCAT_ALV.

*&--

EVENT TABLE AND WORK AREA--

DATA: W_EVENTS TYPE SLIS_ALV_EVENT.

DATA: T_EVENTS TYPE SLIS_T_EVENT.

*&----

DATA: W_EVENTS1 TYPE SLIS_ALV_EVENT.

DATA: T_EVENTS1 TYPE SLIS_T_EVENT.

*&--

COMMENT TABLE & WORK AREA--

DATA: W_COMMENT TYPE SLIS_LISTHEADER.

DATA: T_COMMENT TYPE SLIS_T_LISTHEADER.

*&----

DATA: W_COMMENT1 TYPE SLIS_LISTHEADER.

DATA: T_COMMENT1 TYPE SLIS_T_LISTHEADER.

*&----

APPENDING FCAT -

W_FCAT-COL_POS = 1.

W_FCAT-FIELDNAME = 'KUNNR'.

W_FCAT-SELTEXT_M = 'CUST. NO'.

W_FCAT-HOTSPOT = 'X'. " HOT SPOT HAND SYMBOL

W_FCAT-EMPHASIZE = 'C119'. " FOR COLORING THE COLUMN 1

APPEND W_FCAT TO T_FCAT.

CLEAR W_FCAT.

W_FCAT-COL_POS = 2.

W_FCAT-FIELDNAME = 'NAME1'.

W_FCAT-SELTEXT_M = 'CUST. NAME'.

APPEND W_FCAT TO T_FCAT.

W_FCAT-COL_POS = 3.

W_FCAT-FIELDNAME = 'ORT01'.

W_FCAT-SELTEXT_M = 'CITY'.

APPEND W_FCAT TO T_FCAT.

*&----

W_FCAT1-COL_POS = 1.

W_FCAT1-FIELDNAME = 'VBELN'.

W_FCAT1-SELTEXT_M = 'ORDER NO'.

W_FCAT1-EMPHASIZE = 'C519'.

APPEND W_FCAT1 TO T_FCAT1.

CLEAR W_FCAT.

W_FCAT1-COL_POS = 2.

W_FCAT1-FIELDNAME = 'ERNAM'.

W_FCAT1-SELTEXT_M = 'NAME OF PARTY'.

APPEND W_FCAT1 TO T_FCAT1.

W_FCAT1-COL_POS = 3.

W_FCAT1-FIELDNAME = 'ERDAT'.

W_FCAT1-SELTEXT_M = 'DATE'.

APPEND W_FCAT1 TO T_FCAT1.

W_FCAT1-COL_POS = 4.

W_FCAT1-FIELDNAME = 'NETWR'.

W_FCAT1-SELTEXT_M = 'ORDER VALUE'.

APPEND W_FCAT1 TO T_FCAT1.

W_FCAT1-COL_POS = 5.

W_FCAT1-FIELDNAME = 'WAERK'.

W_FCAT1-SELTEXT_M = 'CURRENCY'.

APPEND W_FCAT1 TO T_FCAT1.

*&--

APPEND COMMENTRY--

W_COMMENT-TYP = 'H'.

W_COMMENT-INFO = 'CUSTOMER DETAILS'.

APPEND W_COMMENT TO T_COMMENT.

CLEAR W_COMMENT.

*&--

APPEND EVENTS TABLE--

W_EVENTS-NAME = 'TOP_OF_PAGE'.

W_EVENTS-FORM = 'TOPPAGE'.

APPEND W_EVENTS TO T_EVENTS.

W_EVENTS-NAME = 'USER_COMMAND'.

W_EVENTS-FORM = 'SUB2'.

APPEND W_EVENTS TO T_EVENTS.

W_EVENTS1-NAME = 'TOP_OF_PAGE'.

W_EVENTS1-FORM = 'TOPPAGE1'.

APPEND W_EVENTS1 TO T_EVENTS1.

CLEAR W_EVENTS1.

W_EVENTS1-NAME = 'USER_COMMAND'.

W_EVENTS1-FORM = 'SUB3'.

APPEND W_EVENTS1 TO T_EVENTS1.

*&----

SELECT-OPTIONS: CUSTNO FOR W_KNA1-KUNNR.

*&----

SELECT KUNNR

NAME1

ORT01

FROM KNA1

INTO TABLE T_KNA1

WHERE KUNNR IN CUSTNO.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

I_CALLBACK_PROGRAM = 'ZKAL_ALV_INTERACTIVE_12'

I_BACKGROUND_ID = 'BIKE'

I_GRID_TITLE = 'CUSTOMER DETAILS'

IT_FIELDCAT = T_FCAT

IT_EVENTS = T_EVENTS

TABLES

T_OUTTAB = T_KNA1.

*&----

FORM TOPPAGE.

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

EXPORTING

IT_LIST_COMMENTARY = T_COMMENT

I_LOGO = 'LOGO_ALV'.

ENDFORM. " END OF TOPPAGE SUB.

*&----

FORM SUB2 USING UCOMM LIKE SY-UCOMM FIELDS1 TYPE SLIS_SELFIELD.

READ TABLE T_KNA1 INTO W_KNA1 INDEX FIELDS1-TABINDEX.

SELECT VBELN

ERNAM

ERDAT

NETWR

WAERK

FROM VBAK

INTO TABLE T_VBAK

WHERE KUNNR = W_KNA1-KUNNR.

*&----

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

I_CALLBACK_PROGRAM = 'ZKAL_ALV_INTERACTIVE_12'

I_BACKGROUND_ID = 'KALEEM'

I_GRID_TITLE = 'LIST OF ORDERS'

IT_FIELDCAT = T_FCAT1

IT_EVENTS = T_EVENTS1

TABLES

T_OUTTAB = T_VBAK.

ENDFORM. "END OF SUB2.

*&----

FORM TOPPAGE1.

*&--

APPEND COMMENTRYOF SECONDRY SCREEN--

W_COMMENT1-TYP = 'H'.

W_COMMENT1-INFO = 'LIST OF ORDERS'.

APPEND W_COMMENT1 TO T_COMMENT1.

W_COMMENT1-TYP = 'S'.

W_COMMENT1-KEY = 'CUSTOMER'.

W_COMMENT1-INFO = W_KNA1-KUNNR.

APPEND W_COMMENT1 TO T_COMMENT1.

CLEAR W_COMMENT.

W_COMMENT1-TYP = 'A'.

W_COMMENT1-INFO = W_KNA1-NAME1.

APPEND W_COMMENT1 TO T_COMMENT1.

CLEAR W_COMMENT1.

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

EXPORTING

IT_LIST_COMMENTARY = T_COMMENT1

I_LOGO = 'LOGO_ALV'.

REFRESH T_COMMENT1.

ENDFORM. " END OF TOPPAGE1

*&----

FORM SUB3 USING UCOMM LIKE SY-UCOMM FIELDS1 TYPE SLIS_SELFIELD.

READ TABLE T_VBAK INTO W_VBAK INDEX FIELDS1-TABINDEX.

SET PARAMETER ID 'AUN' FIELD W_VBAK-VBELN.

CALL TRANSACTION 'VA02' AND SKIP FIRST SCREEN.

ENDFORM. ":

*&----

Give customer number as 3400 on the Selection-screen.You can even check for different values...

Regards,

Pavan P.

Re: ABAP OBJECTS

Former Member — Fri, 06 Jul 2007 11:17:52 GMT

Hi srinath,

look at this code and paste it in ur report page and run it.

&----

*& Report ZSANINTERNAL2 *

*& *

&----

*& *

&----

REPORT ZSANINTERNAL2 .

DATA: SALESORDER(10) TYPE C,

SALESORDERNO(15) TYPE C,

CREATEDBY(15) TYPE C,

CREATEDON LIKE SY-DATUM,

NETVALUE TYPE P DECIMALS 2,

DATE LIKE SY-DATUM.

SKIP.

WRITE: 'DATE',SY-DATUM.

SKIP.

SALESORDER = 'TELEVISION'.

SALESORDERNO = '100'.

CREATEDBY = 'SANKET SETHI'.

WRITE: /'SALES ORDER :',SALESORDER,

/'SALES ORDER NO. :',SALESORDERNO,

/'CREATED BY :',CREATEDBY,

/'CREATED ON :',SY-DATUM.

DATA: BEGIN OF T_SANKET OCCURS 0,

MATERIALNO(5) TYPE C,

MATERIAL(15) TYPE C,

QUANTITY(5) TYPE C,

VALUE(10) TYPE P DECIMALS 2 VALUE 0,

END OF T_SANKET.

T_SANKET-MATERIALNO = '1'.

T_SANKET-MATERIAL = '1000'.

T_SANKET-QUANTITY = '1'.

T_SANKET-VALUE = 100.

APPEND T_SANKET.

T_SANKET-MATERIALNO = '2'.

T_SANKET-MATERIAL = '2000'.

T_SANKET-QUANTITY = '2'.

T_SANKET-VALUE = 200.

APPEND T_SANKET.

T_SANKET-MATERIALNO = '3'.

T_SANKET-MATERIAL = '3000'.

T_SANKET-QUANTITY = '4'.

T_SANKET-VALUE = 400.

APPEND T_SANKET.

T_SANKET-MATERIALNO = '4'.

T_SANKET-MATERIAL = '5000'.

T_SANKET-QUANTITY = '6'.

T_SANKET-VALUE = 500.

APPEND T_SANKET.

WRITE: /40(17)'DAILY-SHEET' INVERSE ON COLOR 6.

SKIP.

WRITE : /20(54) SY-ULINE,

/20 SY-VLINE,

24(10)'MATERIALNO',

35 SY-VLINE,

36(8) 'MATERIAL',

45 SY-VLINE,

46(8)'QUANTITY',

55 SY-VLINE,

56(10) 'VALUE',

73 SY-VLINE.

NETVALUE = 0.

READ TABLE T_SANKET INDEX 1.

T_SANKET-MATERIAL = '90000'.

MODIFY T_SANKET INDEX 1.

LOOP AT T_SANKET .

NETVALUE = NETVALUE + T_SANKET-VALUE.

WRITE : /20(54) SY-ULINE,

/20 SY-VLINE,

24(10) T_SANKET-MATERIALNO,

35 SY-VLINE,

36(8) T_SANKET-MATERIAL,

45 SY-VLINE,

46(8) T_SANKET-QUANTITY,

55 SY-VLINE,

56(10) T_SANKET-VALUE,

73 SY-VLINE.

ENDLOOP.

WRITE:/20(54) SY-ULINE.

SKIP.

WRITE: /'NET VALUE',NETVALUE INVERSE ON COLOR 5.

*CLEAR: T_SANKET.

*FREE T_SANKET.

*WRITE: /'MATERIALNO',T_SANKET-MATERIALNO.

If useful reward points.

Thanks

Sanket.

Re: ABAP OBJECTS

Former Member — Sat, 07 Jul 2007 05:15:37 GMT

THANKS FOR RESPONDING ,I WANT SAMPLE PROGRAM TO LEARN OOPS

CONCEPT

Re: ABAP OBJECTS

Former Member — Sat, 07 Jul 2007 05:22:43 GMT

Go through it you can learn your self

Public attributes

Public attributes are defined in the PUBLIC section and can be viewed and changed from outside the class. There is direct access to public attributes. As a general rule, as few public attributes should be defined as possible.

PUBLIC SECTION.

DATA: Counter type i.

Private attributes

Private attributes are defined in the PRIVATE section. The can only be viewes and changed from within the class. There is no direct access from outside the class.

PRIVATE SECTION.

DATA: name(25) TYPE c,

planetype LIKE saplane-planetyp,

Instance attributes

There exist one instance attribute for each instance of the class, thus they exist seperately for each object. Instance attributes are declared with the DATA keyword.

Static attributes

Static attributes exist only once for each class. The data are the same for all instances of the class, and can be used e.g. for instance counters. Static attributes are defined with the keyword CLASS-DATA.

PRIVATE SECTION.

CLASS-DATA: counter type i,

Public methods

Can called from outside the class

PUBLIC SECTION.

METHODS: set_attributes IMPORTING p_name(25) TYPE c,

p_planetype LIKE saplane-planetyp,

Private methods

Can only be called from inside the class. They are placed in the PRIVATE section of the class.

Constructor method

Implicitly, each class has an instance constructor method with the reserved name constructor and a static constructor method with the reserved name class_constructor.

The instance constructor is executed each time you create an object (instance) with the CREATE OBJECT statement, while the class constructor is executed exactly once before you first access a class.

The constructors are always present. However, to implement a constructor you must declare it explicitly with the METHODS or CLASS-METHODS statements. An instance constructor can have IMPORTING parameters and exceptions. You must pass all non-optional parameters when creating an object. Static constructors have no parameters.

Static constructor

The static constructor is always called CLASS_CONSTRUCTER, and is called autmatically before the clas is first accessed, that is before any of the following actions are executed:

• Creating an instance using CREATE_OBJECT

• Adressing a static attribute using

• Calling a ststic attribute using CALL METHOD

• Registering a static event handler

• Registering an evetm handler method for a static event

The static constructor cannot be called explicitly.

Protected components

When we are talking subclassing and enheritance there is one more component than Public and Private, the Protected component. Protected components can be used by the superclass and all of the subclasses. Note that Subclasses cannot access Private components.

Polymorphism

Polymorphism: When the same method is implemented differently in different classes. This can be done using enheritance, by redefining a method from the superclass in subclasses and implement it differently.

Template for making a class

Delete the parts that should not be used

******************************************

Definition part

******************************************

CLASS xxx DEFINITION.

*----

Public section

*----

PUBLIC SECTION.

TYPES:

DATA:

Static data

CLASS-DATA:

Methods

METHODS:

Using the constructor to initialize parameters

constructor IMPORTING xxx type yyy,

Method with parameters

mm1 IMPORTING iii TYPE ttt.

Method without parameters

mm2.

Static methods

CLASS-METHODS:

*----

Protected section. Also accessable by subclasses

*----

PROTECTED SECTION.

*----

Private section. Not accessable by subclasses

*----

PRIVATE SECTION.

ENDCLASS.

******************************************

Implementation part

******************************************

CLASS lcl_airplane IMPLEMENTATION.

METHOD constructor.

ENDMETHOD.

METHOD mm1.

ENDMETHOD.

METHOD mm2.

ENDMETHOD.

ENDCLASS.

Template for calling a class

Create reference to class lcl_airplane

DATA: airplane1 TYPE REF TO lcl_airplane.

START-OF-SELECTION.

Create instance using parameters in the cosntructor method

CREATE OBJECT airplane1 exporting im_name = 'Hansemand'

im_planetype = 'Boing 747'.

Calling a method with parameters

CALL METHOD: airplane1->display_n_o_airplanes,

airplane1->display_attributes.

Subclass

CLASS xxx DEFINITION INHERITING FROM yyy.

Using af class as a parameter for a method

The class LCL_AIRPLANE is used as a parameter for method add_a_new_airplane:

METHODS:

add_a_new_airplane importing im_airplane TYPE REF to lcl_airplane.

Interfaces

In ABAP interfaces are implemented in addition to, and independently of classes. An interface only has a declaration part,

and do not have visibility sections. Components (Attributes, methods, constants, types) can be defined the same way as in classes.

• Interfaces are listed in the definition part lof the class, and must always be in the PUBLIC SECTION.

• Operations defined in the interface atre impemented as methods of the class. All methods of the interface

must be present in the implementation part of the class.

• Attributes, events, constants and types defined in the interface are automatically available to the class

carrying out the implementation.

• Interface components are addressed in the class by ]

Define, implement and use simple class | Use constructor to create an object with parameters | Subclassing | Polymorphism | Events

Define, implement and use simple class

***INCLUDE ZBC404_HF_LCL_AIRPLANE .

******************************************

Definition part

******************************************

CLASS lcl_airplane DEFINITION.

*----

Public section

*----

PUBLIC SECTION.

TYPES: t_name(25) TYPE c.

METHODS:

constructor,

set_attributes IMPORTING p_name TYPE t_name

p_planetype TYPE saplane-planetype,

display_attributes,

display_n_o_airplanes.

*----

Private section

*----

PRIVATE SECTION.

Private attributes

DATA: name(25) TYPE c,

planetype TYPE saplane-planetype.

Private static attribute

CLASS-DATA n_o_airplanes TYPE i.

ENDCLASS.

******************************************

Implementation part

******************************************

CLASS lcl_airplane IMPLEMENTATION.

METHOD constructor.

Counts number of instances

n_o_airplanes = n_o_airplanes + 1.

ENDMETHOD.

METHOD set_attributes.

name = p_name.

planetype = p_planetype.

ENDMETHOD.

METHOD display_attributes.

WRITE:/ 'Name:', name, 'Planetype:', planetype.

ENDMETHOD.

METHOD display_n_o_airplanes.

WRITE: / 'No. planes:', n_o_airplanes.

ENDMETHOD.

ENDCLASS.

REPORT zbc404_hf_maintain_airplanes .

INCLUDE zbc404_hf_lcl_airplane.

Create reference to class lcl_airplane

DATA: airplane1 TYPE REF TO lcl_airplane,

airplane2 TYPE REF TO lcl_airplane.

START-OF-SELECTION.

Create instance

CREATE OBJECT airplane1.

CALL METHOD: airplane1->display_n_o_airplanes.

CREATE OBJECT airplane2.

Setting attributes using a method with parameters

CALL METHOD airplane1->set_attributes EXPORTING p_name = 'Kurt'

p_planetype = 'MD80'.

END-OF-SELECTION.

Using methods

CALL METHOD: airplane1->display_n_o_airplanes,

airplane1->display_attributes.

The resulting report:

Maintain airplanes

No. planes: 1

No. planes: 2

Name: Kurt Planetype: MD80

Use constructor to create an object with parameters

CLASS lcl_airplane DEFINITION.

PUBLIC SECTION.

TYPES: t_name(25) TYPE c.

METHODS:

constructor importing p2_name type t_name

p2_planetype TYPE saplane-planetype,

..... more code .......

CLASS lcl_airplane IMPLEMENTATION.

METHOD constructor.

name = p2_name.

planetype = p2_planetype.

..... more code .......

START-OF-SELECTION.

CREATE OBJECT airplane1 exporting p2_name = 'Hansemand'

p2_planetype = 'Boing 747'.

Subclassing

This example uses a superclass LCL_AIRPLANE and subclasses it into LCL_PASSENGER_AIRPLANE and LCL_CARGO_PLANE.

LCL_AIRPLANE has a method display_n_o_airplanes that displays the number of object instances.

LCL_PASSENGER_AIRPLANE has the private instance attribute n_o_seats, and redefines the superclass method display_attributes,

so it also displays n_o_seats.

LCL_CARGO_PLANE has the private instance attribute cargomax, and redefines the superclass method

display_attributes, so it also displays cargomax.

All instance attributes are provided by the cunstructor method.

Superclass LCL_AIRPLANE

***INCLUDE ZBC404_HF_LCL_AIRPLANE .

******************************************

Definition part

******************************************

CLASS lcl_airplane DEFINITION.

*----

Public section

*----

PUBLIC SECTION.

TYPES: t_name(25) TYPE c.

METHODS:

constructor IMPORTING im_name TYPE t_name

im_planetype TYPE saplane-planetype,

display_attributes.

Static methods

CLASS-METHODS:

display_n_o_airplanes.

*----

Protected section

*----

PROTECTED SECTION.

Private attributes

DATA: name(25) TYPE c,

planetype TYPE saplane-planetype.

Private static attribute

CLASS-DATA n_o_airplanes TYPE i.

ENDCLASS.

******************************************

Implementation part

******************************************

CLASS lcl_airplane IMPLEMENTATION.

METHOD constructor.

name = im_name.

planetype = im_planetype.

Counts number of instances

n_o_airplanes = n_o_airplanes + 1.

ENDMETHOD.

METHOD display_attributes.

WRITE:/ 'Name:', name, 'Planetype:', planetype.

ENDMETHOD.

METHOD display_n_o_airplanes.

WRITE: / 'No. planes:', n_o_airplanes.

ENDMETHOD.

ENDCLASS.

Sub class LCL_PASSENGER_AIRPLANE

***INCLUDE ZBC404_HF_LCL_PASSENGER_PLANE .

*******************************************************************

This is a subclass of class lcl_airplane

*******************************************************************

CLASS lcl_passenger_airplane DEFINITION INHERITING FROM lcl_airplane.

PUBLIC SECTION.

The constructor contains the parameters from the superclass
plus the parameters from the subclass

METHODS:

constructor IMPORTING im_name TYPE t_name

im_planetype TYPE saplane-planetype

im_n_o_seats TYPE sflight-seatsmax,

Redefinition of superclass method display_attributes

display_attributes REDEFINITION.

PRIVATE SECTION.

DATA: n_o_seats TYPE sflight-seatsmax.

ENDCLASS.

CLASS lcl_passenger_airplane IMPLEMENTATION.

METHOD constructor.

The constructor method of the superclass MUST be called withing the
construtor

CALL METHOD super->constructor

EXPORTING im_name = im_name

im_planetype = im_planetype.

n_o_seats = im_n_o_seats.

ENDMETHOD.

The redefined display_attributes method

METHOD display_attributes.

CALL METHOD super->display_attributes.

WRITE: / 'No. seats:', n_o_seats.

ENDMETHOD.

ENDCLASS.

Sub class LCL_CARGO_PLANE

***INCLUDE ZBC404_HF_LCL_CARGO_PLANE .

*******************************************************************

This is a subclass of class lcl_airplane

*******************************************************************

CLASS lcl_cargo_plane DEFINITION INHERITING FROM lcl_airplane.

PUBLIC SECTION.

METHODS:

The constructor contains the parameters from the superclass

plus the parameters from the subclass

constructor IMPORTING im_name TYPE t_name

im_planetype TYPE saplane-planetype

im_cargomax type scplane-cargomax,

Redefinition of superclass method display_attributes

display_attributes REDEFINITION.

PRIVATE SECTION.

DATA:cargomax TYPE scplane-cargomax.

ENDCLASS.

CLASS lcl_cargo_plane IMPLEMENTATION.

METHOD constructor.

The constructor method of the superclass MUST be called withing the

constructor

CALL METHOD super->constructor

EXPORTING im_name = im_name

im_planetype = im_planetype.

cargomax = im_cargomax.

ENDMETHOD.

METHOD display_attributes.

The redefined display_attributes method

CALL METHOD super->display_attributes.

WRITE: / 'Cargo max:', cargomax.

ENDMETHOD.

ENDCLASS.

The Main program that uses the classes

REPORT zbc404_hf_main .

Super class

INCLUDE zbc404_hf_lcl_airplane.

Sub classes

INCLUDE zbc404_hf_lcl_passenger_plane.

INCLUDE zbc404_hf_lcl_cargo_plane.

DATA:

Type ref to sub classes. Note: It is not necesssary to make typeref to the superclass

o_passenger_airplane TYPE REF TO lcl_passenger_airplane,

o_cargo_plane TYPE REF TO lcl_cargo_plane.

START-OF-SELECTION.

Display initial number of instances = 0

CALL METHOD lcl_airplane=>display_n_o_airplanes.

Create objects

CREATE OBJECT o_passenger_airplane

EXPORTING

im_name = 'LH505'

im_planetype = 'Boing 747'

im_n_o_seats = 350.

CREATE OBJECT o_cargo_plane

EXPORTING

im_name = 'AR13'

im_planetype = 'DC 3'

im_cargomax = 35.

Display attributes

CALL METHOD o_passenger_airplane->display_attributes.

CALL METHOD o_cargo_plane->display_attributes.

Call static method display_n_o_airplanes
Note: The syntax for calling a superclass method, differs from the syntax when calling a
subclass method.
When calling a superclass => must be used instead of ->

CALL METHOD lcl_airplane=>display_n_o_airplanes.

Result:

No. planes: 0

Name: LH505 Planetype: Boing 747

No. seats: 350

Name: AR13 Planetype: DC 3

Cargo max: 35,0000

No. planes: 2

Polymorphism

Polymorphism: When the same method is implemented differently in different classes. This can be done u

sing enheritance, by redefining a method from the superclass in subclasses and implement it differently.

Classes:

• lcl_airplane Superclass

• lcl_cargo_airplane Subclass

• lcl_passenger_airplane Subclass

The method estimate_fuel_consumption is implemented differently in the 3 classes, as it depends on the airplane type.

Object from different classes are stored in an internal table (plane_list) consisting of references to the

superclass, and the processed

identically for all the classes.

What coding for the estimate_fuel_consumption method taht is actually executed, depends on the dynamic

type of the plane reference variable,

that is, depends on which object plane points to.

DATA: cargo_plane TYPE REF to lcl_cargo_airplane,

passenger_plane TYPE REF to lcl_passenger_airplane,

plane_list TYPE TABLE OF REF TO lcl_airplane.

Creating the list of references

CREATE OBJECT cargo_plane.

APPEND cargo_plane to plane_list.

CREATE OBJECT passenger_plane

APPEND passenger_plane to plane list.

Generic method for calucalting required fuel

METHOD calculate required_fuel.

DATA: plane TYPE REF TO lcl_airplane.

LOOP AT plane_list INTO plane.

re_fuel = re_fuel + plane->estimate_fuel_consumption( distance ).

ENDLOOP.

ENDMETHOD.

Working example:

This example assumes that the classes lcl_airplane, lcl_passnger_airplane and lcl_cargo plane exists.

Create objects of type lcl_cargo_plane and lcl_passenger_airplane, adds them to a list in lcl_carrier,

and displays the list.

*&----

*& Include ZBC404_HF_LCL_CARRIER *

*&----

CLASS lcl_carrier DEFINITION *

*----

CLASS lcl_carrier DEFINITION.

PUBLIC SECTION.

TYPES: BEGIN OF flight_list_type,

connid TYPE sflight-connid,

fldate TYPE sflight-fldate,

airplane TYPE REF TO lcl_airplane,

seatsocc TYPE sflight-seatsocc,

cargo(5) TYPE p DECIMALS 3,

END OF flight_list_type.

METHODS: constructor IMPORTING im_name TYPE string,

get_name RETURNING value(ex_name) TYPE string,

add_a_new_airplane IMPORTING

im_airplane TYPE REF TO lcl_airplane,

create_a_new_flight importing

im_connid type sflight-connid

im_fldate type sflight-fldate

im_airplane type ref to lcl_airplane

im_seatsocc type sflight-seatsocc

optional

im_cargo type p optional,

display_airplanes.

PRIVATE SECTION.

DATA: name TYPE string,

list_of_airplanes TYPE TABLE OF REF TO lcl_airplane,

list_of_flights TYPE TABLE OF flight_list_type.

ENDCLASS.

*----

CLASS lcl_carrier IMPLEMENTATION

*----

CLASS lcl_carrier IMPLEMENTATION.

METHOD constructor.

name = im_name.

ENDMETHOD.

METHOD get_name.

ex_name = name.

ENDMETHOD.

METHOD create_a_new_flight.

DATA: wa_list_of_flights TYPE flight_list_type.

wa_list_of_flights-connid = im_connid.

wa_list_of_flights-fldate = im_fldate.

wa_list_of_flights-airplane = im_airplane.

IF im_seatsocc IS INITIAL.

wa_list_of_flights-cargo = im_cargo.

ELSE.

wa_list_of_flights-seatsocc = im_seatsocc.

ENDIF.

APPEND wa_list_of_flights TO list_of_flights.

ENDMETHOD.

METHOD add_a_new_airplane.

APPEND im_airplane TO list_of_airplanes.

ENDMETHOD.

METHOD display_airplanes.

DATA: l_airplane TYPE REF TO lcl_airplane.

LOOP AT list_of_airplanes INTO l_airplane.

CALL METHOD l_airplane->display_attributes.

ENDLOOP.

ENDMETHOD.

ENDCLASS.

REPORT zbc404_hf_main .

*******************************************************************

This reprort uses class LCL_AIRPLNAE and subclasses

LCL_CARGO_PLANE and LCL_PASSENGER_AIRPLANE and class LCL_CARRIER

*******************************************************************

Super class for airplanes

INCLUDE zbc404_hf_lcl_airplane.

Sub classes for airplanes

INCLUDE zbc404_hf_lcl_passenger_plane.

INCLUDE zbc404_hf_lcl_cargo_plane.

Carrier class

INCLUDE zbc404_hf_lcl_carrier.

DATA:

Type ref to classes

o_passenger_airplane TYPE REF TO lcl_passenger_airplane,

o_passenger_airplane2 TYPE REF TO lcl_passenger_airplane,

o_cargo_plane TYPE REF TO lcl_cargo_plane,

o_cargo_plane2 TYPE REF TO lcl_cargo_plane,

o_carrier TYPE REF TO lcl_carrier.

START-OF-SELECTION.

Create objects

CREATE OBJECT o_passenger_airplane

EXPORTING

im_name = 'LH505'

im_planetype = 'Boing 747'

im_n_o_seats = 350.

CREATE OBJECT o_passenger_airplane2

EXPORTING

im_name = 'SK333'

im_planetype = 'MD80'

im_n_o_seats = 110.

CREATE OBJECT o_cargo_plane

EXPORTING

im_name = 'AR13'

im_planetype = 'DC 3'

im_cargomax = 35.

CREATE OBJECT o_cargo_plane2

EXPORTING

im_name = 'AFL124'

im_planetype = 'Iljutsin 2'

im_cargomax = 35000.

CREATE OBJECT o_carrier

EXPORTING im_name = 'Spritisch Airways'.

Add passenger and cargo planes to the list of airplanes

CALL METHOD o_carrier->add_a_new_airplane

EXPORTING im_airplane = o_passenger_airplane.

CALL METHOD o_carrier->add_a_new_airplane

EXPORTING im_airplane = o_passenger_airplane2.

CALL METHOD o_carrier->add_a_new_airplane

EXPORTING im_airplane = o_cargo_plane.

CALL METHOD o_carrier->add_a_new_airplane

EXPORTING im_airplane = o_cargo_plane2.

Display list of airplanes

call method o_carrier->display_airplanes.

Result:

Name: LH505 Planetype: Boing 747

No. seats: 350

Name: SK333 Planetype: MD80

No. seats: 110

Name: AR13 Planetype: DC 3

Cargo max: 35,0000

Name: AFL124 Planetype: Iljutsin 2

Cargo max: 35.000,0000

Events

Below is a simple example of how to implement an event.

REPORT zbc404_hf_events_5.

*----

CLASS lcl_dog DEFINITION

*----

CLASS lcl_dog DEFINITION.

PUBLIC SECTION.

Declare events

EVENTS:

dog_is_hungry

EXPORTING value(ex_time_since_last_meal) TYPE i.

METHODS:

constructor

IMPORTING im_name TYPE string,

set_time_since_last_meal

IMPORTING im_time TYPE i,

on_dog_is_hungry FOR EVENT dog_is_hungry OF lcl_dog

IMPORTING ex_time_since_last_meal.

ENDCLASS.

*----

CLASS lcl_dog IMPLEMENTATION

*----

CLASS lcl_dog IMPLEMENTATION.

METHOD constructor.

WRITE: / 'I am a dog and my name is', im_name.

ENDMETHOD.

METHOD set_time_since_last_meal.

IF im_time < 4.

SKIP 1.

WRITE: / 'You fool, I am not hungry yet'.

ELSE.

Subsrcribe for event:
set handler <Event handler method>
FOR <ref_sender>!FOR ALL INSTANCES [ACTIVATION <var>]

SET HANDLER on_dog_is_hungry FOR ALL INSTANCES ACTIVATION 'X'.

Raise event

RAISE EVENT dog_is_hungry

EXPORTING ex_time_since_last_meal = im_time.

ENDIF.

ENDMETHOD.

METHOD on_dog_is_hungry.

Event method, called when the event dog_is_hungry is raised

SKIP 1.

WRITE: / 'You son of a ****. I have not eaten for more than',

ex_time_since_last_meal, ' hours'.

WRITE: / 'Give me something to eat NOW!'.

ENDMETHOD.

ENDCLASS.

*----

R E P O R T

*----

DATA: o_dog1 TYPE REF TO lcl_dog.

START-OF-SELECTION.

CREATE OBJECT o_dog1 EXPORTING im_name = 'Beefeater'.

CALL METHOD o_dog1->set_time_since_last_meal

EXPORTING im_time = 2.

This method call will raise the event dog_is_hungy
because time > 3

CALL METHOD o_dog1->set_time_since_last_meal

EXPORTING im_time = 5.

Result:

I am a dog and my name is Beefeater

You fool, I am not hungry yet

You son of a ****. I have not eaten for more than 5 hours

Give me something to eat NOW

This example is a step by step example, moving from a simple clas to more sophisticated classes, and covers inheritance, interfaces and events.

Simple class | Inheritance and ploymorphism | Interfaces | Events

1. Simple class

This example shows how to create a simple employee class. The constructor method is used to initialize number and name of thje employee when the object is created. A display_employee method can be called to show the attributes of the employee, and CLASS-METHOD dosplay_no_of_employees can be called to show the total number of employees (Number of instances of the employee class).

REPORT zbc404_hf_events_1.

*********************************************************************

L C L _ E M P L O Y E E

*********************************************************************

*---- LCL Employee - Definition

CLASS lcl_employee DEFINITION.

PUBLIC SECTION.

*----

The public section is accesible from outside

*----

TYPES:

BEGIN OF t_employee,

no TYPE i,

name TYPE string,

END OF t_employee.

METHODS:

constructor

IMPORTING im_employee_no TYPE i

im_employee_name TYPE string,

display_employee.

Class methods are global for all instances

CLASS-METHODS: display_no_of_employees.

PROTECTED SECTION.

*----

The protecetd section is accesible from the class and its subclasses

*----

Class data are global for all instances

CLASS-DATA: g_no_of_employees TYPE i.

PRIVATE SECTION.

*----

The private section is only accesible from within the classs

*----

DATA: g_employee TYPE t_employee.

ENDCLASS.

*--- LCL Employee - Implementation

CLASS lcl_employee IMPLEMENTATION.

METHOD constructor.

g_employee-no = im_employee_no.

g_employee-name = im_employee_name.

g_no_of_employees = g_no_of_employees + 1.

ENDMETHOD.

METHOD display_employee.

WRITE:/ 'Employee', g_employee-no, g_employee-name.

ENDMETHOD.

METHOD display_no_of_employees.

WRITE: / 'Number of employees is:', g_no_of_employees.

ENDMETHOD.

ENDCLASS.

************************************************************************

R E P O R T

*********************************************************************

DATA: g_employee1 TYPE REF TO lcl_employee,

g_employee2 TYPE REF TO lcl_employee.

START-OF-SELECTION.

CREATE OBJECT g_employee1

EXPORTING im_employee_no = 1

im_employee_name = 'John Jones'.

CREATE OBJECT g_employee2

EXPORTING im_employee_no = 2

im_employee_name = 'Sally Summer'.

CALL METHOD g_employee1->display_employee.

CALL METHOD g_employee2->display_employee.

CALL METHOD g_employee2->display_no_of_employees.

2. Inheritance and polymorphism

This example uses a superclass lcl_company_employees and two subclasses lcl_bluecollar_employee and lcl_whitecollar_employee to add employees to a list and then display a list of employees and there wages. The wages are calcukated in the method add_employee, but as the wages are calculated differently for blue collar employees and white collar emplyees, the superclass method add_employee is redeifined in the subclasses.

Principles:

Create super class LCL_CompanyEmployees.

The class has the methods:

• Constructor

• Add_Employee - Adds a new employee to the list of employees

• Display_Employee_List - Displays all employees and there wage

• Display_no_of_employees - Displays total number of employees

Note the use of CLASS-DATA to keep the list of employees and number of employees the same from instance to instance.

Create subclasses lcl_bluecollar_employee and lcl_whitecollar_employee. The calsses are identical, except for the redifinition of the add_employee method, where the caclculation of wage is different.

Methodes:

• Constructor. The constructor is used to initialize the attributes of the employee. Note that the constructor in the supclasss has to be called from within the constructor of the subclass.

• Add_Employee. This is a redinition of the same method in the superclass. In the redefined class the wage is calcuated, and the superclass method is called to add the employees to the emploee list.:

The program

REPORT zbc404_hf_events_2 .

*******************************************************

Super class LCL_CompanyEmployees

*******************************************************

CLASS lcl_company_employees DEFINITION.

PUBLIC SECTION.

TYPES:

BEGIN OF t_employee,

no TYPE i,

name TYPE string,

wage TYPE i,

END OF t_employee.

METHODS:

constructor,

add_employee

IMPORTING im_no TYPE i

im_name TYPE string

im_wage TYPE i,

display_employee_list,

display_no_of_employees.

PRIVATE SECTION.

CLASS-DATA: i_employee_list TYPE TABLE OF t_employee,

no_of_employees TYPE i.

ENDCLASS.

*-- CLASS LCL_CompanyEmployees IMPLEMENTATION

CLASS lcl_company_employees IMPLEMENTATION.

METHOD constructor.

no_of_employees = no_of_employees + 1.

ENDMETHOD.

METHOD add_employee.

Adds a new employee to the list of employees

DATA: l_employee TYPE t_employee.

l_employee-no = im_no.

l_employee-name = im_name.

l_employee-wage = im_wage.

APPEND l_employee TO i_employee_list.

ENDMETHOD.

METHOD display_employee_list.

Displays all employees and there wage

DATA: l_employee TYPE t_employee.

WRITE: / 'List of Employees'.

LOOP AT i_employee_list INTO l_employee.

WRITE: / l_employee-no, l_employee-name, l_employee-wage.

ENDLOOP.

ENDMETHOD.

METHOD display_no_of_employees.

Displays total number of employees

SKIP 3.

WRITE: / 'Total number of employees:', no_of_employees.

ENDMETHOD.

ENDCLASS.

*******************************************************

Sub class LCL_BlueCollar_Employee

*******************************************************

CLASS lcl_bluecollar_employee DEFINITION

INHERITING FROM lcl_company_employees.

PUBLIC SECTION.

METHODS:

constructor

IMPORTING im_no TYPE i

im_name TYPE string

im_hours TYPE i

im_hourly_payment TYPE i,

add_employee REDEFINITION.

PRIVATE SECTION.

DATA:no TYPE i,

name TYPE string,

hours TYPE i,

hourly_payment TYPE i.

ENDCLASS.

*---- CLASS LCL_BlueCollar_Employee IMPLEMENTATION

CLASS lcl_bluecollar_employee IMPLEMENTATION.

METHOD constructor.

The superclass constructor method must be called from the subclass
constructor method

CALL METHOD super->constructor.

no = im_no.

name = im_name.

hours = im_hours.

hourly_payment = im_hourly_payment.

ENDMETHOD.

METHOD add_employee.

Calculate wage an call the superclass method add_employee to add
the employee to the employee list

DATA: l_wage TYPE i.

l_wage = hours * hourly_payment.

CALL METHOD super->add_employee

EXPORTING im_no = no

im_name = name

im_wage = l_wage.

ENDMETHOD.

ENDCLASS.

*******************************************************

Sub class LCL_WhiteCollar_Employee

*******************************************************

CLASS lcl_whitecollar_employee DEFINITION

INHERITING FROM lcl_company_employees.

PUBLIC SECTION.

METHODS:

constructor

IMPORTING im_no TYPE i

im_name TYPE string

im_monthly_salary TYPE i

im_monthly_deducations TYPE i,

add_employee REDEFINITION.

PRIVATE SECTION.

DATA:

no TYPE i,

name TYPE string,

monthly_salary TYPE i,

monthly_deducations TYPE i.

ENDCLASS.

*---- CLASS LCL_WhiteCollar_Employee IMPLEMENTATION

CLASS lcl_whitecollar_employee IMPLEMENTATION.

METHOD constructor.

The superclass constructor method must be called from the subclass

constructor method

CALL METHOD super->constructor.

no = im_no.

name = im_name.

monthly_salary = im_monthly_salary.

monthly_deducations = im_monthly_deducations.

ENDMETHOD.

METHOD add_employee.

Calculate wage an call the superclass method add_employee to add

the employee to the employee list

DATA: l_wage TYPE i.

l_wage = monthly_salary - monthly_deducations.

CALL METHOD super->add_employee

EXPORTING im_no = no

im_name = name

im_wage = l_wage.

ENDMETHOD.

ENDCLASS.

*******************************************************

R E P O R T

*******************************************************

DATA:

Object references

o_bluecollar_employee1 TYPE REF TO lcl_bluecollar_employee,

o_whitecollar_employee1 TYPE REF TO lcl_whitecollar_employee.

START-OF-SELECTION.

Create bluecollar employee obeject

CREATE OBJECT o_bluecollar_employee1

EXPORTING im_no = 1

im_name = 'Gylle Karen'

im_hours = 38

im_hourly_payment = 75.

Add bluecollar employee to employee list

CALL METHOD o_bluecollar_employee1->add_employee

EXPORTING im_no = 1

im_name = 'Gylle Karen'

im_wage = 0.

Create whitecollar employee obeject

CREATE OBJECT o_whitecollar_employee1

EXPORTING im_no = 2

im_name = 'John Dickens'

im_monthly_salary = 10000

im_monthly_deducations = 2500.

Add bluecollar employee to employee list

CALL METHOD o_whitecollar_employee1->add_employee

EXPORTING im_no = 1

im_name = 'Karen Johnson'

im_wage = 0.

Display employee list and number of employees. Note that the result
will be the same when called from o_whitecollar_employee1 or
o_bluecolarcollar_employee1, because the methods are defined
as static (CLASS-METHODS)

CALL METHOD o_whitecollar_employee1->display_employee_list.

CALL METHOD o_whitecollar_employee1->display_no_of_employees.

The resulting report

List of Employees

1 Karen Johnson 2.850

2 John Dickens 7.500

Total number of employees: 2

3. Interfaces

This example is similiar to th eprevious example, however an interface is implemented with the method add_employee. Note that the interface is only implemented in the superclass ( The INTERFACE stament), but also used in the subclasses.

The interface in the example only contains a method, but an iterface can also contain attrbutes, constants, types and alias names.

The output from example 3 is similiar to the output in example 2.

All changes in the program compared to example 2 are marked with red.

REPORT zbc404_hf_events_3 .

*----

INTERFACE lif_employee

*----

INTERFACE lif_employee.

METHODS:

add_employee

IMPORTING im_no TYPE i

im_name TYPE string

im_wage TYPE i.

ENDINTERFACE.

*******************************************************

Super class LCL_CompanyEmployees

*******************************************************

CLASS lcl_company_employees DEFINITION.

PUBLIC SECTION.

INTERFACES lif_employee.

TYPES:

BEGIN OF t_employee,

no TYPE i,

name TYPE string,

wage TYPE i,

END OF t_employee.

METHODS:

constructor,

add_employee "Removed

IMPORTING im_no TYPE i

im_name TYPE string

im_wage TYPE i,

display_employee_list,

display_no_of_employees.

PRIVATE SECTION.

CLASS-DATA: i_employee_list TYPE TABLE OF t_employee,

no_of_employees TYPE i.

ENDCLASS.

*-- CLASS LCL_CompanyEmployees IMPLEMENTATION

CLASS lcl_company_employees IMPLEMENTATION.

METHOD constructor.

no_of_employees = no_of_employees + 1.

ENDMETHOD.

METHOD lif_employee~add_employee.

Adds a new employee to the list of employees

DATA: l_employee TYPE t_employee.

l_employee-no = im_no.

l_employee-name = im_name.

l_employee-wage = im_wage.

APPEND l_employee TO i_employee_list.

ENDMETHOD.

METHOD display_employee_list.

Displays all employees and there wage

DATA: l_employee TYPE t_employee.

WRITE: / 'List of Employees'.

LOOP AT i_employee_list INTO l_employee.

WRITE: / l_employee-no, l_employee-name, l_employee-wage.

ENDLOOP.

ENDMETHOD.

METHOD display_no_of_employees.

Displays total number of employees

SKIP 3.

WRITE: / 'Total number of employees:', no_of_employees.

ENDMETHOD.

ENDCLASS.

*******************************************************

Sub class LCL_BlueCollar_Employee

*******************************************************

CLASS lcl_bluecollar_employee DEFINITION

INHERITING FROM lcl_company_employees.

PUBLIC SECTION.

METHODS:

constructor

IMPORTING im_no TYPE i

im_name TYPE string

im_hours TYPE i

im_hourly_payment TYPE i,

lif_employee~add_employee REDEFINITION..

PRIVATE SECTION.

DATA:no TYPE i,

name TYPE string,

hours TYPE i,

hourly_payment TYPE i.

ENDCLASS.

*---- CLASS LCL_BlueCollar_Employee IMPLEMENTATION

CLASS lcl_bluecollar_employee IMPLEMENTATION.

METHOD constructor.

The superclass constructor method must be called from the subclass
constructor method

CALL METHOD super->constructor.

no = im_no.

name = im_name.

hours = im_hours.

hourly_payment = im_hourly_payment.

ENDMETHOD.

METHOD lif_employee~add_employee.

Calculate wage an call the superclass method add_employee to add
the employee to the employee list

DATA: l_wage TYPE i.

l_wage = hours * hourly_payment.

CALL METHOD super->lif_employee~add_employee

EXPORTING im_no = no

im_name = name

im_wage = l_wage.

ENDMETHOD.

ENDCLASS.

*******************************************************

Sub class LCL_WhiteCollar_Employee

*******************************************************

CLASS lcl_whitecollar_employee DEFINITION

INHERITING FROM lcl_company_employees.

PUBLIC SECTION.

METHODS:

constructor

IMPORTING im_no TYPE i

im_name TYPE string

im_monthly_salary TYPE i

im_monthly_deducations TYPE i,

lif_employee~add_employee REDEFINITION.

PRIVATE SECTION.

DATA:

no TYPE i,

name TYPE string,

monthly_salary TYPE i,

monthly_deducations TYPE i.

ENDCLASS.

*---- CLASS LCL_WhiteCollar_Employee IMPLEMENTATION

CLASS lcl_whitecollar_employee IMPLEMENTATION.

METHOD constructor.

The superclass constructor method must be called from the subclass

constructor method

CALL METHOD super->constructor.

no = im_no.

name = im_name.

monthly_salary = im_monthly_salary.

monthly_deducations = im_monthly_deducations.

ENDMETHOD.

METHOD lif_employee~add_employee.

Calculate wage an call the superclass method add_employee to add

the employee to the employee list

DATA: l_wage TYPE i.

l_wage = monthly_salary - monthly_deducations.

CALL METHOD super->lif_employee~add_employee

EXPORTING im_no = no

im_name = name

im_wage = l_wage.

ENDMETHOD.

ENDCLASS.

*******************************************************

R E P O R T

*******************************************************

DATA:

Object references

o_bluecollar_employee1 TYPE REF TO lcl_bluecollar_employee,

o_whitecollar_employee1 TYPE REF TO lcl_whitecollar_employee.

START-OF-SELECTION.

Create bluecollar employee obeject

CREATE OBJECT o_bluecollar_employee1

EXPORTING im_no = 1

im_name = 'Gylle Karen'

im_hours = 38

im_hourly_payment = 75.

Add bluecollar employee to employee list

CALL METHOD o_bluecollar_employee1->lif_employee~add_employee

EXPORTING im_no = 1

im_name = 'Karen Johnson'

im_wage = 0.

Create whitecollar employee obeject

CREATE OBJECT o_whitecollar_employee1

EXPORTING im_no = 2

im_name = 'John Dickens'

im_monthly_salary = 10000

im_monthly_deducations = 2500.

Add bluecollar employee to employee list

CALL METHOD o_whitecollar_employee1->lif_employee~add_employee

EXPORTING im_no = 1

im_name = 'Gylle Karen'

im_wage = 0.

Display employee list and number of employees. Note that the result

will be the same when called from o_whitecollar_employee1 or

o_bluecolarcollar_employee1, because the methods are defined

as static (CLASS-METHODS)

CALL METHOD o_whitecollar_employee1->display_employee_list.

CALL METHOD o_whitecollar_employee1->display_no_of_employees.

4. Events

This is the same example as example 4. All changes are marked with red. There have been no canges to the subclasses, only to the superclass and the report, sp the code for th esubclasses is not shown.

For a simple example refer to Events in Examples.

REPORT zbc404_hf_events_4 .

*----

INTERFACE lif_employee

*----

INTERFACE lif_employee.

METHODS:

add_employee

IMPORTING im_no TYPE i

im_name TYPE string

im_wage TYPE i.

ENDINTERFACE.

*******************************************************

Super class LCL_CompanyEmployees

*******************************************************

CLASS lcl_company_employees DEFINITION.

PUBLIC SECTION.

TYPES:

BEGIN OF t_employee,

no TYPE i,

name TYPE string,

wage TYPE i,

END OF t_employee.

Declare event. Note that declaration could also be placed in the
interface

EVENTS: employee_added_to_list

EXPORTING value(ex_employee_name) TYPE string.

CLASS-EVENTS: Events can also be defined as class-events

INTERFACES lif_employee.

METHODS:

constructor,

display_employee_list,

display_no_of_employees,

Declare event method

on_employee_added_to_list FOR EVENT employee_added_to_list OF lcl_company_employees

IMPORTING ex_employee_name sender.

PRIVATE SECTION.

CLASS-DATA:

i_employee_list TYPE TABLE OF t_employee,

no_of_employees TYPE i.

ENDCLASS.

*-- CLASS LCL_CompanyEmployees IMPLEMENTATION

CLASS lcl_company_employees IMPLEMENTATION.

METHOD constructor.

no_of_employees = no_of_employees + 1.

ENDMETHOD.

METHOD lif_employee~add_employee.

Adds a new employee to the list of employees

DATA: l_employee TYPE t_employee.

l_employee-no = im_no.

l_employee-name = im_name.

l_employee-wage = im_wage.

APPEND l_employee TO i_employee_list.

Raise event employee_added_to_list

RAISE EVENT employee_added_to_list

EXPORTING ex_employee_name = l_employee-name.

ENDMETHOD.

METHOD display_employee_list.

Displays all employees and there wage

DATA: l_employee TYPE t_employee.

WRITE: / 'List of Employees'.

LOOP AT i_employee_list INTO l_employee.

WRITE: / l_employee-no, l_employee-name, l_employee-wage.

ENDLOOP.

ENDMETHOD.

METHOD display_no_of_employees.

Displays total number of employees

SKIP 3.

WRITE: / 'Total number of employees:', no_of_employees.

ENDMETHOD.

METHOD on_employee_added_to_list.

Event method

WRITE: / 'Employee added to list', ex_employee_name.

ENDMETHOD.

ENDCLASS.

*******************************************************

Sub class LCL_BlueCollar_Employee

*******************************************************

CLASS lcl_bluecollar_employee DEFINITION

INHERITING FROM lcl_company_employees.

See code in example 3...

ENDCLASS.

CLASS lcl_bluecollar_employee IMPLEMENTATION.

See code in example 3...

ENDCLASS.

*******************************************************

Sub class LCL_WhiteCollar_Employee

*******************************************************

CLASS lcl_whitecollar_employee DEFINITION

See code in example 3...

ENDCLASS.

CLASS lcl_whitecollar_employee IMPLEMENTATION.

See code in example 3...

ENDCLASS.

*******************************************************

R E P O R T

*******************************************************

DATA:

Object references

o_bluecollar_employee1 TYPE REF TO lcl_bluecollar_employee,

o_whitecollar_employee1 TYPE REF TO lcl_whitecollar_employee.

START-OF-SELECTION.

Create bluecollar employee obeject

CREATE OBJECT o_bluecollar_employee1

EXPORTING im_no = 1

im_name = 'Karen Johnson'

im_hours = 38

im_hourly_payment = 75.

SET HANDLER o_bluecollar_employee1->on_employee_added_to_list

FOR o_bluecollar_employee1.

Add bluecollar employee to employee list

CALL METHOD o_bluecollar_employee1->lif_employee~add_employee

EXPORTING im_no = 1

im_name = 'Gylle Karen'

im_wage = 0.

Create whitecollar employee obeject

CREATE OBJECT o_whitecollar_employee1

EXPORTING im_no = 2

im_name = 'John Dickens'

im_monthly_salary = 10000

im_monthly_deducations = 2500.

SET HANDLER o_whitecollar_employee1->on_employee_added_to_list

FOR o_whitecollar_employee1.´

Add bluecollar employee to employee list

CALL METHOD o_whitecollar_employee1->lif_employee~add_employee

EXPORTING im_no = 1

im_name = 'Gylle Karen'

im_wage = 0.

Display employee list and number of employees. Note that the result

will be the same when called from o_whitecollar_employee1 or

o_bluecolarcollar_employee1, because the methods are defined

as static (CLASS-METHODS)

CALL METHOD o_whitecollar_employee1->display_employee_list.

CALL METHOD o_whitecollar_employee1->display_no_of_employees.

Result:

Employee added to list Karen Johnson

Employee added to list John Dickens

List of Employees

1 Karen Johnson 2.850

2 John Dickens 7.500

Total number of employees: 2

Check these links for clear view on oops concept

check the below links lot of info and examples r there

http://www.sapgenie.com/abap/OO/index.htm

http://www.geocities.com/victorav15/sapr3/abap_ood.html

http://www.brabandt.de/html/abap_oo.html

Check this cool weblog:

/people/thomas.jung3/blog/2004/12/08/abap-persistent-classes-coding-without-sql

http://help.sap.com/saphelp_nw04/helpdata/en/c3/225b6254f411d194a60000e8353423/frameset.htm

http://www.sapgenie.com/abap/OO/

http://www.sapgenie.com/abap/OO/index.htm

http://help.sap.com/saphelp_nw04/helpdata/en/c3/225b5654f411d194a60000e8353423/content.htm

http://www.esnips.com/doc/375fff1b-5a62-444d-8ec1-55508c308b17/prefinalppt.ppt

http://www.esnips.com/doc/2c76dc57-e74a-4539-a20e-29383317e804/OO-abap.pdf

http://www.esnips.com/doc/5c65b0dd-eddf-4512-8e32-ecd26735f0f2/prefinalppt.ppt

http://www.allsaplinks.com/

http://www.sap-img.com/

http://www.sapgenie.com/

http://help.sap.com

http://www.sapgenie.com/abap/OO/

http://www.sapgenie.com/abap/OO/index.htm

http://www.sapgenie.com/abap/controls/index.htm

http://www.esnips.com/doc/2c76dc57-e74a-4539-a20e-29383317e804/OO-abap.pdf

http://www.esnips.com/doc/0ef39d4b-586a-4637-abbb-e4f69d2d9307/SAP-CONTROLS-WORKSHOP.pdf

http://www.sapgenie.com/abap/OO/index.htm

http://help.sap.com/saphelp_erp2005/helpdata/en/ce/b518b6513611d194a50000e8353423/frameset.htm

http://www.sapgenie.com/abap/OO/

these links

http://help.sap.com/saphelp_47x200/helpdata/en/ce/b518b6513611d194a50000e8353423/content.htm

For funtion module to class

http://help.sap.com/saphelp_47x200/helpdata/en/c3/225b5954f411d194a60000e8353423/content.htm

for classes

http://help.sap.com/saphelp_47x200/helpdata/en/c3/225b5c54f411d194a60000e8353423/content.htm

for methods

http://help.sap.com/saphelp_47x200/helpdata/en/08/d27c03b81011d194f60000e8353423/content.htm

for inheritance

http://help.sap.com/saphelp_47x200/helpdata/en/dd/4049c40f4611d3b9380000e8353423/content.htm

for interfaces

http://help.sap.com/saphelp_47x200/helpdata/en/c3/225b6254f411d194a60000e8353423/content.htm

For Materials:

1) http://help.sap.com/printdocu/core/Print46c/en/data/pdf/BCABA/BCABA.pdf -- Page no: 1291

2) http://esnips.com/doc/5c65b0dd-eddf-4512-8e32-ecd26735f0f2/prefinalppt.ppt

3) http://esnips.com/doc/2c76dc57-e74a-4539-a20e-29383317e804/OO-abap.pdf

4) http://esnips.com/doc/0ef39d4b-586a-4637-abbb-e4f69d2d9307/SAP-CONTROLS-WORKSHOP.pdf

5) http://esnips.com/doc/92be4457-1b6e-4061-92e5-8e4b3a6e3239/Object-Oriented-ABAP.ppt

6) http://esnips.com/doc/448e8302-68b1-4046-9fef-8fa8808caee0/abap-objects-by-helen.pdf

7) http://esnips.com/doc/39fdc647-1aed-4b40-a476-4d3042b6ec28/class_builder.ppt

😎 http://www.amazon.com/gp/explorer/0201750805/2/ref=pd_lpo_ase/102-9378020-8749710?ie=UTF8

1) http://www.erpgenie.com/sap/abap/OO/index.htm

2) http://help.sap.com/saphelp_nw04/helpdata/en/ce/b518b6513611d194a50000e8353423/frameset.htm

Reward all helpfull answers

Regards

Pavan

Message was edited by:

Pavan praveen

Re: ABAP OBJECTS

Former Member — Sat, 07 Jul 2007 05:48:37 GMT

Hi srinath,

This code will help you to access database values form EKPO table.

TABLES: EKPO.

Data: Itab like ekpo occurs 0 with header line.

SELECT * FROM EKPO INTO TABLE ITAB.

LOOP AT ITAB.

WRITE: /10 ITAB-MATNR.

ENDLOOP.

IF USEFULL REWARD

Re: ABAP OBJECTS

Former Member — Sat, 07 Jul 2007 07:31:29 GMT

THANKS PAVAN

REGRADS

SRINATH