ABAP OO [2] - Strtic attribute

*-----------------------------------------------------------------------
*  Company XXX Company Limited
*
*  Report Name:  ZZW_ABAPOO_004
*
*  Author: Lilo.Zhu
*
*  Date: 2008.01.30
*-----------------------------------------------------------------------
*  Description:
* =============
*
*-----------------------------------------------------------------------
* Change History:
* ===============
* Task#  Date        By        Description
* XXX   2008.01.30  Lilo      Initial Implementation
*                              Transport Request : XXXX
*----------------------------------------------------------------------

REPORT  ZZW_ABAPOO_004                          .

*----Class Definition----
CLASS LCL_COUNT DEFINITION.
  PUBLIC SECTION.
    CLASS-DATA LINT_STATIC TYPE I.
    METHODS:
      SET_OBJ_VALUE
        IMPORTING VALUE(I_OBJ_VALUE) TYPE I,
      SHOW_RESULT.
  PRIVATE SECTION.
    DATA LINT_OBJ_VALUE TYPE I.
    CLASS-DATA LINT_COUNT TYPE I.
    METHODS:
      GET_OBJ_VALUE
        EXPORTING VALUE(E_OBJ_VALUE) TYPE I.
ENDCLASS.

*----Class Implementations----
CLASS LCL_COUNT IMPLEMENTATION.
  METHOD SET_OBJ_VALUE.
    LINT_OBJ_VALUE = I_OBJ_VALUE.
  ENDMETHOD.

  METHOD GET_OBJ_VALUE.
    E_OBJ_VALUE = LINT_OBJ_VALUE.
  ENDMETHOD.

  METHOD SHOW_RESULT.
    CALL METHOD ME->GET_OBJ_VALUE
      IMPORTING E_OBJ_VALUE = LINT_COUNT.
      LINT_STATIC = LINT_COUNT.
  ENDMETHOD.
ENDCLASS.

*------Main program------
DATA: VAL TYPE I,
      LOBJ_COUNT TYPE REF TO LCL_COUNT.

START-OF-SELECTION.
  CREATE OBJECT LOBJ_COUNT.
  VAL = 10.

  CALL METHOD LOBJ_COUNT->SET_OBJ_VALUE
      EXPORTING I_OBJ_VALUE = VAL.

  CALL METHOD LOBJ_COUNT->SHOW_RESULT.

*  The Static attribute(not instanct) of call can be accessed directly
*  via => symbol
*
  WRITE: LCL_COUNT=>LINT_STATIC.