How to make copies of internal table with unknown structure?

Question

Dis is the detailed description of a problem i have and i
tried all i can to solve it without satisfied results.
I want to copy an internal table of a type defined in the
ABAP program itself, not dictionary. I have a function
that is supposed to accept the internal table as a
parameter of type 'any table'. The function should create
the new internal table using the field catalog of the
passed 'any table' and then create a new internal table
using "create_dynamic_table" and return the DATA pointer.
If anyone knows how it is done pls help me out.
I would like to get the field catalog of the following
internal table automatically by using some sap function..
TYPES:
BEGIN OF MYTYPE,
  NAME TYPE SOMEZTABLE-NAME,
  AGE TYPE SOMEZTABLE-AGE,
END OF MYTYPE.
DATA:
IT_TABLE TYPE TABLE OF MYTABLE INITIAL SIZE 0.
DATA:
COPY_OF_IT_TABLE TYPE REF TO DATA.
SELECT NAME AGE INTO TABLE IT_TABLE FROM S0MEZTABLE.
PERFORM CREATECOPY USING IT_TABLE CHANGING COPY_OF_IT_TABLE.
FORM CREATECOPY
  USING
    IT_TABLE <b>TYPE ANY TABLE</b>
  CHANGING
    COPY_OF_IT_TABLE TYPE REF TO DATA.
<i>[ Here i would like to create a copy the passed
internal table and return a reference to it. I donot want
to refer to the same table passed. I guess the use of
function CREATE_DYNAMIC_TABLE in the CL_ALV_TABLE_CREATE
clss is required. ]</i>
ENDFORM.

Answer 1

Ravi,
If all you want to do is to copy this into another table, why can't do something like this.
TYPES:
BEGIN OF MYTYPE,
  NAME TYPE SOMEZTABLE-NAME,
  AGE TYPE SOMEZTABLE-AGE,
END OF MYTYPE.
DATA:
IT_TABLE TYPE TABLE OF MYTABLE INITIAL SIZE 0.
DATA: COPY_OF_IT_TABLE TYPE REF TO DATA.
SELECT NAME AGE INTO TABLE IT_TABLE FROM S0MEZTABLE.
FIELD-SYMBOLS : <FT_COPY_TABLE> TYPE ANY TABLE.
Call Method CL_ALV_TABLE_CREATE->CREATE_DYNAMIC_TABLE
Exporting
IT_FIELDCATALOG = T_FIELDCAT
Importing
EP_TABLE = COPY_OF_IT_TABLE
ASSIGN COPY_OF_IT_TABLE->* TO <FT_COPY_TABLE>
However, this is provided you already have a field catalog. Now in this case we have not created a field catalog. So, for that
data : BEGIN OF MYTABLE OCCURS 0 WITH HEADER LINE
  NAME TYPE SOMEZTABLE-NAME,
  AGE TYPE SOMEZTABLE-AGE,
END OF MYTABLE.
Now, create the field catalog.
CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
EXPORTING
  I_BUFFER_ACTIVE              =
  I_STRUCTURE_NAME             =
  I_CLIENT_NEVER_DISPLAY       = 'X'
  I_BYPASSING_BUFFER           =
    I_INTERNAL_TABNAME           = 'MYTABLE'
  CHANGING
    CT_FIELDCAT                  = T_FIELDCAT
EXCEPTIONS
  INCONSISTENT_INTERFACE       = 1
  PROGRAM_ERROR                = 2
  OTHERS                       = 3
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
This should create the field catalog.
Regards,
Ravi