21 lines
964 B
ABAP
21 lines
964 B
ABAP
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.
|