CLASS /iap/cl_intelligent_matching DEFINITION
PUBLIC FINAL
CREATE PUBLIC.

PUBLIC SECTION.

TYPES: BEGIN OF ty_rawmat_result,
uuid TYPE string,
material_id TYPE string,
material_name TYPE string,
material_group TYPE string,
material_group_name TYPE string,
is_active TYPE abap_bool,
END OF ty_rawmat_result.

CLASS-METHODS:
create_client_proxy
RETURNING VALUE(ro_client_proxy) TYPE REF TO /iwbep/if_cp_client_proxy,

get_rawmat_data
RETURNING VALUE(rt_rawmat_data) TYPE STANDARD TABLE OF ty_rawmat_result,

post_rawmat_data
IMPORTING is_payload TYPE ty_rawmat_result
RETURNING VALUE(rv_status_text) TYPE string,

convert_to_json
IMPORTING it_data TYPE any
EXPORTING ev_json TYPE string.

PRIVATE SECTION.
CONSTANTS:
c_destination TYPE string VALUE ‘DEMO_EHS_DEST’. ” Destination name in BTP Cockpit

ENDCLASS.

CLASS /iap/cl_intelligent_matching IMPLEMENTATION.

“———————————————————————-
” 1. Create OData V4 Client Proxy (for typed OData calls if needed)
“———————————————————————-
METHOD create_client_proxy.

TRY.
DATA(lo_destination) = cl_http_destination_provider=>create_by_cloud_destination(
i_name = c_destination
i_authn_mode = if_a4c_cp_service=>service_specific ).

DATA(lo_http_client) = cl_web_http_client_manager=>create_by_http_destination( lo_destination ).

ro_client_proxy = /iwbep/cl_cp_factory_remote=>create_v4_remote_proxy(
is_proxy_model_key = VALUE #(
repository_id = ‘DEFAULT’
proxy_model_id = ‘/IAP/CHM_SCM_IM’
proxy_model_version = ‘0001’ )
io_http_client = lo_http_client
iv_relative_service_root = ‘/sap/opu/odata/sap/ZDEMO_EHS_SRV/’ ). ” Demo endpoint

CATCH cx_root INTO DATA(lx_root).
MESSAGE lx_root->get_text( ) TYPE ‘E’.
ENDTRY.

ENDMETHOD.

“———————————————————————-
” 2. GET Request – Fetch Raw Material Data
“———————————————————————-
METHOD get_rawmat_data.

DATA: lo_destination TYPE REF TO if_http_destination,
lo_http_client TYPE REF TO if_web_http_client,
lo_response TYPE REF TO if_web_http_response,
lv_json TYPE string,
lv_status TYPE i.

TRY.
lo_destination = cl_http_destination_provider=>create_by_cloud_destination(
i_name = c_destination
i_authn_mode = if_a4c_cp_service=>service_specific ).

lo_http_client = cl_web_http_client_manager=>create_by_http_destination( lo_destination ).

” === Fetch CSRF Token ===
DATA(lo_req_token) = lo_http_client->get_http_request( ).
lo_req_token->set_header_field( name = ‘X-CSRF-Token’ value = ‘Fetch’ ).

DATA(lo_resp_token) = lo_http_client->execute( if_web_http_client=>get ).
DATA(lv_csrf_token) = lo_resp_token->get_header_field( ‘X-CSRF-Token’ ).

” === Call the Demo OData API (GET) ===
DATA(lo_req_get) = lo_http_client->get_http_request( ).
lo_req_get->set_header_field( name = ‘X-CSRF-Token’ value = lv_csrf_token ).
lo_req_get->set_header_field( name = ‘Accept’ value = ‘application/json’ ).

lo_response = lo_http_client->execute(
i_method = if_web_http_client=>get
i_relative_url = ‘/sap/opu/odata/sap/ZDEMO_EHS_SRV/C_RawMatInfoSet’ ).

lv_status = lo_response->get_status( ).

IF lv_status = 200.
lv_json = lo_response->get_text( ).
/ui2/cl_json=>deserialize(
EXPORTING json = lv_json
CHANGING data = rt_rawmat_data ).
ELSE.
MESSAGE |HTTP Error { lv_status }: { lo_response->get_status_text( ) }| TYPE ‘E’.
ENDIF.

CATCH cx_root INTO DATA(lx_any).
MESSAGE lx_any->get_text( ) TYPE ‘E’.
ENDTRY.

ENDMETHOD.

“———————————————————————-
” 3. POST Request – Create a new Raw Material record
“———————————————————————-
METHOD post_rawmat_data.

DATA: lo_destination TYPE REF TO if_http_destination,
lo_http_client TYPE REF TO if_web_http_client,
lo_response TYPE REF TO if_web_http_response,
lv_json_body TYPE string,
lv_csrf_token TYPE string,
lv_status_code TYPE i.

TRY.
” === Create destination ===
lo_destination = cl_http_destination_provider=>create_by_cloud_destination(
i_name = c_destination
i_authn_mode = if_a4c_cp_service=>service_specific ).

lo_http_client = cl_web_http_client_manager=>create_by_http_destination( lo_destination ).

” === Fetch CSRF Token ===
DATA(lo_req_token) = lo_http_client->get_http_request( ).
lo_req_token->set_header_field( name = ‘X-CSRF-Token’ value = ‘Fetch’ ).
DATA(lo_resp_token) = lo_http_client->execute( if_web_http_client=>get ).
lv_csrf_token = lo_resp_token->get_header_field( ‘X-CSRF-Token’ ).

” === Serialize ABAP structure to JSON ===
lv_json_body = /ui2/cl_json=>serialize(
EXPORTING
data = is_payload
pretty_name = /ui2/cl_json=>pretty_mode-camel_case
conversion_exits = abap_true ).

” === Prepare POST Request ===
DATA(lo_req_post) = lo_http_client->get_http_request( ).
lo_req_post->set_header_field( name = ‘X-CSRF-Token’ value = lv_csrf_token ).
lo_req_post->set_header_field( name = ‘Content-Type’ value = ‘application/json’ ).
lo_req_post->set_header_field( name = ‘Accept’ value = ‘application/json’ ).
lo_req_post->set_text( lv_json_body ).

” === Execute POST ===
lo_response = lo_http_client->execute(
i_method = if_web_http_client=>post
i_relative_url = ‘/sap/opu/odata/sap/ZDEMO_EHS_SRV/C_RawMatInfoSet’ ).

lv_status_code = lo_response->get_status( ).
rv_status_text = |{ lv_status_code } { lo_response->get_status_text( ) }|.

CATCH cx_root INTO DATA(lx_any).
rv_status_text = lx_any->get_text( ).
ENDTRY.

ENDMETHOD.

“———————————————————————-
” 4. JSON Serializer Utility
“———————————————————————-
METHOD convert_to_json.
ev_json = /ui2/cl_json=>serialize(
EXPORTING
data = it_data
conversion_exits = abap_true
pretty_name = /ui2/cl_json=>pretty_mode-camel_case ).
ENDMETHOD.

ENDCLASS.

• Secure HTTP communication via BTP destinations
• CSRF token handling
• JSON serialization/deserialization
• Clean separation between connection setup and data retrieval

Code:

CLASS /iap/cl_intelligent_matching DEFINITION
PUBLIC FINAL
CREATE PUBLIC.

PUBLIC SECTION.

“———————————————————————-
” Structure for API Response (Raw Material Compliance Info)
“———————————————————————-
TYPES: BEGIN OF ty_rawmat_result,
uuid TYPE string, ” Unique ID of the record
material_id TYPE string, ” Material number
material_name TYPE string, ” Material description
material_group TYPE string, ” Material group code
material_group_name TYPE string, ” Material group name
is_active TYPE abap_bool, ” Active status flag
END OF ty_rawmat_result.

“———————————————————————-
” Public Methods
“———————————————————————-
CLASS-METHODS:
create_client_proxy
RETURNING VALUE(ro_client_proxy) TYPE REF TO /iwbep/if_cp_client_proxy,

get_rawmat_data
RETURNING VALUE(rt_rawmat_data) TYPE STANDARD TABLE OF ty_rawmat_result,

convert_to_json
IMPORTING it_data TYPE any
EXPORTING ev_json TYPE string.

PRIVATE SECTION.
CONSTANTS:
c_destination TYPE string VALUE ‘DEMO_EHS_DEST’. ” Destination configured in BTP Cockpit

ENDCLASS.

CLASS /iap/cl_intelligent_matching IMPLEMENTATION.

“———————————————————————-
” 1. Create OData V4 Client Proxy
“———————————————————————-
METHOD create_client_proxy.

TRY.
” Create destination object from BTP destination service
DATA(lo_destination) = cl_http_destination_provider=>create_by_cloud_destination(
i_name = c_destination
i_authn_mode = if_a4c_cp_service=>service_specific ).

” Create HTTP client for communication
DATA(lo_http_client) = cl_web_http_client_manager=>create_by_http_destination( lo_destination ).

” Create remote OData V4 proxy for the target service
ro_client_proxy = /iwbep/cl_cp_factory_remote=>create_v4_remote_proxy(
is_proxy_model_key = VALUE #(
repository_id = ‘DEFAULT’
proxy_model_id = ‘/IAP/CHM_SCM_IM’
proxy_model_version = ‘0001’ )
io_http_client = lo_http_client
iv_relative_service_root = ‘/sap/opu/odata/sap/ZDEMO_EHS_SRV/’ ). ” Demo endpoint

CATCH cx_http_dest_provider_error INTO DATA(lx_dest_err).
MESSAGE lx_dest_err->get_text( ) TYPE ‘E’.
CATCH cx_root INTO DATA(lx_root).
MESSAGE lx_root->get_text( ) TYPE ‘E’.
ENDTRY.

ENDMETHOD.

“———————————————————————-
” 2. Fetch Raw Material Data from External API
“———————————————————————-
METHOD get_rawmat_data.

DATA: lo_destination TYPE REF TO if_http_destination,
lo_http_client TYPE REF TO if_web_http_client,
lo_response TYPE REF TO if_web_http_response,
lv_json TYPE string,
lv_http_status TYPE i.

TRY.
” Obtain HTTP destination (configured in BTP cockpit)
lo_destination = cl_http_destination_provider=>create_by_cloud_destination(
i_name = c_destination
i_authn_mode = if_a4c_cp_service=>service_specific ).

lo_http_client = cl_web_http_client_manager=>create_by_http_destination( lo_destination ).

” === Step 1: Fetch CSRF Token ===
DATA(lo_req_token) = lo_http_client->get_http_request( ).
lo_req_token->set_header_field( name = ‘X-CSRF-Token’ value = ‘Fetch’ ).

DATA(lo_resp_token) = lo_http_client->execute( if_web_http_client=>get ).
DATA(lv_csrf_token) = lo_resp_token->get_header_field( ‘X-CSRF-Token’ ).

” === Step 2: Perform GET Request to Demo API ===
DATA(lo_req_get) = lo_http_client->get_http_request( ).
lo_req_get->set_header_field( name = ‘X-CSRF-Token’ value = lv_csrf_token ).
lo_req_get->set_header_field( name = ‘Accept’ value = ‘application/json’ ).

lo_response = lo_http_client->execute(
i_method = if_web_http_client=>get
i_relative_url = ‘/sap/opu/odata/sap/ZDEMO_EHS_SRV/C_RawMatInfoSet’ ). ” Demo path

lv_http_status = lo_response->get_status( ).

IF lv_http_status = 200.
lv_json = lo_response->get_text( ).

/ui2/cl_json=>deserialize(
EXPORTING json = lv_json
CHANGING data = rt_rawmat_data ).

ELSE.
MESSAGE |HTTP Error { lv_http_status }: { lo_response->get_status_text( ) }| TYPE ‘E’.
ENDIF.

CATCH cx_http_dest_provider_error INTO DATA(lx_dest_error).
MESSAGE lx_dest_error->get_text( ) TYPE ‘E’.

CATCH cx_web_http_client_error INTO DATA(lx_http_error).
MESSAGE lx_http_error->get_text( ) TYPE ‘E’.

CATCH cx_root INTO DATA(lx_any).
MESSAGE lx_any->get_text( ) TYPE ‘E’.
ENDTRY.

ENDMETHOD.

“———————————————————————-
” 3. Convert Any ABAP Data Structure to JSON String
“———————————————————————-
METHOD convert_to_json.
ev_json = /ui2/cl_json=>serialize(
EXPORTING
data = it_data
conversion_exits = abap_true
pretty_name = /ui2/cl_json=>pretty_mode-camel_case ).
ENDMETHOD.

ENDCLASS.

It is a utility class that provides a static method get_client_proxy to connect to the external OData V2 service API_PRODUCT_SRV via the BTP cloud destination iaapinc.
The method:

• Reads the cloud destination,
• Creates an HTTP client,
• Builds an OData V2 proxy (/iwbep/if_cp_client_proxy) based on proxy model /IAP/CHM_SCM_PRODUCT,
• Returns this proxy so other classes can easily consume the Product API without handling low-level HTTP setup.

👉 In short: It’s a helper to simplify access to the Product OData API in SAP BTP ABAP.

• Transaction code: SEGW

• Steps:

  1. Create a new project in SEGW.

  2. Define Data Model (Entity Types & Entity Sets).

  3. Map Entities to ABAP structures/tables.

  4. Implement CRUD operations in DPC (Data Provider Class).

  5. Register and activate the service in /IWFND/MAINT_SERVICE.

• ✅ Use Case: Legacy SAP systems, custom OData for ECC or S/4HANA on-prem.

• ❌ Limitation: Manual coding, more effort, less aligned with modern RAP.

2. From ABAP CDS Views (Annotation-Based Exposure)

• Use annotation:

@OData.publish: true
define view entity Z_SalesOrder as select from I_SalesOrder { … }

• The CDS View is automatically published as an OData service.

• Then activate the service in /IWFND/MAINT_SERVICE.

• ✅ Use Case: Quick and simple OData exposure from CDS Views.

• ❌ Limitation: Only read-only services, no transactional behavior.

3. Using the RAP (RESTful ABAP Programming Model)

• RAP provides managed OData services with end-to-end support:

  1. Define CDS Data Model (Root & Projection Views).

  2. Define Behavior Definition (CRUD operations, determinations, validations).

  3. Create Service Definition to expose data.

  4. Create Service Binding (OData V2/V4) and publish.

• ✅ Use Case: Modern SAP S/4HANA Cloud / On-Prem for transactional + analytical apps.

• ❌ Limitation: Available only in S/4HANA and requires ABAP on Eclipse (ADT).

4. Using SAP Gateway Service Builder + RFC/BAPI

• Wrap an RFC or BAPI in SEGW to expose as OData.

• Often used in integration scenarios.

• ✅ Use Case: Exposing existing RFC/BAPIs as REST APIs.

• ❌ Limitation: Old-school approach, less future-proof.

What is BAPI?

• BAPI is a function module that is RFC-enabled (Remote Function Call).
• It enables integration of SAP with non-SAP systems, third-party software, or other SAP modules.
• Used in object-oriented programming in SAP: Each BAPI is associated with a Business Object Repository (BOR) object.

Typical Use Cases

• Create or update business objects (e.g., customer, material, sales order).
• Query data like inventory, employee details, etc.
• Interface SAP with mobile apps, web services, or middleware.

Advantages of BAPI

• Standardized and reusable
• Secure and consistent data handling
• Easier integration with external apps
• Promotes loosely-coupled architecture

Examples: Business Object: BUS2012
BAPI Used: BAPI_PO_CREATE

Steps to Create an ODATA Project in SEGW

Step 1: Open Transaction SEGW

• Go to the SAP GUI command field.
• Type SEGW and press Enter.

You’ll be taken to the Gateway Service Builder screen.

Step 2: Create a New Project

•   Click the Create Project icon (white sheet of paper).
• A popup will appear asking for:
  • Project Name (e.g., ZSALES_ODATA)
  • Description (e.g., “Sales Header and Items OData Service”)
  • Package (use $TMP for local/temporary if you’re just testing)
  • Transport Request (if using a package)

Hit Continue (✓).

(Visual reference: You’ll see folders like Data Model, Service Implementation, Runtime Artifacts on the left side.)