abap-llm/tasks_gen/eval/G0146/seed/seed_so_cust.clas.abap

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

CLASS {{p}}seed_so_cust IMPLEMENTATION.
  METHOD if_oo_adt_classrun~main.
    DATA lt_cust TYPE STANDARD TABLE OF {{p}}cust WITH EMPTY KEY.
    DATA lt_so TYPE STANDARD TABLE OF {{p}}so WITH EMPTY KEY.
    lt_cust = VALUE #(
      ( client = sy-mandt customer_id = 'C1' name = 'Alpha Corp' country = 'DE' )
      ( client = sy-mandt customer_id = 'C2' name = 'Beta Inc' country = 'US' ) ).
    lt_so = VALUE #(
      ( client = sy-mandt order_id = 'O1' customer_id = 'C1'
        order_date = '20240101' net_amount = '100.00' )
      ( client = sy-mandt order_id = 'O2' customer_id = 'C2'
        order_date = '20240102' net_amount = '200.00' ) ).
    INSERT {{p}}cust FROM TABLE @lt_cust.
    INSERT {{p}}so FROM TABLE @lt_so.
    out->write( 'Seed data inserted.' ).
  ENDMETHOD.
ENDCLASS.