How to use Public variables in other classes

Question

Please have a look at the program.
In the below program, i want to use the variable 'name' in the class cl_airplane1 implementation under the method aircraft to display 'BRITISH AIRWAYS' which i am passing through the object AIR1.
The variable 'name' is declared under public section of the class cl_airplane. I do not want to use inheritance. Can i do this.
*&             CLASS DEFINITION
CLASS cl_airplane DEFINITION.
  PUBLIC SECTION.
    METHODS set IMPORTING  im_name TYPE string
                           im_weight TYPE i.
    METHODS display.
    DATA name TYPE string.
  PRIVATE SECTION.
    DATA weight TYPE i.
ENDCLASS.            
*&                   CLASS IMPLEMENTATION
CLASS cl_airplane IMPLEMENTATION.
*******METHOD SET*****************
  METHOD set.
    name = im_name
    weight = im_weight.
  ENDMETHOD.               
*******METHOD DISPLAY**************
  METHOD display.
    WRITE : / ' NAME :', name, ' AND ', 'WEIGHT:', weight.
  ENDMETHOD.                   
ENDCLASS.                   
*&     END OF CLASS CL_AIRPLANE IMPLEMENTATION
*&             CLASS DEFINITION-CL_AIRPLANE1
CLASS cl_airplane1 DEFINITION .
  PUBLIC SECTION.
    METHODS : aircraft IMPORTING im_name1 TYPE string,
              dis1.
ENDCLASS.                   
*&                   CLASS IMPLEMENTATION
CLASS cl_airplane1 IMPLEMENTATION.
*******METHOD AIRCRAFT
  METHOD aircraft.
  ENDMETHOD.                
********METHOD DIS1
  METHOD dis1.
  ENDMETHOD.                                         
ENDCLASS.                 
**********CREATING REFERENCE VARIABLES
DATA : air TYPE REF TO cl_airplane.   
DATA : air1 TYPE REF TO cl_airplane1. 
START-OF-SELECTION.
***CREATING AN OBJECT OF THE CLASS CL_AIRPLANE
  CREATE OBJECT air .
  CALL METHOD air->set
    EXPORTING
      im_name   = 'Lufthansa'
      im_weight = '1000'.
  CALL METHOD air->display.
***CREATING AN OBJECT OF THE CLASS CL_AIRPLANE1
  CREATE OBJECT air1.
  CALL METHOD air1->aircraft
    EXPORTING
      im_name1 = 'BRITISH AIRWAYS'.
  CALL METHOD air1->dis1.
<removed_by_moderator>
Thanks.
Edited by: Julius Bussche on Jul 30, 2008 3:13 PM

Answer 1

Here is ur solution:
*& Report  Z157780_PRG1
REPORT  z157780_prg1.
*& CLASS DEFINITION
CLASS cl_airplane DEFINITION.
  PUBLIC SECTION.
    METHODS set IMPORTING im_name TYPE string
    im_weight TYPE i.
    METHODS display.
    DATA name TYPE string.
  PRIVATE SECTION.
    DATA weight TYPE i.
ENDCLASS.                    "
*& CLASS IMPLEMENTATION
CLASS cl_airplane IMPLEMENTATION.
********METHOD SET******************
  METHOD set.
    name = im_name.
    weight = im_weight.
  ENDMETHOD.                    "set
********METHOD DISPLAY***************
  METHOD display.
    WRITE : / ' NAME :', name, ' AND ', 'WEIGHT:', weight.
  ENDMETHOD.                    "display
ENDCLASS.                    "
*& END OF CLASS CL_AIRPLANE IMPLEMENTATION
*& CLASS DEFINITION-CL_AIRPLANE1
CLASS cl_airplane1 DEFINITION INHERITING FROM cl_airplane.
  PUBLIC SECTION.
    METHODS : aircraft IMPORTING im_name1 TYPE string,
    dis1.
ENDCLASS.                    "
*& CLASS IMPLEMENTATION
CLASS cl_airplane1 IMPLEMENTATION.
*******METHOD AIRCRAFT
  METHOD aircraft.
    name = im_name1.
    WRITE : / ' NAME :', name.
  ENDMETHOD.                    "aircraft
********METHOD DIS1
  METHOD dis1.
  ENDMETHOD.                                                "dis1
ENDCLASS.                    "
**********CREATING REFERENCE VARIABLES
DATA : air TYPE REF TO cl_airplane.
DATA : air1 TYPE REF TO cl_airplane1.
START-OF-SELECTION.
***CREATING AN OBJECT OF THE CLASS CL_AIRPLANE
  CREATE OBJECT air .
  CALL METHOD air->set
    EXPORTING
      im_name   = 'Lufthansa'
      im_weight = '1000'.
  CALL METHOD air->display.
***CREATING AN OBJECT OF THE CLASS CL_AIRPLANE1
  CREATE OBJECT air1.
  CALL METHOD air1->aircraft
    EXPORTING
      im_name1 = 'BRITISH AIRWAYS'.
  CALL METHOD air1->dis1.
Hope That Helps
Anirban M.