From 5b30ab8a688b7a8867ac04302c509552a644d667 Mon Sep 17 00:00:00 2001 From: a4704105-04b0-45f3-93ed-b6db29ef1d94 Date: Thu, 30 Oct 2025 09:43:00 +0000 Subject: [PATCH] EML --- src/zcl_hs_demo_eml.clas.abap | 44 +++++++++++++++++++++++++++++++++++ src/zcl_hs_demo_eml.clas.xml | 16 +++++++++++++ 2 files changed, 60 insertions(+) create mode 100644 src/zcl_hs_demo_eml.clas.abap create mode 100644 src/zcl_hs_demo_eml.clas.xml diff --git a/src/zcl_hs_demo_eml.clas.abap b/src/zcl_hs_demo_eml.clas.abap new file mode 100644 index 0000000..2f7f09c --- /dev/null +++ b/src/zcl_hs_demo_eml.clas.abap @@ -0,0 +1,44 @@ +CLASS zcl_hs_demo_eml DEFINITION + PUBLIC + FINAL + CREATE PUBLIC . + + PUBLIC SECTION. + + INTERFACES if_oo_adt_classrun . + PROTECTED SECTION. + PRIVATE SECTION. +ENDCLASS. + + + +CLASS zcl_hs_demo_eml IMPLEMENTATION. + + + METHOD if_oo_adt_classrun~main. + DATA: lt_selection TYPE TABLE FOR READ IMPORT ZHS_I_RAPPartner. + + lt_selection = VALUE #( ( PartnerNumber = '1000000001' ) ( PartnerNumber = '1000000003' ) ). + + READ ENTITIES OF ZHS_I_RAPPartner ENTITY Partner + ALL FIELDS WITH lt_selection + RESULT DATA(lt_partner_long) + FAILED DATA(Ls_failed) + REPORTED DATA(ls_reported). + + out->write( lt_partner_long ). + + + READ ENTITIES OF ZHS_I_RAPPartner ENTITY Partner + FIELDS ( PartnerName Street City ) WITH VALUE #( + ( PartnerNumber = '1000000001' ) + ( PartnerNumber = '1000000003' ) + ) + RESULT DATA(lt_partner_short) + FAILED ls_failed + REPORTED ls_reported. + + out->write( lt_partner_short ). + + ENDMETHOD. +ENDCLASS. diff --git a/src/zcl_hs_demo_eml.clas.xml b/src/zcl_hs_demo_eml.clas.xml new file mode 100644 index 0000000..5fd55f7 --- /dev/null +++ b/src/zcl_hs_demo_eml.clas.xml @@ -0,0 +1,16 @@ + + + + + + ZCL_HS_DEMO_EML + E + Demo EML + 1 + X + X + X + + + +