Untitled
unknown
plain_text
a year ago
1.8 kB
6
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