Add line to type ref to data field - type table

Question

HI All,
I have field that is defined as type ref to data ,and the type of it is table with data inside of it lr_data.
I have the also the table type of lr_data and I want to add additional line to the type ref to data field.
How can i do that ?
For example
TYPES: BEGIN OF bank_list,
         country_key type string,
         bank_key    type string ,
         bank_name   type string,
         bank_city  type string    ,
       END OF bank_list.
data lt_bank type table of bank_list.
data lr_data data  ref to data.
Now lr_datae is  type lt_bank " in _Runtine
and contain 4 entries .
I get the lr_data with 4 entries and I want to add new entry to the table.
How can I do that?
Thanks,
Joy
Edited by: Joy Stpr on Feb 8, 2012 10:05 PM

Answer 1

Hello Joy,
You can check this code snippet to get an idea on how to proceed with your requirement:
CLASS lcl_add_data DEFINITION.
  PUBLIC SECTION.
    CLASS-METHODS add_data CHANGING ch_data TYPE REF TO data
                           EXCEPTIONS err_invalid_type.
ENDCLASS.                    "lcl_add_data DEFINITION
*       CLASS lcl_add_data IMPLEMENTATION
CLASS lcl_add_data IMPLEMENTATION.
  METHOD add_data.
    DATA: lo_tabdescr   TYPE REF TO cl_abap_tabledescr,
          lo_strucdescr TYPE REF TO cl_abap_structdescr,
          ls_component  TYPE abap_compdescr.
    FIELD-SYMBOLS: <lt_data>      TYPE STANDARD TABLE,
                   <ls_data>      TYPE any,
                   <lv_fieldval>  TYPE any.
    IF ch_data IS BOUND.
*     Get the runtime type object
      lo_tabdescr  ?= cl_abap_typedescr=>describe_by_data_ref( ch_data ).
*     Check  if supplied param is table
      IF lo_tabdescr->type_kind NE cl_abap_typedescr=>typekind_table.
        RAISE err_invalid_type.
      ENDIF.
    ELSE.
      RETURN.
    ENDIF.
    ASSIGN ch_data->* TO <lt_data>. "Dereferencing the data reference
*   Get the line type of table
    lo_strucdescr ?= lo_tabdescr->get_table_line_type( ).
    DO 2 TIMES.
*     Add initial line to the table
      APPEND INITIAL LINE TO <lt_data> ASSIGNING <ls_data>.
      CLEAR <ls_data>.
*     Loop on the fields of the structure & populate them
      LOOP AT lo_strucdescr->components INTO ls_component.
        ASSIGN COMPONENT ls_component-name OF STRUCTURE <ls_data> TO <lv_fieldval>.
        CASE ls_component-name.
          WHen 'COUNTRY_KEY'.
            <lv_fieldval> = `My Country`.
          WHEN 'BANK_KEY'.
            <lv_fieldval> = `123`.
          WHEN 'BANK_NAME'.
            <lv_fieldval> = `My Bank`.
          WHEN 'BANK_CITY'.
            <lv_fieldval> = `My City`.
        ENDCASE.
      ENDLOOP.
    ENDDO.
  ENDMETHOD.                    "add_data
ENDCLASS.                    "lcl_add_data IMPLEMENTATION
TYPES:
BEGIN OF bank_list,
  country_key TYPE string,
  bank_key    TYPE string,
  bank_name   TYPE string,
  bank_city   TYPE string,
END OF bank_list.
DATA: lt_bank TYPE STANDARD TABLE OF bank_list,
      lr_data TYPE REF TO data.
START-OF-SELECTION.
  GET REFERENCE OF lt_bank INTO lr_data. "Get reference
* Add the data to the data reference
  lcl_add_data=>add_data( CHANGING    ch_data = lr_data
                          EXCEPTIONS  err_invalid_type = 1 ).
BR,
Suhas