CLASS {{p}}seed_partner DEFINITION PUBLIC FINAL CREATE PUBLIC.
  PUBLIC SECTION.
    INTERFACES if_oo_adt_classrun.
  PROTECTED SECTION.
  PRIVATE SECTION.
ENDCLASS.


CLASS {{p}}seed_partner IMPLEMENTATION.
  METHOD if_oo_adt_classrun~main.
    DATA lt_a TYPE STANDARD TABLE OF {{p}}part_a WITH EMPTY KEY.
    DATA lt_b TYPE STANDARD TABLE OF {{p}}part_b WITH EMPTY KEY.

    lt_a = VALUE #( ( client = sy-mandt partner_id = 'P1' name = 'Alpha GmbH' city = 'Berlin' )
                    ( client = sy-mandt partner_id = 'P2' name = 'Beta AG' city = 'Hamburg' ) ).
    lt_b = VALUE #( ( client = sy-mandt partner_id = 'P2' name = 'Beta AG' city = 'Hamburg' )
                    ( client = sy-mandt partner_id = 'P3' name = 'Gamma KG' city = 'Munich' ) ).

    MODIFY {{p}}part_a FROM TABLE @lt_a.
    MODIFY {{p}}part_b FROM TABLE @lt_b.

    out->write( 'Partner seed data written.' ).
  ENDMETHOD.
ENDCLASS.