TYPES: BEGIN OF ty_sflight,
carrid TYPE sflight-carrid,
connid TYPE sflight-connid,
fldate TYPE sflight-fldate,
END OF ty_sflight.
DATA: lt_sflight TYPE STANDARD TABLE OF ty_sflight,
ls_sflight TYPE ty_sflight.
SELECT carrid
connid
fldate
FROM sflight
INTO TABLE lt_sflight.
WRITE: 'sflightテーブルから', sy-dbcnt, '件のデータを取得しました'.
LOOP AT lt_sflight INTO ls_sflight.
WRITE: / ls_sflight-carrid, ls_sflight-connid, ls_sflight-fldate.
ENDLOOP.
DATA: lt_sflight TYPE TABLE OF sflight.
SELECT *
FROM sflight
INTO TABLE lt_sflight
WHERE carrid = 'LH'.
WRITE: 'sflightテーブルから', sy-dbcnt, '件のデータを取得しました'.
このプログラムでは、’carrid’が’LH’のフライト情報のみを取得します。
実行結果
データの取得件数を指定する場合
‘SELECT SINGLE’や’UP TO n ROWS’を使用することで、データの取得する件数を指定することができます。
DATA: wa_sflight TYPE sflight.
SELECT SINGLE *
FROM sflight
INTO wa_sflight
WHERE carrid = 'LH' AND connid = '0400'.
WRITE: '航空会社：', wa_sflight-carrid, 'フライト番号：',wa_sflight-connid, '日付：', wa_sflight-fldate.
FOR ALL ENTRIESを使用すると、内部テーブルのデータを基に他のテーブルからデータを取得します。
使用例
DATA: lt_sflight TYPE TABLE OF sflight,
lt_sbook TYPE TABLE OF sbook.
SELECT *
FROM sflight
INTO TABLE lt_sflight
WHERE carrid = 'LH'.
IF lt_sflight IS NOT INITIAL.
SELECT * FROM sbook INTO TABLE lt_sbook
FOR ALL ENTRIES IN lt_sflight
WHERE carrid = lt_sflight-carrid
AND connid = lt_sflight-connid.
ENDIF.
WRITE: 'sbookテーブルから', sy-dbcnt, '件のデータを取得しました'.
TYPES: BEGIN OF ty_itab,
carrid TYPE sflight-carrid,
connid TYPE sflight-connid,
fldate TYPE sflight-fldate,
bookid TYPE sbook-bookid,
customid TYPE sbook-customid,
END OF ty_itab.
DATA: itab TYPE STANDARD TABLE OF ty_itab.
SELECT sflight~carrid
sflight~connid
sflight~fldate
sbook~bookid
sbook~customid
INTO TABLE itab
FROM sflight
INNER JOIN sbook
ON sflight~carrid = sbook~carrid
AND sflight~connid = sbook~connid
WHERE sflight~carrid = 'LH' AND sflight~connid = '0400' AND sbook~fldate = '20230604'.
WRITE: 'sflightとsbookを結合（INNER JOIN）して', sy-dbcnt, '件のデータを取得しました'.
LEFT JOIN 左側のテーブルの全レコードと結合条件に一致する右側のテーブルのレコードを結合します。結合条件に一致しない右側のレコードはNULLとして内部テーブルに格納されます。
使用例
SELECT sflight~carrid
sflight~connid
sflight~fldate
sbook~bookid
sbook~customid
INTO TABLE itab
FROM sflight
LEFT JOIN sbook
ON sflight~carrid = sbook~carrid
AND sflight~connid = sbook~connid
WHERE sflight~carrid = 'LH' AND sflight~connid = '0400' AND sflight~fldate = '20230604'.
WRITE: 'sflightとsbookを結合（LEFT JOIN）して', sy-dbcnt, '件のデータを取得しました'.
データを集計する場合、GROUP BYとHAVINGを使用します。 GROUP BYを使用して指定したコンポーネントごとに集計することが可能です。HAVINGでGROUP BYの条件を指定することが可能です。
使用例
TYPES: BEGIN OF sflight_agg,
carrid TYPE sflight-carrid,
num_flights TYPE i,
END OF sflight_agg.
DATA: lt_aggregate TYPE TABLE OF sflight_agg,
ls_aggregate TYPE sflight_agg.
SELECT carrid
COUNT(*) AS num_flights
INTO TABLE lt_aggregate
FROM sflight
GROUP BY carrid
HAVING COUNT(*) > 1.
LOOP AT lt_aggregate INTO ls_aggregate.
WRITE: / '航空会社コード：', ls_aggregate-carrid, 'フライト数：', ls_aggregate-num_flights.
ENDLOOP.
DATA: lt_sflight TYPE TABLE OF sflight,
ls_sflight TYPE sflight.
SELECT *
FROM sflight
INTO TABLE lt_sflight
ORDER BY fldate DESCENDING.
WRITE: 'sflightテーブルから', sy-dbcnt, '件のデータを取得しました'.
LOOP AT lt_sflight INTO ls_sflight.
WRITE: / ls_sflight-carrid, ls_sflight-connid, ls_sflight-fldate.
ENDLOOP.
TYPES: BEGIN OF sunion,
carrid TYPE sflight-carrid,
connid TYPE sflight-connid,
END OF sunion.
DATA: lt_union TYPE TABLE OF sunion.
SELECT carrid, connid FROM sflight
UNION
SELECT carrid, connid FROM sbook
INTO TABLE @lt_union.
WRITE: sy-dbcnt, '件のデータを取得しました'.
LOOP AT lt_union INTO DATA(ls_union).
WRITE: / ls_union-carrid, ls_union-connid.
ENDLOOP.
SELECT carrid, connid FROM sflight
WHERE fldate = '20230604'
UNION ALL
SELECT carrid, connid FROM sbook
WHERE fldate = '20230604'
INTO TABLE @lt_union.
WRITE: sy-dbcnt, '件のデータを取得しました'.
LOOP AT lt_union INTO DATA(ls_union).
WRITE: / ls_union-carrid, ls_union-connid.
ENDLOOP.
基本の構文 ・特定の項目を指定して更新する場合 UPDATE テーブル名 SET フィールド1 = 値1, フィールド2 = 値2 … WHERE 条件. ・作業領域を使用して更新する場合 UPDATE テーブル名 FROM 作業領域. ・内部テーブルを使用して更新する場合 UPDATE テーブル名 FROM TABLE 内部テーブル.
博士
まずは簡単な使用例を見ていくぞい！
特定の項目を指定して更新する場合
使用例
UPDATE zflight
SET arrival_airport = 'LAX'
WHERE flight_id = 'FL004'.
IF sy-subrc = 0 AND sy-dbcnt > 0.
WRITE: 'Record updated successfully'.
ELSEIF sy-subrc = 0 AND sy-dbcnt = 0.
WRITE: 'No matching record found to update'.
ELSE.
WRITE: 'Update failed due to an error'.
ENDIF.
DATA: ls_flight TYPE zflight.
SELECT SINGLE * FROM zflight INTO ls_flight WHERE flight_id = 'FL003' AND airline_id = 'AF'.
ls_flight-arrival_airport = 'HND'.
ls_flight-seat_capacity = 290.
UPDATE zflight FROM ls_flight.
基本の構文 ・WHERE句を使用して削除する場合 DELETEFROM テーブル名 WHERE 条件. ・作業領域を使用して削除する場合 DELETE テーブル名 FROM 作業領域. ・内部テーブルを使用して削除する場合 DELETE テーブル名 FROM TABLE 内部テーブル.
博士
まずは簡単な使用例を見ていくぞい！
WHERE句を使用して削除する場合
使用例
DELETE FROM zflight WHERE flight_id = 'FL002' AND airline_id = 'BA'.
IF sy-subrc = 0 AND sy-dbcnt > 0.
WRITE: 'Record deleted successfully'.
ELSEIF sy-subrc = 0 AND sy-dbcnt = 0.
WRITE: 'No matching record found to delete'.
ELSE.
WRITE: 'Delete failed due to an error'.
ENDIF.
博士
博士
レイナ
