* 項目名の取得
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. "言語キー