How to determine itab type at run time

Question

I need to write a subroutine that organizes data in internal tables for presentation by a smartform. There are a few similarly structured internal tables all with the same field name ("recipe_type") by which the data is sorted. My problem is that how I can determine the type of the itab inside my subroutine at run time? Is it ever possible in ABAP?
The subroutine code is attached below. Thanks for any help.
FORM beautify_itab    TABLES itab_in TYPE table
                                 USING v_type TYPE any
                                 CHANGING itab_out TYPE table.
Data declaration
  DATA: v_data_row LIKE LINE OF itab_in,                " THIS WON'T COMPILE!
             v_blank_row LIKE LINE OF itab_in.              " blank row
Organize the display of the table data
  LOOP AT itab_in INTO v_data_row.
    IF v_type <> itab_in-recipe_type.                     " 'recipe_type' is the sort key for the incoming itabs
      v_type = itab_in-recipe_type.
      IF sy-tabix > 1.
        APPEND v_blank_row TO itab_out.
      ENDIF.
      APPEND v_data_row TO itab_out.
    ELSE.
      CLEAR v_data_row-recipe_type.
      APPEND v_data_row TO itab_out.
    ENDIF.
  ENDLOOP.
ENDFORM.                    "beautify_itab

Answer 1

The following code does what I want, but only if the input itab structure is declared first in the program. It won't work if the itab is declared as itab_in TYPE TABLE OF sflight. This is because the function 'GET_COMPONENTS_LIST'  only can load the structure of a field declared explicitly in the program.  Does anybody know of any method to load the structure of an itab based off a dtab? 
Thanks you guys for answers. Points have been rewarded.
*& Report  Z_GET_ITAB_TYPE_AT_RUN_TIME
REPORT  z_get_itab_type_at_run_time.
DATA: BEGIN OF itab_in OCCURS 0,
         seatsocc_b LIKE sflight-seatsocc,
         fldate LIKE sflight-fldate,
      END OF itab_in,
      itab_out TYPE TABLE OF string,
      wa_itab_out TYPE string.
SELECT seatsocc_b fldate
INTO TABLE itab_in
FROM sflight
WHERE carrid = 'AA' AND
      connid = '0017'
ORDER BY seatsocc_b.
PERFORM beautify_itab
            TABLES
               itab_in
            USING
               sy-repid
               'itab_in'
               'SEATSOCC_B'
            CHANGING
               itab_out.
LOOP AT itab_out INTO wa_itab_out.
  WRITE: / wa_itab_out.
ENDLOOP.
*&      Form  beautify_itab
      text
     -->ITAB_IN    text
     -->V_KET_FIELD   text
     -->ITAB_OUT   text
FORM beautify_itab TABLES itab_in TYPE table
                   USING  v_prog_name LIKE sy-repid
                          v_itab_in_name TYPE any
                          v_key_field_name TYPE rstrucinfo-compname
                   CHANGING  itab_out TYPE table.
  DATA: itab_fields TYPE TABLE OF rstrucinfo,
        v_field_name LIKE rstrucinfo-compname,
        v_old_key TYPE string,
        v_field_value TYPE string,
        v_data_line TYPE string,
        v_tabix LIKE sy-tabix,
        c_blank_row TYPE string VALUE ''.
  FIELD-SYMBOLS: <fs_field>,
                 <fs_data_line>,
                 <fs_field_list> TYPE  rstrucinfo.
gets all of the components of a structure
  CALL FUNCTION 'GET_COMPONENT_LIST'
    EXPORTING
      program    = v_prog_name
      fieldname  = v_itab_in_name
    TABLES
      components = itab_fields.
  LOOP AT itab_in ASSIGNING <fs_data_line>.
    v_tabix = sy-tabix.
    LOOP AT itab_fields ASSIGNING <fs_field_list>.
      v_field_name =  <fs_field_list>-compname.
      ASSIGN COMPONENT v_field_name OF STRUCTURE
                    <fs_data_line> TO <fs_field>.
      v_field_value = <fs_field>.
      IF v_key_field_name = v_field_name.
        IF v_old_key <> v_field_value.
          v_old_key = v_field_value.
          IF v_tabix > 1.
            APPEND c_blank_row TO itab_out.
          ENDIF.
        ELSE.
          CLEAR v_field_value.
        ENDIF.
      ENDIF.
      CONCATENATE v_data_line v_field_value INTO v_data_line
                  SEPARATED BY space.
    ENDLOOP.
    APPEND v_data_line TO itab_out.
    CLEAR v_data_line.
  ENDLOOP.
ENDFORM.                    "beautify_itab