PUBLIC

FINAL

CREATE PUBLIC .

PUBLIC SECTION.

INTERFACES if_oo_adt_classrun .

PROTECTED SECTION.

PRIVATE SECTION.

ENDCLASS.

CLASS ycl_modify_practice IMPLEMENTATION.

METHOD if_oo_adt_classrun~main.

*MODIFY ENTITY, ENTITIES, field_spec

*1->... { FROM fields_tab }

* CREATE, CREATE BY, UP☺DATE, DELETE, EXECUTE

* For DELETE, EXECUTE we can use this option only

* The %control structure must be filled explicitly in the internal table fields_tab for CREATE, CREATE BY and UPDATE

* DATA : lt_book TYPE TABLE FOR CREATE yi_travel_tech_m\_Booking.

* MODIFY ENTITY yi_travel_tech_m

* CREATE FROM VALUE #(

* ( %cid = 'cid1'

* %data-BeginDate = '20240225'

* %control-BeginDate = if_abap_behv=>mk-on

*

* ) )

* CREATE BY \_Booking

* FROM VALUE #( ( %cid_ref = 'cid1'

* %target = VALUE #( ( %cid = 'cid11'

* %data-bookingdate = '20240216'

* %control-Bookingdate = if_abap_behv=>mk-on ) )

*

*

*

* ) )

* FAILED FINAL(it_failed)

* MAPPED FINAL(it_mapped)

* REPORTED FINAL(it_result).

* IF it_failed IS NOT INITIAL.

* out->write( it_failed ).

* ELSE.

* COMMIT ENTITIES.

* ENDIF.

* MODIFY ENTITY yi_booking_tech_m

* DELETE FROM VALUE #( ( %key-TravelId = '0000004187'

* %key-BookingId = '0010' ) )

* FAILED FINAL(it_failed1)

* MAPPED FINAL(it_mapped1)

* REPORTED FINAL(it_result1).

* .

* IF it_failed1 IS NOT INITIAL.

* out->write( it_failed1 ).

* ELSE.

* COMMIT ENTITIES.

* ENDIF.

*☺

*2-> | { AUTO FILL CID WITH fields_tab }

* MODIFY ENTITY yi_travel_tech_m

* CREATE AUTO FILL CID WITH VALUE #(

* ( %data-BeginDate = '20240229'

* %control-BeginDate = if_abap_behv=>mk-on

*

* ) )

* FAILED FINAL(it_failed)

* MAPPED FINAL(it_mapped)

* REPORTED FINAL(it_result).

*

* IF it_failed IS NOT INITIAL.

* out->write( it_failed ).

* ELSE.

** COMMIT ENTITIES.

* ENDIF.

*3-> | { [AUTO FILL CID] FIELDS ( comp1 comp2 ... ) WITH fields_tab }

* MODIFY ENTITIES OF yi_travel_tech_m

* ENTITY yi_travel_tech_m

* UPDATE FIELDS ( BeginDate )

* WITH VALUE #( ♥m

* DELETE FROM VALUE #( ( TravelId = '0000004188' ) ) .

* COMMIT ENTITIES.

*4-> | { [AUTO FILL CID] SET FIELDS WITH fields_tab } ...☺

MODIFY ENTITY yi_travel_tech_m

UPDATE SET FIELDS WITH VALUE #( ( %key-TravelId = '0000004190'

BeginDate = '20240325' ) ).

COMMIT ENTITIES.

ENDMETHOD.

ENDCLASS.

CLASS ycl_read_ptactice DEFINITION

PUBLIC

FINAL

CREATE PUBLIC .

PUBLIC SECTION.

INTERFACES if_oo_adt_classrun .

PROTECTED SECTION.

PRIVATE SECTION.

ENDCLASS.

CLASS ycl_read_ptactice IMPLEMENTATION.

METHOD if_oo_adt_classrun~main.

*sort form read

* READ ENTITY yi_travel_tech_m

* FROM VALUE #( ( %key-TravelId = '0000004172'

* %control = VALUE #( AgencyId = if_abap_behv=>mk-on

* CUSTOMERID = if_abap_behv=>mk-on

* BEGINDATE = if_abap_behv=>mk-on

* )

*

* )

* )

* RESULT DATA(lt_result_short)

* FAILED DATA(lt_failed_sort).

*

* IF lt_failed_sort IS NOT INITIAL.

* out->write( 'Read failed' ).

*

* ELSE.

* out->write( lt_result_short ).

* ENDIF.

* READ ENTITY yi_travel_tech_m

* by \_Booking

* ALL FIELDS

* WITH VALUE #( ( %key-TravelId = '0000004172' )

* ( %key-TravelId = '0000004136' )

* )

* RESULT DATA(lt_result_short)

* FAILED DATA(lt_failed_sort).

*

* IF lt_failed_sort IS NOT INITIAL.

* out->write( 'Read failed' ).

*

* ELSE.

* out->write( lt_result_short ).

* ENDIF.

* READ ENTITIES OF yi_travel_tech_m

*

* ENTITY yi_travel_tech_m

* ALL FIELDS

* WITH VALUE #( ( %key-TravelId = '0000004172' )

* ( %key-TravelId = '0000004136' )

* )

* RESULT DATA(lt_result_travel)

*

* ENTITY yi_booking_tech_m

* ALL FIELDS WITH VALUE #( ( %key-TravelId = '0000004172'

* %key-BookingId = '0020'

* ) )

* RESULT DATA(lt_result_book)

*

* FAILED DATA(lt_failed_sort).

*

* IF lt_failed_sort IS NOT INITIAL.

* out->write( 'Read failed' ).

*

* ELSE.

* out->write( lt_result_travel ).

* out->write( lt_result_book ).

* ENDIF.

DATA: it_optab TYPE abp_behv_retrievals_tab,

it_travel TYPE TABLE FOR READ IMPORT yi_travel_tech_m,

it_travel_result TYPE TABLE FOR READ RESULT yi_travel_tech_m,

it_booking TYPE TABLE FOR READ IMPORT yi_travel_tech_m\_Booking,

it_booking_result TYPE TABLE FOR READ RESULT yi_travel_tech_m\_Booking.

it_travel = VALUE #( ( %key-TravelId = '0000004172'

%control = VALUE #( AgencyId = if_abap_behv=>mk-on

customerid = if_abap_behv=>mk-on

begindate = if_abap_behv=>mk-on

) ) ).

it_booking = VALUE #( ( %key-TravelId = '0000004172'

%control = VALUE #(

BookingDate = if_abap_behv=>mk-on

BookingStatus = if_abap_behv=>mk-on

BookingId = if_abap_behv=>mk-on

) ) ).

it_optab = VALUE #( ( op = if_abap_behv=>op-r-read

entity_name = 'YI_TRAVEL_TECH_M'

instances = REF #( it_travel )

results = REF #( it_travel_result ) )

( op = if_abap_behv=>op-r-read_ba

entity_name = 'YI_TRAVEL_TECH_M'

sub_name = '_BOOKING'

instances = REF #( it_booking )

results = REF #( it_booking_result )

) ).

READ ENTITIES

OPERATIONS it_optab

FAILED DATA(lt_failed_dy).

IF lt_failed_dy IS NOT INITIAL.

out->write( 'Read failed' ).

ELSE.

out->write( it_travel_result ).

out->write( it_booking_result ).

ENDIF.

ENDMETHOD.

ENDCLASS.

CLASS zcl_DATA_GENERATOR DEFINITION

PUBLIC

FINAL

CREATE PUBLIC .

PUBLIC SECTION.

INTERFACES:

if_oo_adt_classrun.

PROTECTED SECTION.

PRIVATE SECTION.

ENDCLASS.

CLASS zcl_DATA_GENERATOR IMPLEMENTATION.

METHOD if_oo_adt_classrun~main.

" delete existing entries in the database table

DELETE FROM ztravel_tech_m.

DELETE FROM zBOOKING_tech_m.

DELETE FROM zbooksupp_tech_m.

COMMIT WORK.

" insert travel demo data

INSERT ztravel_tech_m FROM (

SELECT *

FROM /dmo/travel_m

).

COMMIT WORK.

" insert booking demo data

INSERT zbooking_tech_m FROM (

SELECT *

FROM /dmo/booking_m

* JOIN ztravel_tech_m AS z

* ON booking~travel_id = z~travel_id

).

COMMIT WORK.

INSERT zbooksupp_tech_m FROM (

SELECT *

FROM /dmo/booksuppl_m

* JOIN ztravel_tech_m AS z

* ON booking~travel_id = z~travel_id

).

COMMIT WORK.

out->write( 'Travel and booking demo data inserted.').

ENDMETHOD.

ENDCLASS.