5de5e2851c
- Static bundle checks (name length, seed type, reserved words, contract test classes, testclasses_file), local abaplint parser check before SAP, max_tokens, robust JSON parse - Runner: G2 for CDS views with parameters, contract_check detail in report - G0020 and G0013 fixed by review and revalidated (oracle 100, null 0) - Pilot results in docs/faz1-tasarim.md 11e; handover notes merged into CLAUDE.md and docs Co-Authored-By: Claude Opus 5.5 <noreply@anthropic.com>
32 lines
1.3 KiB
ABAP
32 lines
1.3 KiB
ABAP
CLASS {{p}}seed_ship DEFINITION PUBLIC FINAL CREATE PUBLIC.
|
|
PUBLIC SECTION.
|
|
INTERFACES if_oo_adt_classrun.
|
|
ENDCLASS.
|
|
|
|
|
|
CLASS {{p}}seed_ship IMPLEMENTATION.
|
|
METHOD if_oo_adt_classrun~main.
|
|
DATA lt_road TYPE STANDARD TABLE OF {{p}}road WITH EMPTY KEY.
|
|
DATA lt_rail TYPE STANDARD TABLE OF {{p}}rail WITH EMPTY KEY.
|
|
|
|
DELETE FROM {{p}}road.
|
|
DELETE FROM {{p}}rail.
|
|
|
|
lt_road = VALUE #(
|
|
( client = sy-mandt ship_id = 'R1' cust = 'ALPHA' kg = '10.500' cost = '100.00' )
|
|
( client = sy-mandt ship_id = 'R2' cust = 'BETA' kg = '2.000' cost = '50.00' )
|
|
( client = sy-mandt ship_id = 'R3' cust = 'GAMMA' kg = '0.000' cost = '10.00' )
|
|
( client = sy-mandt ship_id = 'R4' cust = 'DELTA' kg = '7.250' cost = '80.00' ) ).
|
|
INSERT {{p}}road FROM TABLE @lt_road.
|
|
|
|
lt_rail = VALUE #(
|
|
( client = sy-mandt ship_id = 'L1' customer = 'DELTA' weight = '20.000' fee = '300.00' )
|
|
( client = sy-mandt ship_id = 'L2' customer = 'ALPHA' weight = '5.000' fee = '75.00' )
|
|
( client = sy-mandt ship_id = 'L3' customer = 'EPSILON' weight = '-1.000' fee = '5.00' )
|
|
( client = sy-mandt ship_id = 'L4' customer = 'BETA' weight = '12.000' fee = '150.00' ) ).
|
|
INSERT {{p}}rail FROM TABLE @lt_rail.
|
|
|
|
out->write( 'Seed data inserted' ).
|
|
ENDMETHOD.
|
|
ENDCLASS.
|