Untitled
unknown
plain_text
a year ago
1.8 kB
12
Indexable
CLASS zcl_03_table DEFINITION
PUBLIC.
PUBLIC SECTION.
DATA: it_bookings TYPE TABLE OF apidocs_storage.
INTERFACES if_oo_adt_classrun.
CLASS-DATA: out TYPE REF TO if_oo_adt_classrun_out.
METHODS get
IMPORTING
random TYPE string DEFAULT 'idk'.
PROTECTED SECTION.
ENDCLASS.
CLASS zcl_03_table IMPLEMENTATION.
METHOD if_oo_adt_classrun~main.
" Assign out reference
me->out = out.
GET TIME STAMP FIELD DATA(zv_tsl).
it_bookings = VALUE #(
( booking = '1' customername = 'Buchholm' numberofpassengers = '3' emailaddress = 'tester1@flight.example.com'
country = 'Germany' dateofbooking = '20180213125959' dateoftravel = '20180213125959' cost = '546' currencycode = 'EUR' lastchangedat = zv_tsl )
( booking = '2' customername = 'Jeremias' numberofpassengers = '1' emailaddress = 'tester2@flight.example.com'
country = 'USA' dateofbooking = '20180313125959' dateoftravel = '20180313125959' cost = '1373' currencycode = 'USD' lastchangedat = zv_tsl )
).
" Delete existing entries
DELETE FROM apidocs_storage.
" Insert new table entries
INSERT apidocs_storage FROM TABLE @it_bookings.
" Check the result
SELECT * FROM apidocs_storage INTO TABLE @it_bookings.
out->write( sy-dbcnt ).
out->write( 'data inserted successfully!' ).
" Call get method and pass it_bookings
me->get( ).
ENDMETHOD.
METHOD get.
DATA: iterate_class TYPE REF TO zcl_02_iterate.
CREATE OBJECT iterate_class.
* DATA: ls_booking TYPE apidocs_storage.
*
*
* out->write( |{ random }| ).
*
* LOOP AT it_bookings INTO ls_booking.
*
* out->write( ls_booking-booking ).
*
* ENDLOOP.
DATA(output) = iterate_class->test( 'PUNDEH' ).
out->write( output ).
ENDMETHOD.
ENDCLASS.
Editor is loading...
Leave a Comment