OPP'S Examples programs When class implementation is done at the end of the program like forms of a perform, no need of start of selection ******** Begin of Program one on OOP's***************** ----------------------------------------------------------------------* CLASS tax DEFINITION ----------------------------------------------------------------------* ----------------------------------------------------------------------* CLASS tax DEFINITION. PUBLIC SECTION. DATA : salary TYPE p DECIMALS 2 VALUE '50000'. METHODS: calc_tax IMPORTING sal TYPE p EXPORTING tax_amt TYPE p. ENDCLASS. "tax DEFINITION ----------------------------------------------------------------------* CLASS tax IMPLEMENTATION ----------------------------------------------------------------------* ----------------------------------------------------------------------* CLASS tax IMPLEMENTATION. METHOD calc_tax. sal = salary. tax_amt = sal / 10. ENDMETHOD. "calc_tax ENDCLASS. "tax IMPLEMENTATION START-OF-SELECTION. DATA : taxamt TYPE p. DATA : salary TYPE p VALUE '10025606511'. DATA: obj1 TYPE REF TO tax. CREATE OBJECT : obj1. CALL METHOD: obj1->calc_tax EXPORTING sal = salary IMPORTING tax_amt = taxamt. WRITE: / 'Tax amount is ', taxamt. ******** End of Program one on OOP's***************** When class implementation is done at the end of the program like forms of a perform, no need of start of selection ******** Begin of Program 2 on OOP's***************** ----------------------------------------------------------------------* CLASS tax DEFINITION ----------------------------------------------------------------------* ----------------------------------------------------------------------* CLASS tax DEFINITION. PUBLIC SECTION. DATA : salary TYPE p DECIMALS 2 VALUE '50000'. METHODS: calc_tax IMPORTING sal TYPE p EXPORTING tax_amt TYPE p. ENDCLASS. "tax DEFINITION START-OF-SELECTION. DATA : taxamt TYPE p. DATA : salary TYPE p VALUE '10025606511'. DATA: obj1 TYPE REF TO tax. CREATE OBJECT : obj1. CALL METHOD: obj1->calc_tax EXPORTING sal = salary IMPORTING tax_amt = taxamt. WRITE: / 'Tax amount is ', taxamt. ----------------------------------------------------------------------* CLASS tax IMPLEMENTATION ----------------------------------------------------------------------* ----------------------------------------------------------------------* CLASS tax IMPLEMENTATION. METHOD calc_tax. sal = salary. tax_amt = sal / 10. ENDMETHOD. "calc_tax ENDCLASS. "tax IMPLEMENTATION ******** End of Program 2 on OOP's***************** ******** Begin of Program 3 on OOP's***************** ----------------------------------------------------------------------* CLASS tax DEFINITION ----------------------------------------------------------------------* ----------------------------------------------------------------------* CLASS c1 DEFINITION. PUBLIC SECTION. DATA : salary TYPE p DECIMALS 2 VALUE '50000'. METHODS: m1. ENDCLASS. "tax DEFINITION ----------------------------------------------------------------------* CLASS c2 DEFINITION ----------------------------------------------------------------------* ----------------------------------------------------------------------* CLASS c2 DEFINITION INHERITING FROM c1. PUBLIC SECTION. METHODS: m2. ENDCLASS. "c2 DEFINITION ----------------------------------------------------------------------* CLASS tax IMPLEMENTATION ----------------------------------------------------------------------* ----------------------------------------------------------------------* CLASS c1 IMPLEMENTATION. METHOD m1. WRITE: / 'This is the method in class 1'. ENDMETHOD. "calc_tax ENDCLASS. "tax IMPLEMENTATION ----------------------------------------------------------------------* CLASS c2 IMPLEMENTATION ----------------------------------------------------------------------* ----------------------------------------------------------------------* CLASS c2 IMPLEMENTATION. METHOD m2. WRITE : / 'this is the method in class c2'. ENDMETHOD. "m1 ENDCLASS. "c2 IMPLEMENTATION START-OF-SELECTION. DATA : obj1 TYPE REF TO c1, obj2 TYPE REF TO c2. CREATE OBJECT: obj1, obj2. CALL METHOD : obj1->m1 , obj2->m2 , obj2->m1. ******** End of Program 3 on OOP's***************** ******** Begin of Program 4 on OOP's***************** ----------------------------------------------------------------------* CLASS tax DEFINITION ----------------------------------------------------------------------* ----------------------------------------------------------------------* CLASS c1 DEFINITION. PUBLIC SECTION. DATA : salary TYPE p DECIMALS 2 VALUE '50000'. METHODS: m1. ENDCLASS. "tax DEFINITION ----------------------------------------------------------------------* CLASS c2 DEFINITION ----------------------------------------------------------------------* ----------------------------------------------------------------------* CLASS c2 DEFINITION INHERITING FROM c1. PUBLIC SECTION. METHODS: m2. ENDCLASS. "c2 DEFINITION ----------------------------------------------------------------------* CLASS tax IMPLEMENTATION ----------------------------------------------------------------------* ----------------------------------------------------------------------* CLASS c1 IMPLEMENTATION. METHOD m1. WRITE: / 'This is the method in class 1'. ENDMETHOD. "calc_tax ENDCLASS. "tax IMPLEMENTATION ----------------------------------------------------------------------* CLASS c2 IMPLEMENTATION ----------------------------------------------------------------------* ----------------------------------------------------------------------* CLASS c2 IMPLEMENTATION. METHOD m2. WRITE : / 'this is the method in class c2'. ENDMETHOD. "m1 ENDCLASS. "c2 IMPLEMENTATION START-OF-SELECTION. DATA : obj1 TYPE REF TO c1, obj2 TYPE REF TO c2. CREATE OBJECT: obj1, obj2. CALL METHOD : obj1->m1 , obj2->m2 , obj2->m1. ******** End of Program 4 on OOP's***************** *********************************************************************************** THis is for the static keyword, this is implemented using CLASS- ******** Begin of Program 5 on OOP's***************** ----------------------------------------------------------------------* CLASS tax DEFINITION ----------------------------------------------------------------------* ----------------------------------------------------------------------* CLASS c1 DEFINITION. PUBLIC SECTION. CLASS-DATA: assign_value(10) TYPE c. DATA : salary TYPE p DECIMALS 2 VALUE '50000'. METHODS: m1. CLASS-METHODS: cm1. ENDCLASS. "tax DEFINITION ----------------------------------------------------------------------* CLASS c2 DEFINITION ----------------------------------------------------------------------* ----------------------------------------------------------------------* CLASS c2 DEFINITION INHERITING FROM c1. PUBLIC SECTION. METHODS: m2. ENDCLASS. "c2 DEFINITION ----------------------------------------------------------------------* CLASS tax IMPLEMENTATION ----------------------------------------------------------------------* ----------------------------------------------------------------------* CLASS c1 IMPLEMENTATION. METHOD m1. WRITE: / 'This is the method in class 1'. ENDMETHOD. "m1 METHOD cm1. " static method. DATA : name(10) TYPE c VALUE 'Bharat'. assign_value = name. " we don't get error here because assign_value is a static data type salary = '4555'. This gives error because static methods WRITE: / ' This is inside the static method and variable name', name. ENDMETHOD. "m1 ENDCLASS. "tax IMPLEMENTATION ----------------------------------------------------------------------* CLASS c2 IMPLEMENTATION ----------------------------------------------------------------------* ----------------------------------------------------------------------* CLASS c2 IMPLEMENTATION. METHOD m2. WRITE : / 'this is the method in class c2'. ENDMETHOD. "m1 ENDCLASS. "c2 IMPLEMENTATION START-OF-SELECTION. DATA : obj1 TYPE REF TO c1, obj2 TYPE REF TO c2. CREATE OBJECT: obj1, obj2. CALL METHOD : obj1->m1 , obj2->m2 , obj2->m1. CALL METHOD: obj1->cm1 , c1=>cm1 , obj2->cm1. c1=>assign_value = 'Country'. obj1->assign_value = 'India'. WRITE: / c1=>assign_value. WRITE: / obj1->assign_value. WRITE: / ' Test'. ******** End of Program 5 on OOP's***************** ********* **************** **************** **************** **************** Best program in which a method is called in the implementation of another method of the same class. ********* Begin of Program 6 on OOP's***************** CLASS c1 DEFINITION. PUBLIC SECTION. METHODS : m1 IMPORTING inp1 TYPE i EXPORTING out1 TYPE i, m2 IMPORTING inp2 TYPE i EXPORTING out2 TYPE i. ENDCLASS. "c1 DEFINITION &---------------------------------------------------------------------* & Class (Implementation) c1 &---------------------------------------------------------------------* Text ----------------------------------------------------------------------* CLASS c1 IMPLEMENTATION. METHOD m1. out1 = inp1. ENDMETHOD. "m1 METHOD m2. CALL METHOD : m1 EXPORTING inp1 = inp2 IMPORTING out1 = out2. ENDMETHOD. "m2 ENDCLASS. "c1 START-OF-SELECTION. DATA : number TYPE i. DATA : obj1 TYPE REF TO c1. CREATE OBJECT OBJ1. CALL METHOD: obj1->m2 EXPORTING inp2 = '10' IMPORTING out2 = number. WRITE : number. ********* End of Program 6 on OOP's***************** *********************************************************************************************** program to demonstrate constructor ********** Begin of Program 7 on OOP's***************** CLASS c1 DEFINITION. PUBLIC SECTION. METHODS: constructor. ENDCLASS. "c1 DEFINITION ----------------------------------------------------------------------* CLASS c1 IMPLEMENTATION ----------------------------------------------------------------------* ----------------------------------------------------------------------* CLASS c1 IMPLEMENTATION. METHOD constructor. The constructor method name should be constructor only. WRITE : / ' The constructor has been called automatically'. ENDMETHOD. "constructor ENDCLASS. "c1 IMPLEMENTATION START-OF-SELECTION. DATA : obj TYPE REF TO c1. create OBJECT obj. ********** End of Program 8 on OOP's***************** *********************************************************************************************** program to demonstrate static constructor and instance constructor ********** Begin of Program8 on OOP's***************** CLASS c1 DEFINITION. PUBLIC SECTION. CLASS-METHODS: class_constructor. ENDCLASS. "c1 DEFINITION ----------------------------------------------------------------------* CLASS c1 IMPLEMENTATION ----------------------------------------------------------------------* ----------------------------------------------------------------------* CLASS c1 IMPLEMENTATION. METHOD class_constructor. WRITE : / ' The constructor has been called automatically'. ENDMETHOD. "constructor ENDCLASS. "c1 IMPLEMENTATION START-OF-SELECTION. DATA : obj TYPE REF TO c1. CREATE OBJECT obj. ********** End of Program8 on OOP's***************** ********************************************************************************** Inheritance ********** Begin of Program 9 ****************** CLASS c1 DEFINITION. PUBLIC SECTION. DATA: name1 TYPE c LENGTH 30 VALUE 'bharat'. METHODS: m1 , "IMPORTING nam TYPE c EXPORTING nam1 TYPE c. m2. ENDCLASS. "c1 DEFINITION ----------------------------------------------------------------------* CLASS c1 IMPLEMENTATION ----------------------------------------------------------------------* ----------------------------------------------------------------------* CLASS c1 IMPLEMENTATION. METHOD m1. CONCATENATE nam 'Good' INTO nam1 SEPARATED BY space. WRITE:/ ' This is a method in super class c1.'. ENDMETHOD. "m1 METHOD m2. WRITE: / ' This is the method 2 of the super class c1.'. ENDMETHOD. "m2 ENDCLASS. "c1 IMPLEMENTATION ----------------------------------------------------------------------* CLASS s1 DEFINITION ----------------------------------------------------------------------* ----------------------------------------------------------------------* CLASS s1 DEFINITION INHERITING FROM c1. PUBLIC SECTION. METHODS m1 REDEFINITION. METHODS: sm1. ENDCLASS. "s1 DEFINITION ----------------------------------------------------------------------* CLASS s1 IMPLEMENTATION ----------------------------------------------------------------------* ----------------------------------------------------------------------* CLASS s1 IMPLEMENTATION. METHOD sm1. CALL METHOD super->m1. WRITE: / ' This is a method in subclass SM1'. ENDMETHOD. "sm1 ENDCLASS. "s1 IMPLEMENTATION START-OF-SELECTION. DATA : obj1 TYPE REF TO c1. DATA : objs1 TYPE REF TO s1. CREATE OBJECT : obj1 , objs1. CALL METHOD : objs1->sm1. CALL METHOD : objs1->m1,objs1->m2. CALL METHOD objs1->m1. **********End of program 9****************** 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. "counter DEFINITION ----------------------------------------------------------------------* CLASS counter IMPLEMENTATION ----------------------------------------------------------------------* ----------------------------------------------------------------------* CLASS counter IMPLEMENTATION. METHOD set. count = set_value. ENDMETHOD. "set METHOD increment. ADD 1 TO count. ENDMETHOD. "increment METHOD get. get_value = count. ENDMETHOD. "get ENDCLASS. "counter IMPLEMENTATION ----------------------------------------------------------------------* CLASS counter_ten DEFINITION ----------------------------------------------------------------------* ----------------------------------------------------------------------* CLASS counter_ten DEFINITION INHERITING FROM counter. PUBLIC SECTION. METHODS increment REDEFINITION. DATA count_ten. ENDCLASS. "counter_ten DEFINITION ----------------------------------------------------------------------* CLASS counter_ten IMPLEMENTATION ----------------------------------------------------------------------* ----------------------------------------------------------------------* 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. "increment ENDCLASS. "counter_ten IMPLEMENTATION 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.