20 lines
775 B
ABAP
20 lines
775 B
ABAP
CLASS {{p}}seed_grv DEFINITION PUBLIC FINAL CREATE PUBLIC.
|
|
PUBLIC SECTION.
|
|
INTERFACES if_oo_adt_classrun.
|
|
ENDCLASS.
|
|
|
|
|
|
CLASS {{p}}seed_grv IMPLEMENTATION.
|
|
METHOD if_oo_adt_classrun~main.
|
|
DATA lt_order TYPE STANDARD TABLE OF {{p}}grv_ord WITH EMPTY KEY.
|
|
lt_order = VALUE #(
|
|
( order_id = 'ORD0000001' grade = 'F' tonnes = 3 customer = 'BuildIt Ltd' )
|
|
( order_id = 'ORD0000002' grade = 'M' tonnes = 12 customer = 'Roadworks AG' )
|
|
( order_id = 'ORD0000003' grade = 'C' tonnes = 25 customer = 'City Council' )
|
|
( order_id = 'ORD0000004' grade = 'F' tonnes = 5 customer = 'Stone and Co' ) ).
|
|
DELETE FROM {{p}}grv_ord.
|
|
INSERT {{p}}grv_ord FROM TABLE @lt_order.
|
|
out->write( |{ sy-dbcnt } orders inserted| ).
|
|
ENDMETHOD.
|
|
ENDCLASS.
|