【SAP ABAP】基本構文：データ定義（TYPES、DATA、CONSTANTS、FIELD-SYMBOLS、PARAMETERS、SELECT-OPTIONS）

* 固定長での変数定義
DATA: lv_int TYPE I,                       " 整数型 (I型)
      lv_pack TYPE P LENGTH 8 DECIMALS 2,  " パック数値型 (P型)
      lv_char TYPE C LENGTH 10.            " テキスト型 (C型)

* 可変長での変数定義
DATA: lv_string TYPE STRING,      " 可変長文字列型 (STRING型)
      lv_xstring TYPE XSTRING.    " バイナリデータ型 (XSTRING型)

* ABAPディクショナリデータ型を使用した変数を定義
DATA: lv_char_name TYPE char20,           " char型変数、20文字
      lv_char_description TYPE char50,    " char型変数、50文字
      lv_numc TYPE numc5.                 " char型変数、5桁

* 基本データ型の定義（1,事前定義のABAPデータ型）
TYPES: ty_mfg_date TYPE D,                " 製造日型のデータ型
       ty_lot_number TYPE C LENGTH 15,    " ロット番号型のデータ型
       ty_phone_number TYPE STRING.       " 電話番号型のデータ型

* 基本データ型の定義（2,ABAPディクショナリデータ型）
TYPES: ty_material TYPE MARA-MATNR,  " MARAテーブルのMATNR項目に基づくデータ型
       ty_customer TYPE KNA1-KUNNR.  " KNA1テーブルのKUNNR項目に基づくデータ型

* 構造データ型の定義
TYPES: BEGIN OF ty_employee,        " 従業員情報の構造データ型
         employee_id TYPE I,        " 従業員の一意の識別子（ID）
         first_name  TYPE STRING,   " 従業員の名前
         last_name   TYPE STRING,   " 従業員の姓
         birthdate   TYPE D,        " 従業員の生年月日
       END OF ty_employee.

* テーブルデータ型の定義（2,構造データ型の使用例で定義した従業員情報の構造データ型を使用）
TYPES: ty_employee_table TYPE TABLE OF ty_employee.

* 基本データ型の定義（1,事前定義のABAPデータ型）
TYPES: ty_mfg_date TYPE D,                " 製造日型のデータ型
       ty_lot_number TYPE C LENGTH 15,    " ロット番号型のデータ型
       ty_phone_number TYPE STRING.       " 電話番号型のデータ型

* 基本データ型の定義（2,ABAPディクショナリデータ型）
TYPES: ty_material TYPE MARA-MATNR,  " MARAテーブルのMATNR項目に基づくデータ型
       ty_customer TYPE KNA1-KUNNR.  " KNA1テーブルのKUNNR項目に基づくデータ型

* DATA型で変数を定義
DATA: lv_mfg_date TYPE ty_mfg_date,          " 製造日
      lv_lot_number TYPE ty_lot_number,      " ロット番号
      lv_phone_number TYPE ty_phone_number,  " 電話番号
      lv_material TYPE ty_material,          " 品目コード
      lv_customer TYPE ty_customer.          " 得意先コード

* 変数の使用例
lv_mfg_date = '20240401'.               " 製造日の設定
lv_lot_number = 'L12345678901234'.      " ロット番号の設定
lv_phone_number = '+1234567890'.        " 電話番号の設定
lv_material = 'M000987654'.             " 品目コードの設定
lv_customer = 'C000123456'.             " 得意先コードの設定

* 変数の使用例を出力
WRITE: / '製造日:', lv_mfg_date,
       / 'ロット番号:', lv_lot_number,
       / '電話番号:', lv_phone_number,
       / '品目コード:', lv_material,
       / '得意先コード:', lv_customer.

* 構造データ型の定義
TYPES: BEGIN OF ty_employee,
         employee_id TYPE I,        " 従業員の一意の識別子（ID）
         first_name  TYPE STRING,   " 従業員の名前
         last_name   TYPE STRING,   " 従業員の姓
         birthdate   TYPE D,        " 従業員の生年月日
       END OF ty_employee.

* DATA型で構造を定義
DATA: ls_employee TYPE ty_employee.

* 構造の使用例（変数の設定）
ls_employee-employee_id = 1045.         " 従業員IDの設定
ls_employee-first_name = '太郎'.         " 名の設定
ls_employee-last_name = '山田'.          " 姓の設定
ls_employee-birthdate = '19900316'.     " 生年月日の設定

* 構造の使用例を出力
WRITE: / '従業員ID:', ls_employee-employee_id NO-GROUPING,
         '名前:', ls_employee-last_name && ls_employee-first_name,
         '生年月日:', ls_employee-birthdate.

* 構造データ型の定義
TYPES: BEGIN OF ty_employee,
         employee_id TYPE I,        " 従業員の一意の識別子（ID）
         first_name  TYPE STRING,   " 従業員の名前
         last_name   TYPE STRING,   " 従業員の姓
         birthdate   TYPE D,        " 従業員の生年月日
       END OF ty_employee.

* テーブルデータ型の定義
TYPES: ty_employee_table TYPE TABLE OF ty_employee.

* 構造の宣言
DATA: ls_employee TYPE ty_employee.
* 内部テーブルの宣言
DATA: lt_employee_tab TYPE ty_employee_table.

" テーブルデータ型を使用して従業員情報を追加
ls_employee-employee_id = 1045.         " 従業員1の情報を設定
ls_employee-first_name = '太郎'.
ls_employee-last_name = '山田'.
ls_employee-birthdate = '19900316'.
APPEND ls_employee TO lt_employee_tab.

ls_employee-employee_id = 1046.         " 従業員2の情報を設定
ls_employee-first_name = '花子'.
ls_employee-last_name = '山田'.
ls_employee-birthdate = '19950128'.
APPEND ls_employee TO lt_employee_tab.

" テーブル内のデータ表示
LOOP AT lt_employee_tab INTO ls_employee.
  WRITE: / '従業員ID:', ls_employee-employee_id NO-GROUPING,
           '名前:', ls_employee-last_name && ls_employee-first_name,
           '生年月日:', ls_employee-birthdate.
ENDLOOP.

* 定数の定義
CONSTANTS: c_discount_rate TYPE P DECIMALS 2 VALUE '0.15', " 割引率（15%）
           c_percentage_value TYPE P VALUE '100'.          " パーセンテージ変換用（100）

* データ宣言
DATA: lv_price TYPE P DECIMALS 2,     " 商品価格
      lv_discount_rate TYPE P,        " 割引率（%）
      lv_discount TYPE P DECIMALS 2.  " 割引額

* 商品価格と割引の計算
lv_price = '150.00'.  "商品価格に150を代入
lv_discount_rate = c_discount_rate * c_percentage_value.
lv_discount = lv_price * c_discount_rate.

* 結果の表示
WRITE: / '商品価格:', lv_price,
       / '割引率:', lv_discount_rate, '%',
       / '割引額:', lv_discount.

DATA: gv_string TYPE string VALUE 'Hello'.

FIELD-SYMBOLS: <fs_any> TYPE ANY.

" フィールドシンボルに文字列型変数の値を入力
ASSIGN gv_string TO <fs_any>.

" フィールドシンボルの値をWRITE
WRITE: / 'String value (Field Symbol):', <fs_any>.

" フィールドシンボルの値を変更し、本体側に反映
<fs_any> = 'New String'.

" 文字列型変数の値を表示
WRITE: / 'String value (Original):', gv_string.

PARAMETERS p_name TYPE string DEFAULT 'World'.

WRITE: / 'Hello', p_name, '! Welcome to the Greeting Program!'.

TABLES: mara. " MARAテーブルを使用することを宣言

SELECT-OPTIONS: s_mat FOR mara-matnr, " 品目コードの範囲を持つ選択肢
                s_lmd FOR mara-laeda. " 最終変更日付の範囲を持つ選択肢

START-OF-SELECTION.

  SELECT * FROM mara
    WHERE matnr IN s_mat  " 選択された品目コードの範囲内にあるレコードを選択
      AND laeda IN s_lmd. " 選択された最終変更日付の範囲内にあるレコードを選択

    WRITE: / mara-matnr, mara-laeda, mara-mtart. " 選択されたレコードの情報を表示

  ENDSELECT.