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

CLASS {{p}}vine_seed IMPLEMENTATION.
  METHOD if_oo_adt_classrun~main.
    DATA lt_grape TYPE STANDARD TABLE OF {{p}}grape.
    DATA lt_harvest TYPE STANDARD TABLE OF {{p}}harvest.
    DATA ls_grape TYPE {{p}}grape.
    DATA ls_harvest TYPE {{p}}harvest.

    DELETE FROM {{p}}harvest.
    DELETE FROM {{p}}grape.

    CLEAR ls_grape.
    ls_grape-client = sy-mandt.
    ls_grape-variety = 'MERL'.
    ls_grape-name = 'Merlot'.
    APPEND ls_grape TO lt_grape.

    CLEAR ls_grape.
    ls_grape-client = sy-mandt.
    ls_grape-variety = 'CHRD'.
    ls_grape-name = 'Chardonnay'.
    APPEND ls_grape TO lt_grape.

    CLEAR ls_grape.
    ls_grape-client = sy-mandt.
    ls_grape-variety = 'RIES'.
    ls_grape-name = 'Riesling'.
    APPEND ls_grape TO lt_grape.

    CLEAR ls_harvest.
    ls_harvest-client = sy-mandt.
    ls_harvest-harvest_id = 1.
    ls_harvest-variety = 'MERL'.
    ls_harvest-harvest_date = '20260901'.
    ls_harvest-weight_kg = '1200.500'.
    APPEND ls_harvest TO lt_harvest.

    CLEAR ls_harvest.
    ls_harvest-client = sy-mandt.
    ls_harvest-harvest_id = 2.
    ls_harvest-variety = 'MERL'.
    ls_harvest-harvest_date = '20260910'.
    ls_harvest-weight_kg = '800.000'.
    APPEND ls_harvest TO lt_harvest.

    CLEAR ls_harvest.
    ls_harvest-client = sy-mandt.
    ls_harvest-harvest_id = 3.
    ls_harvest-variety = 'CHRD'.
    ls_harvest-harvest_date = '20260905'.
    ls_harvest-weight_kg = '2000.000'.
    APPEND ls_harvest TO lt_harvest.

    CLEAR ls_harvest.
    ls_harvest-client = sy-mandt.
    ls_harvest-harvest_id = 4.
    ls_harvest-variety = 'CHRD'.
    ls_harvest-harvest_date = '20261001'.
    ls_harvest-weight_kg = '300.000'.
    APPEND ls_harvest TO lt_harvest.

    CLEAR ls_harvest.
    ls_harvest-client = sy-mandt.
    ls_harvest-harvest_id = 5.
    ls_harvest-variety = 'RIES'.
    ls_harvest-harvest_date = '20251215'.
    ls_harvest-weight_kg = '250.000'.
    APPEND ls_harvest TO lt_harvest.

    CLEAR ls_harvest.
    ls_harvest-client = sy-mandt.
    ls_harvest-harvest_id = 6.
    ls_harvest-variety = 'RIES'.
    ls_harvest-harvest_date = '20260820'.
    ls_harvest-weight_kg = '500.000'.
    APPEND ls_harvest TO lt_harvest.

    CLEAR ls_harvest.
    ls_harvest-client = sy-mandt.
    ls_harvest-harvest_id = 7.
    ls_harvest-variety = 'SYRA'.
    ls_harvest-harvest_date = '20260915'.
    ls_harvest-weight_kg = '100.000'.
    APPEND ls_harvest TO lt_harvest.

    INSERT {{p}}grape FROM TABLE lt_grape.
    INSERT {{p}}harvest FROM TABLE lt_harvest.

    out->write( sy-dbcnt ).
  ENDMETHOD.
ENDCLASS.