67 lines
1.6 KiB
ABAP
67 lines
1.6 KiB
ABAP
CLASS {{p}}vet_seed DEFINITION PUBLIC FINAL CREATE PUBLIC.
|
|
PUBLIC SECTION.
|
|
INTERFACES if_oo_adt_classrun.
|
|
ENDCLASS.
|
|
|
|
CLASS {{p}}vet_seed IMPLEMENTATION.
|
|
METHOD if_oo_adt_classrun~main.
|
|
DATA lt_treat TYPE STANDARD TABLE OF {{p}}treat.
|
|
DATA ls_treat TYPE {{p}}treat.
|
|
|
|
DELETE FROM {{p}}treat.
|
|
|
|
CLEAR ls_treat.
|
|
ls_treat-treat_id = 1.
|
|
ls_treat-treat_date = '20260105'.
|
|
ls_treat-animal = 'DOG'.
|
|
ls_treat-fee = '120.00'.
|
|
APPEND ls_treat TO lt_treat.
|
|
|
|
CLEAR ls_treat.
|
|
ls_treat-treat_id = 2.
|
|
ls_treat-treat_date = '20260120'.
|
|
ls_treat-animal = 'DOG'.
|
|
ls_treat-fee = '80.00'.
|
|
APPEND ls_treat TO lt_treat.
|
|
|
|
CLEAR ls_treat.
|
|
ls_treat-treat_id = 3.
|
|
ls_treat-treat_date = '20260201'.
|
|
ls_treat-animal = 'DOG'.
|
|
ls_treat-fee = '50.00'.
|
|
APPEND ls_treat TO lt_treat.
|
|
|
|
CLEAR ls_treat.
|
|
ls_treat-treat_id = 4.
|
|
ls_treat-treat_date = '20260110'.
|
|
ls_treat-animal = 'CAT'.
|
|
ls_treat-fee = '300.00'.
|
|
APPEND ls_treat TO lt_treat.
|
|
|
|
CLEAR ls_treat.
|
|
ls_treat-treat_id = 5.
|
|
ls_treat-treat_date = '20260215'.
|
|
ls_treat-animal = 'CAT'.
|
|
ls_treat-fee = '40.00'.
|
|
APPEND ls_treat TO lt_treat.
|
|
|
|
CLEAR ls_treat.
|
|
ls_treat-treat_id = 6.
|
|
ls_treat-treat_date = '20251220'.
|
|
ls_treat-animal = 'BIRD'.
|
|
ls_treat-fee = '500.00'.
|
|
APPEND ls_treat TO lt_treat.
|
|
|
|
CLEAR ls_treat.
|
|
ls_treat-treat_id = 7.
|
|
ls_treat-treat_date = '20260301'.
|
|
ls_treat-animal = 'BIRD'.
|
|
ls_treat-fee = '25.00'.
|
|
APPEND ls_treat TO lt_treat.
|
|
|
|
INSERT {{p}}treat FROM TABLE lt_treat.
|
|
|
|
out->write( sy-dbcnt ).
|
|
ENDMETHOD.
|
|
ENDCLASS.
|