Local class with example using Instance method with parameters.

 1. Goto SE38.

2. Give program name and click on create.

3. Give title and select type as executable program and click on save.

4. Write code. 

    REPORT zab_rp_local_class.

    DATAlv_matkl TYPE matkl,
          lv_mtart TYPE mtart,
          lv_mbrsh TYPE mbrsh,
          lv_meins TYPE meins.
    PARAMETERSp_matnr TYPE matnr.

    CLASS class1 DEFINITION.
      PUBLIC SECTION.
        METHODS display IMPORTING pmatnr TYPE matnr
                        EXPORTING pmatkl TYPE matkl
                                  pmtart TYPE mtart
                                  pmbrsh TYPE mbrsh
                                  pmeins TYPE meins.

    ENDCLASS.

    CLASS class1 IMPLEMENTATION.
      METHOD display.
        SELECT SINGLE
                matkl
                mtart
                mbrsh
                meins
                FROM mara
                INTO pmatkl,pmtart,pmbrsh,pmeins )
                WHERE matnr p_matnr.
      ENDMETHOD.

    ENDCLASS.

    START-OF-SELECTION.
      DATAobj TYPE REF TO class1.
      CREATE OBJECT obj.
      obj->display(
        EXPORTING
          pmatnr p_matnr
        IMPORTING
          pmatkl  lv_matkl
          pmtart  lv_mtart
          pmbrsh  lv_mbrsh
          pmeins  lv_meins
      ).
      WRITE: / p_matnr,
             / lv_matkl,
             / lv_mtart,
             / lv_mbrsh,
             / lv_meins.

Input

Output

**************************Thank You*************************


Comments

Popular posts from this blog

New syntax for append- VALUE (new syntax 7.4+) in ABAP

Read statement new syntax in ABAP. (7.4+).

Concatenation new syntax( 7.4+ ).