35 lines
1.3 KiB
ABAP
35 lines
1.3 KiB
ABAP
CLASS {{p}}seed_dive DEFINITION PUBLIC FINAL CREATE PUBLIC.
|
|
PUBLIC SECTION.
|
|
INTERFACES if_oo_adt_classrun.
|
|
PROTECTED SECTION.
|
|
PRIVATE SECTION.
|
|
ENDCLASS.
|
|
|
|
CLASS {{p}}seed_dive IMPLEMENTATION.
|
|
METHOD if_oo_adt_classrun~main.
|
|
DELETE FROM {{p}}diver.
|
|
DELETE FROM {{p}}site.
|
|
DELETE FROM {{p}}dive.
|
|
|
|
INSERT {{p}}diver FROM TABLE @( VALUE #(
|
|
( diver_id = 'D1' diver_name = 'Alice' )
|
|
( diver_id = 'D2' diver_name = 'Bob' )
|
|
( diver_id = 'D3' diver_name = 'Carol' ) ) ).
|
|
|
|
INSERT {{p}}site FROM TABLE @( VALUE #(
|
|
( site_id = 'S1' site_name = 'Reef' depth_m = 10 )
|
|
( site_id = 'S2' site_name = 'Wreck' depth_m = 30 )
|
|
( site_id = 'S3' site_name = 'Cave' depth_m = 20 ) ) ).
|
|
|
|
INSERT {{p}}dive FROM TABLE @( VALUE #(
|
|
( dive_id = 'V1' diver_id = 'D1' site_id = 'S1' dive_date = '20250101' )
|
|
( dive_id = 'V2' diver_id = 'D1' site_id = 'S2' dive_date = '20250102' )
|
|
( dive_id = 'V3' diver_id = 'D1' site_id = 'S3' dive_date = '20250103' )
|
|
( dive_id = 'V4' diver_id = 'D2' site_id = 'S1' dive_date = '20250104' )
|
|
( dive_id = 'V5' diver_id = 'D2' site_id = 'S9' dive_date = '20250105' ) ) ).
|
|
|
|
SELECT * FROM {{p}}i_dive_stats INTO TABLE @DATA(lt_result).
|
|
out->write( lt_result ).
|
|
ENDMETHOD.
|
|
ENDCLASS.
|