字段名字取得

* 項目名の取得
      SELECT MAX( ddtext )                        "リポジトリオブジェクトの内容説明
      INTO l_s_field
      FROM   dd03l                                "テーブル項目
             INNER JOIN dd04t                     "R/3-DD: データエレメントに対するテキスト
             ON dd03l~rollname = dd04t~rollname   "データエレメント
      WHERE tabname = u_dbtab_nm                  "テーブル名
            AND fieldname = l_s_field             "項目名
            AND ddlanguage = cc_j.                "言語キー