Local class with example using Static 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_class1.

    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.
        CLASS-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.

      class1=>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+ ).