Read Operation with behavior definition language (BDL) RAP Sample Code

 Read Operation code:- 

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.

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