OO ABAP inerenal table and tables declarations?

Question

Hi All,
1.I am new to OO ABAP, can any one give me clear idea how to declare Internal tables, work area and table declarations and how to use and read them?
2. I am having a problem,
I declare a table like this
IT_CRMD_ORDERADM_H TYPE TABLE OF CRMD_ORDERADM_H.
and in the perform statement
Pefrom using
IT_CRMD_ORDERADM_H[]
and in form ( i need to read and select a record from this table)
can any one give me solution how to do this?
thanks for ur time.
sandhya

Answer 1

Hai Sandhya
Go through the following Code
*& Report  ZABAP_OBJ_01                                          *
report  zabap_obj_01                      .
parameters : p_vbeln like vbap-vbeln obligatory,
             p_matnr like mara-matnr.
<b>types : begin of ty_vbap,
        vbeln type vbap-vbeln,
        matnr type vbap-matnr,
        arktx type vbap-arktx,
        end of ty_vbap.</b>
      CLASS sales_order DEFINITION
class sales_order definition.
  public section.
    data : v_matnr type mara-matnr,
           v_vbeln type vbap-vbeln.
    events : no_data_found.
    methods : constructor importing vbeln type vbap-vbeln
                                    matnr type mara-matnr optional,
              get_vbap_details,
              disp_vbap_details,
              Handle_no_data_found
              for event no_data_found of sales_order.
<b>    data : it_vbap type standard table of ty_vbap.</b>
endclass.                    "sales_order DEFINITION
      CLASS sales_order IMPLEMENTATION
class sales_order implementation.
  method get_vbap_details.
    clear : it_vbap.
    refresh : it_vbap.
    select  vbeln
            matnr
            arktx
            from vbap
            into table it_vbap
            where vbeln = p_vbeln.
    if sy-subrc <> 0.
      raise event no_data_found.
    endif.
  endmethod.                    "get_vbap_details
  method constructor.
    clear : v_vbeln,
            v_matnr.
    v_vbeln = vbeln.
    v_matnr = matnr.
  endmethod.                    "constructor
  method Handle_no_data_found.
    write : / 'No Data Found for the given selection Criteria'.
  endmethod.
  method disp_vbap_details.
    data : wx_vbap like line of it_vbap.
    loop at it_vbap into wx_vbap.
      write :/ wx_vbap-vbeln,
               wx_vbap-matnr,
               wx_vbap-arktx.
    endloop.
    clear : it_vbap.
  endmethod.                    "disp_vbap_details
endclass.                    "sales_order IMPLEMENTATION
data : obj type ref to sales_order.
start-of-selection.
  if not p_matnr is initial.
    create object obj exporting vbeln = p_vbeln
                                matnr = p_matnr.
  else.
    create object obj exporting vbeln = p_vbeln.
  endif.
  set handler obj->Handle_no_data_found for obj.
  call method obj->get_vbap_details.
  call method obj->disp_vbap_details.
Thanks & regards
Sreenivasulu P