24 lines
791 B
ABAP
24 lines
791 B
ABAP
CLASS {{p}}meal_data DEFINITION PUBLIC FINAL CREATE PUBLIC.
|
|
PUBLIC SECTION.
|
|
INTERFACES if_oo_adt_classrun.
|
|
ENDCLASS.
|
|
|
|
|
|
CLASS {{p}}meal_data IMPLEMENTATION.
|
|
METHOD if_oo_adt_classrun~main.
|
|
DATA lt_book TYPE STANDARD TABLE OF {{P}}MEALBK.
|
|
|
|
DELETE FROM {{P}}MEALBK.
|
|
|
|
lt_book = VALUE #(
|
|
( week_key = '2024-15' pupil = 'A' meal_no = 1 meal = 'LUNCH' price = '2.50' )
|
|
( week_key = '2024-15' pupil = 'A' meal_no = 2 meal = 'LUNCH' price = '3.00' )
|
|
( week_key = '2024-15' pupil = 'B' meal_no = 1 meal = 'LUNCH' price = '4.00' )
|
|
( week_key = '2024-15' pupil = 'C' meal_no = 1 meal = 'LUNCH' price = '5.00' cancelled = 'X' ) ).
|
|
|
|
INSERT {{P}}MEALBK FROM TABLE @lt_book.
|
|
|
|
out->write( |{ lines( lt_book ) } bookings inserted| ).
|
|
ENDMETHOD.
|
|
ENDCLASS.
|