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 Creating a counter using ABAP OO
Creating a counter using ABAP OO PDF Print E-mail
User Rating: / 1
PoorBest 
Written by Anon.   
Monday, 28 May 2007

To do this using a function group:

REPORT demo_function_group_counter .

DATA number TYPE i VALUE 5.

CALL FUNCTION 'SET_COUNTER'
     EXPORTING
          set_value = number.

DO 3 TIMES.
  CALL FUNCTION 'INCREMENT_COUNTER'.
ENDDO.

CALL FUNCTION 'GET_COUNTER'
     IMPORTING
          get_value = number.

WRITE number.

Now to do it using a class....

REPORT demo_class_counter .

CLASS counter DEFINITION.
  PUBLIC SECTION.
    METHODS: set IMPORTING value(set_value) TYPE i,
             increment,
             get EXPORTING value(get_value) TYPE i.
  PRIVATE 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.

DATA number TYPE i VALUE 5.
DATA cnt TYPE REF TO counter.

START-OF-SELECTION.

  CREATE OBJECT cnt.

  CALL METHOD cnt->set EXPORTING set_value = number.

  DO 3 TIMES.
    CALL METHOD cnt->increment.
  ENDDO.

  CALL METHOD cnt->get IMPORTING get_value = number.

  WRITE number.

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 (1507)
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: 6198 since 2/1/2007!
New: 6 since yesterday!
Visitors: 1024328
We have 1 guest 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.