CLASS {{p}}seed_ship DEFINITION PUBLIC FINAL CREATE PUBLIC.
  PUBLIC SECTION.
    INTERFACES if_oo_adt_classrun.
ENDCLASS.


CLASS {{p}}seed_ship IMPLEMENTATION.
  METHOD if_oo_adt_classrun~main.
    DATA lt_road TYPE STANDARD TABLE OF {{p}}road WITH EMPTY KEY.
    DATA lt_rail TYPE STANDARD TABLE OF {{p}}rail WITH EMPTY KEY.

    DELETE FROM {{p}}road.
    DELETE FROM {{p}}rail.

    lt_road = VALUE #(
      ( client = sy-mandt ship_id = 'R1' cust = 'ALPHA' kg = '10.500' cost = '100.00' )
      ( client = sy-mandt ship_id = 'R2' cust = 'BETA'  kg = '2.000'  cost = '50.00' )
      ( client = sy-mandt ship_id = 'R3' cust = 'GAMMA' kg = '0.000'  cost = '10.00' )
      ( client = sy-mandt ship_id = 'R4' cust = 'DELTA' kg = '7.250'  cost = '80.00' ) ).
    INSERT {{p}}road FROM TABLE @lt_road.

    lt_rail = VALUE #(
      ( client = sy-mandt ship_id = 'L1' customer = 'DELTA'   weight = '20.000' fee = '300.00' )
      ( client = sy-mandt ship_id = 'L2' customer = 'ALPHA'   weight = '5.000'  fee = '75.00' )
      ( client = sy-mandt ship_id = 'L3' customer = 'EPSILON' weight = '-1.000' fee = '5.00' )
      ( client = sy-mandt ship_id = 'L4' customer = 'BETA'    weight = '12.000' fee = '150.00' ) ).
    INSERT {{p}}rail FROM TABLE @lt_rail.

    out->write( 'Seed data inserted' ).
  ENDMETHOD.
ENDCLASS.