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


CLASS {{p}}seed_dept IMPLEMENTATION.
  METHOD if_oo_adt_classrun~main.
    DATA lt_dept TYPE STANDARD TABLE OF {{p}}dept WITH EMPTY KEY.
    lt_dept = VALUE #(
      ( client = sy-mandt dept_id = 'D100' dept_name = 'HEAD OFFICE' parent_id = ''     headcount = 10 )
      ( client = sy-mandt dept_id = 'D200' dept_name = 'SALES'       parent_id = 'D100' headcount = 25 )
      ( client = sy-mandt dept_id = 'D300' dept_name = 'PURCHASING'  parent_id = 'D100' headcount = 12 )
      ( client = sy-mandt dept_id = 'D400' dept_name = 'EXPORT'      parent_id = 'D200' headcount = 8 )
      ( client = sy-mandt dept_id = 'D500' dept_name = 'ORPHAN'      parent_id = 'D999' headcount = 3 ) ).
    DELETE FROM {{p}}dept.
    INSERT {{p}}dept FROM TABLE @lt_dept.
    out->write( |Rows in {{P}}DEPT: { lines( lt_dept ) }| ).
  ENDMETHOD.
ENDCLASS.