Untitled

 avatar
unknown
plain_text
5 months ago
1.3 kB
2
Indexable
  METHOD /iwbep/if_mgw_appl_srv_runtime~create_deep_entity.

    DATA: lv_entity_set_name TYPE /iwbep/mgw_tech_name.

    TYPES : BEGIN OF ts_deep_data.
              INCLUDE TYPE zcl_zappa_ssc_top_spli_mpc=>ts_aliginfo.
              TYPES: articles TYPE STANDARD TABLE OF zcl_zappa_ssc_top_spli_mpc=>ts_articles WITH DEFAULT KEY,
            END OF ts_deep_data.

    DATA lr_alloc_sim TYPE REF TO zarp_cl_int_alloc_sim.
    DATA ls_ssc_output TYPE zappa_ssc_top_sty.
**  DATA ls_deep_data TYPE ts_deep_data. "commented as part of DSCAE-479
    DATA ls_deep_data TYPE zappa_ssc_top_sty. "DSCAE-479 changing the strucutre as the old structure dont work any more

* Get Entity Set Name
    lv_entity_set_name     = io_tech_request_context->get_entity_set_name( ).

* Read input data
    io_data_provider->read_entry_data(
       IMPORTING
         es_data = ls_deep_data ).

    ls_ssc_output = ls_deep_data.

* Call SSC ToP calculation
    CREATE OBJECT lr_alloc_sim.
    CALL METHOD lr_alloc_sim->process_ssc_top_split
*      IMPORTING
*        es_header    = ls_deep_data
      CHANGING
        cs_ssc_input = ls_ssc_output.

* Transfer back the data
    copy_data_to_ref( EXPORTING is_data = ls_ssc_output
                   CHANGING  cr_data = er_deep_entity ).
  ENDMETHOD.
Editor is loading...
Leave a Comment