Using Internal Table in ABAP OO.

Question

Hi,
     I am using a internal table, I am calling a FM, which require Internal table as its parameter. Since Internal table with header line is not supported in ABAP OO. How to attain this.
Thanq For Ur time.
Cheers,
Sam

Answer 1

Hi,
Please look at my example below.
TYPES: BEGIN OF t_vbak,
          vbeln TYPE vbak-vbeln,
          posnr TYPE vbap-posnr,
          erdat TYPE vbak-erdat,
          ernam TYPE vbak-ernam,
          auart TYPE vbak-auart,
          kunnr TYPE vbak-kunnr,
          vkgrp TYPE vbak-vkgrp,
         END OF t_vbak.
DATA: gt_vbak     TYPE STANDARD TABLE OF t_vbak,
      gt_vbak_dum LIKE gt_vbak.
*CLASS DEFINITIONS
*       CLASS lcl_get_so DEFINITION
CLASS lcl_get_so DEFINITION.
  PUBLIC SECTION.
    METHODS: get_sales_orders
                EXPORTING
                   ex_vbak LIKE gt_vbak.
ENDCLASS.                    "lcl_get_so DEFINITION
*CLASS IMPLEMENTATIONS
*       CLASS lcl_get_so IMPLEMENTATION
CLASS lcl_get_so IMPLEMENTATION.
  METHOD get_sales_orders.
    SELECT vbak~vbeln vbap~posnr vbak~erdat
           vbak~ernam vbak~auart vbak~kunnr
           vbak~vkgrp
      FROM vbak
     INNER JOIN vbap
        ON vbak~vbeln = vbap~vbeln
      INTO TABLE gt_vbak
     WHERE vbak~erdat IN s_erdat
       AND vbak~ernam IN s_ernam
       AND vbak~auart IN s_auart
       AND vbak~vkgrp IN s_vkgrp
       AND vbak~kunnr = p_kunnr.
    IF NOT gt_vbak[] IS INITIAL.
      ex_vbak[] = gt_vbak[].
    ELSE.
      MESSAGE i000 WITH 'No data found for given criteria'.
      LEAVE TO SCREEN 0.
    ENDIF.
  ENDMETHOD.                    "get_sales_orders
ENDCLASS.                    "lcl_get_so IMPLEMENTATION
* START-OF-SELECTION                           *
START-OF-SELECTION.
  DATA: o_get_so         TYPE REF TO lcl_get_so.
  CREATE OBJECT: o_get_so.
*Get sales orders
    CALL METHOD o_get_so->get_sales_orders
      IMPORTING
        ex_vbak = gt_vbak_dum.
Hope it helps...
Please award points if it helps...