Modify operation Code

 CLASS ycl_modify_practice DEFINITION

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.

Comments

Post a Comment

Popular posts from this blog

AMDP ( ABAP Managed Database Procedure ) Part - 1

Image
CLASS zcl_amdp_class DEFINITION PUBLIC FINAL CREATE PUBLIC . PUBLIC SECTION. INTERFACES if_amdp_marker_hdb . TYPES: BEGIN OF ty_cust , cust_name TYPE kna1 - name1 , netwr TYPE vbak - netwr , END OF ty_cust , tt_cust TYPE TABLE OF ty_cust . TYPES: BEGIN OF session_variables , client TYPE sy - mandt , cds_client TYPE sy - mandt , uname TYPE sy - uname , langu TYPE sy - langu , datum TYPE sy - datum , END OF session_variables . CLASS-METHODS get_session_variables_amdp AMDP OPTIONS READ-ONLY CDS SESSION CLIENT iv_clnt IMPORTING VALUE( iv_clnt ) TYPE sy - mandt EXPORTING VALUE( clnt ) TYPE session_variables - client VALUE( cds_clnt ) TYPE session_variables - cds_client VALUE( unam ) TYPE session_variables - uname VALUE( lang ) TYPE session_variables - langu ...
Read more

Backup all ADT Objects & Other queries RAP Part 10.1

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 ). ...
Read more

SAP CDS Introduction Part 2 - ABAP on HANA Course

Image
Code :- @AbapCatalog.sqlViewName: 'ZVSQL_SAMPLE_01' @EndUserText.label: 'This is my fist DDIC based CDS' @AbapCatalog.preserveKey: true @AbapCatalog: {     buffering: {         status:#SWITCHED_OFF,         type: #NONE,         numberOfKeyFields: 000     },     viewEnhancementCategory: [#PROJECTION_LIST,#UNION],     compiler: {         compareFilter: true     },     dataMaintenance: #RESTRICTED } @AccessControl.authorizationCheck: #CHECK @ClientHandling: {     type: #INHERITED,     algorithm:#SESSION_VARIABLE } define view zcds_sample_01 --( SO, Kunnr, curr,netwr,clnt,sydate,syslang)   as select from vbak   association [1..*] to vbap as _item on vbak.vbeln = _item.vbeln {   key   vbeln                    as so,         kunnr  ...
Read more