Monday, 31 October 2016
Sunday, 30 October 2016
Friday, 19 August 2016
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.
Tuesday, 19 July 2016
Balance transfer from one mobile to another mobileIdea Dial: *567*mobile number*Rs#(ట్రాన్సఫర్ చేయాలనుకొన్న అమౌంట్)Ex: *567*9705XXXXXX*100#ఐడియా మొబైల్ లో మినిమమ్ బ్యాలన్స్ Rs.50 (లేదా) ఎస్ఎంఎస్ (SMS) అయితే మొబైల్ నంబర్, అమౌంట్ టైపు చేసి 55567 కి మెసేజ్ పంపాలి.Ex: SMS as 1234567890 50 Airtel *141# నెంబర్ కు డయల్ చేసి ఆపరేటర్ సూచనలు అనుసరిస్తూ వేరొక ఎయిర్ టెల్ నెంబర్ కు బ్యాలన్స్ ను క్షణాల్లో ట్రాన్సఫర్ చేసుకోవచ్చు. Vodafone *131*AMOUNT*Mobile Number# Ex: *131*50*1234567890# ఎయిర్ సెల్: Aircel ఎయిర్ సెల్ కస్టమర్ అయితే మొబైల్ నుంచి *122*666# నెంబర్ కు డయల్ చేసి ఆపరేటర్ సూచనలు అనుసరిస్తూ వేరొక ఎయిర్ సెల్ నెంబర్ కు బ్యాలన్స్ ను రూ.10 నుంచి రూ.100 వరకు ట్రాన్సఫర్ చేసుకోవచ్చు బిఎస్ఎన్ఎల్: Bsnl GIFTmobile number and send it to>> 53733 Ex: GIFT 50 to send Rs. 50 to 1234567890(mobile number) డోకోమో: Docomo BT MOBILE NUMBER AMOUNT అని టైప్ చేసి 54321 నంబర్ కు పంపాలి
Idea
Dial: *567*mobile number*Rs#(ట్రాన్సఫర్ చేయాలనుకొన్న అమౌంట్)Ex: *567*9705XXXXXX*100#ఐడియా మొబైల్ లో మినిమమ్ బ్యాలన్స్ Rs.50 (లేదా) ఎస్ఎంఎస్ (SMS) అయితే మొబైల్ నంబర్, అమౌంట్ టైపు చేసి 55567 కి మెసేజ్ పంపాలి.Ex: SMS as 1234567890 50
Airtel
*141# నెంబర్ కు డయల్ చేసి ఆపరేటర్ సూచనలు అనుసరిస్తూ వేరొక ఎయిర్ టెల్ నెంబర్ కు బ్యాలన్స్ ను క్షణాల్లో ట్రాన్సఫర్ చేసుకోవచ్చు.
Vodafone
*131*AMOUNT*Mobile Number#
Ex: *131*50*1234567890#
ఎయిర్ సెల్: Aircel
ఎయిర్ సెల్ కస్టమర్ అయితే మొబైల్ నుంచి *122*666# నెంబర్ కు డయల్ చేసి ఆపరేటర్ సూచనలు అనుసరిస్తూ వేరొక ఎయిర్ సెల్ నెంబర్ కు బ్యాలన్స్ ను రూ.10 నుంచి రూ.100 వరకు ట్రాన్సఫర్ చేసుకోవచ్చు
బిఎస్ఎన్ఎల్: Bsnl
GIFTmobile number and send it to>> 53733
Ex: GIFT 50 to send Rs. 50 to 1234567890(mobile number)
డోకోమో: Docomo
BT MOBILE NUMBER AMOUNT అని టైప్ చేసి 54321 నంబర్ కు పంపాలి
Ex: BT 8999994444 100 and send it to 54321
Wednesday, 29 June 2016
Drag the top value to bottom
To bring up the Fill Series dialog box press Alt and then H F I S.
Select the both the cells from where to be copied and what to be copied like,
to drag from A3 to A4 , select both A3 , A4 and pres Alt H F I S
Monday, 13 June 2016
Direct ALV Display
ALV display directly using below code:
Data: o_alv TYPE REF TO cl_salv_table.
IF i_result IS NOT INITIAL.
TRY.
cl_salv_table=>factory( IMPORTING r_salv_table = o_alv
CHANGING t_table = i_result ).
o_alv->display( ).
CATCH cx_root.
EXIT.
ENDTRY.
ENDIF.
I_result is the table which has the final values to be displayed.
Subscribe to:
Posts (Atom)