Shared Top Border

Enterprise Resource
Planning Portal

 

Advertise | Founder BLOG

ERPGenie.COM ABAP Tips and Tricks Database

THE ultimate
ERP website

 

Forums | Vote for us |

Google    Other Search Options

Login

Login to view more content!!!





Lost Password?
No account yet? Register

Main Menu

Home
Search
What's New
Sample Code
Tips and Tricks
Utilities
Downloads
Site Map
Feedback

ABAP Resources

Publications
Latest Job Postings
Submit Resume
ABAP Books
ABAP Training
News
Events
Forums

Registered Access

Poll

What area of ABAP are you interested in?
 

Last 5 Contributions

5 Most Popular Contributions

Home arrow Sample Code arrow ABAP OO arrow Inheritance of ABAP Objects
Inheritance of ABAP Objects PDF Print E-mail
User Rating: / 0
PoorBest 
Written by Anon.   
Sunday, 27 May 2007
REPORT demo_inheritance.

CLASS counter DEFINITION.
  PUBLIC SECTION.
    METHODS: set IMPORTING value(set_value) TYPE i,
             increment,
             get EXPORTING value(get_value) TYPE i.
  PROTECTED SECTION.
    DATA count TYPE i.
ENDCLASS.

CLASS counter IMPLEMENTATION.
  METHOD set.
    count = set_value.
  ENDMETHOD.
  METHOD increment.
    ADD 1 TO count.
  ENDMETHOD.
  METHOD get.
    get_value = count.
  ENDMETHOD.
ENDCLASS.

CLASS counter_ten DEFINITION INHERITING FROM counter.
  PUBLIC SECTION.
    METHODS increment REDEFINITION.
    DATA count_ten(1) TYPE c.
ENDCLASS.

CLASS counter_ten IMPLEMENTATION.
  METHOD increment.
    DATA modulo TYPE i.
    CALL METHOD super->increment.
    WRITE / count.
    modulo = count MOD 10.
    IF modulo = 0.
      count_ten = count_ten + 1.
      WRITE count_ten.
    ENDIF.
  ENDMETHOD.
ENDCLASS.

DATA: count TYPE REF TO counter,
      number TYPE i VALUE 5.

START-OF-SELECTION.

  CREATE OBJECT count TYPE counter_ten.

  CALL METHOD count->set EXPORTING set_value = number.

  DO 20 TIMES.
    CALL METHOD count->increment.
  ENDDO.

Related Items:
 
< Prev   Next >
[ Back ]

Google Search

WEB
ERPGenie.COM
EDIGenie.COM
WorkflowGenie.COM

Latest Downloads

file icon BAPI list from ECC, CRM and SCM (5.0)
(Tips and Tricks)
file icon ABAP Tips - System Fields, Program Types, Screen Types, ...
(Tips and Tricks)
file icon Developing a BAPI and Calling it with JCo
(Whitepapers)
file icon Taking you through ALE
(Whitepapers)
file icon SAP Order Status tables and Doc Flow table
(Tips and Tricks)

Popular Downloads

file icon E-Book - ABAP Programs (1506)
file icon ABAP Tips and Tricks (1195)
file icon ABAP FAQ (1002)
file icon Using ALV Grid in Reports (750)
file icon ALV Report Template (677)

Statistics

Contribution Activity
Utilities: 38
Tips and Tricks: 333
Sample Code: 164
Total Contributions: 550

Member Activity
Members: 6197 since 2/1/2007!
New: 5 since yesterday!
Visitors: 1023799
We have 2 guests online

Newest Members

Welcome our newest members:

Google Ads

Shared Bottom Border

Contact Us | Polls | Add URL | Contribute | Privacy | Terms | Feedback

Discussion Forum | BLOG | Consultants: Post your resume | Companies: Advertise on ERPGenie.COM | Post Job
Financials Consultant | Consultant Review | Gallia Consulting | Supply Chain Project | SAP Financials Forum
GenieHoldings.COM, Inc. | Genie Press | WorkflowGenie | ESAGenie | ERPTopSites | ABAP Tips and Tricks | SAP Solutions Database
EDIGenie | Searching Survivor

©2001-2008 Genieholdings.COM, Inc. All rights reserved. ERPGenie.COM, EDIGenie.COM, WorkflowGenie.COM and ESAGenie.COM are Trademarks of Genieholdings.COM, Inc.

All product names are trademarks of their respective companies. GenieHoldings.COM, Inc. and it's websites are in no way affiliated with SAP AG.
 SAP, SAP R/3, R/3 software, mySAP, ABAP, BAPI, xApps, SAP NetWeaver, and and any other SAP trademarks are registered trademarks of SAP AG in Germany and in several other countries.
 Every effort is made to ensure content integrity. Use information on this site at your own risk.