ダイナミックABAP内部テーブルの登録

Question

選択画面で、ユーザはテーブル名を挿入する必要があり、そのテーブルから最初の3つのフィールドを取得し、ALVに出力する必要があります。私がチュートリアルを読んで理解するのは、メソッドcl_alv_table_create=>create_dynamic_tableを呼び出す必要があるということですが、fieldcatalogの作成方法はわかりません。

DATA: t_newtable TYPE REF TO data, 
     t_fldcat  TYPE lvc_t_fcat, 

CALL METHOD cl_alv_table_create=>create_dynamic_table 
    EXPORTING 
    it_fieldcatalog = t_fldcat 
    IMPORTING 
    ep_table  = t_newtable. 

Answer 1

ユーザが入力するテーブル名が（SFLIGHTのような）データ辞書テーブルであると仮定します。はいの場合、次のようにフィールドカタログを生成することができます。ここで

---

data : it_tabdescr type abap_compdescr_tab, 
    wa_tabdescr type abap_compdescr. 
data : ref_table_descr type ref to cl_abap_structdescr. 

    ref_table_descr ?= cl_abap_typedescr=>describe_by_name(p_table). 
    it_tabdescr[] = ref_table_descr->components[]. 
    loop at it_tabdescr into wa_tabdescr. 
    clear wa_fieldcat. 
    wa_fieldcat-fieldname = wa_tabdescr-name . 
    wa_fieldcat-datatype = wa_tabdescr-type_kind. 
    wa_fieldcat-inttype = wa_tabdescr-type_kind. 
    wa_fieldcat-intlen = wa_tabdescr-length. 
    wa_fieldcat-decimals = wa_tabdescr-decimals. 
    append wa_fieldcat to it_fieldcat. 
    endloop. 

、 "p_tableは、" テーブル 名を含む選択画面パラメータです。