Produce the structure of an internal table

TYPE-POOLS: ABAP.
TYPES: BEGIN OF TY_ISEG ,
        IBLNR LIKE ISEG-IBLNR,            "Doc no
        GJAHR LIKE ISEG-GJAHR,            "Year
        ZEILI LIKE ISEG-ZEILI,            "Position
        MATNR LIKE ISEG-MATNR,            "Material
        WERKS LIKE ISEG-WERKS,            "Plant
        USNAD LIKE ISEG-USNAD,            "User
        BUDAT LIKE ISEG-BUDAT,            "Posting Date
        DMBTR LIKE ISEG-DMBTR,            "Posted Amount (Line Item)
        WAERS LIKE ISEG-WAERS,            "Local Currency
        WRTBM LIKE ISEG-WRTBM,            "Doc Total Amt
      END   OF TY_ISEG.


DATA: T_ISEG TYPE STANDARD TABLE OF TY_ISEG,
      V_ISEG TYPE TY_ISEG,
      FNAME  TYPE FIELDNAME.

DATA: L_REF TYPE REF TO CL_ABAP_TABLEDESCR,
      L_TYP TYPE REF TO CL_ABAP_TYPEDESCR.


FIELD-SYMBOLS: <KEY_COMP_WA> TYPE ABAP_KEYDESCR,
               <FS> TYPE ANY.

V_ISEG-IBLNR = '0100000053'.
V_ISEG-GJAHR = '2005'.
V_ISEG-ZEILI = '001'.
V_ISEG-MATNR = '000000000000000041'.
V_ISEG-WERKS = 'Z1I1'.
V_ISEG-USNAD = 'RSUBBARAYAN'.
V_ISEG-BUDAT = '20050405'.
V_ISEG-DMBTR = 40000.
V_ISEG-WAERS = 'USD'.
V_ISEG-WRTBM = 50000.

APPEND V_ISEG TO T_ISEG.

V_ISEG-IBLNR = '0100000053'.
V_ISEG-GJAHR = '2005'.
V_ISEG-ZEILI = '001'.
V_ISEG-MATNR = '000000000000000041'.
V_ISEG-WERKS = 'Z1I1'.
V_ISEG-USNAD = 'RSUBBARAYAN'.
V_ISEG-BUDAT = '20050405'.
V_ISEG-DMBTR = 40000.
V_ISEG-WAERS = 'USD'.
V_ISEG-WRTBM = 50000.

APPEND V_ISEG TO T_ISEG.

L_REF ?= CL_ABAP_TYPEDESCR=>DESCRIBE_BY_DATA( T_ISEG ).

LOOP AT T_ISEG INTO V_ISEG.
  WRITE:/.
  LOOP AT L_REF->KEY ASSIGNING <KEY_COMP_WA>.
    WRITE:/ <KEY_COMP_WA>-NAME.
    CONCATENATE 'V_ISEG-' <KEY_COMP_WA>-NAME INTO FNAME.
    ASSIGN (FNAME) TO <FS>.
    CHECK SY-SUBRC = 0.
    L_TYP ?= CL_ABAP_TYPEDESCR=>DESCRIBE_BY_DATA_REF( <FS> ).
    WRITE: <FS>, 50 L_TYP->TYPE_KIND.
  ENDLOOP.
ENDLOOP.