ABAP

  data: lo_model1 type ref to if_usmd_model_ext,          lo_model  type ref to cl_usmd_model_ext.     if iv_partner is not initial.       ls_sel-sign      = ‘I’.      ls_sel-option    = ‘EQ’.      ls_sel-fieldname = ‘BP_HEADER’.      ls_sel-low       = iv_partner.      insert ls_sel into table lt_sel.       ls_sel-fieldname = usmd0_cs_fld-fieldname_objlist.      ls_sel-low       = ‘BP_HEADER’.      insert ls_sel into table lt_sel.       call method cl_usmd_model_ext=>get_instance        exporting          i_usmd_model = ‘BP’        importing          eo_instance  = lo_model1.       if lo_model1 is not bound.        return.      endif.      lo_model ?= lo_model1.       lo_model->if_usmd_model_ext~read_char_value            ( exporting i_fieldname = usmd0_cs_fld-crequest                       it_sel      = lt_sel                       if_no_flush = abap_true             importing et_data     = lt_objlist ).       if lt_objlist is not initial.        describe table lt_objlist lines data(lv_count).        read table lt_objlist index lv_count into ls_objlist.        if sy-subrc = 0.           select single * from usmd120c into ls_usmd120c          where usmd_crequest = ls_objlist-usmd_crequest.          if sy-subrc = 0.            move-corresponding ls_usmd120c to es_crequest.          endif.        endif.      endif.    endif.

CALL METHOD lo_gov_api->if_usmd_gov_api_cr_data~get_notes                EXPORTING                  iv_crequest_id   = iv_cr_no                RECEIVING                  rt_crequest_note = lt_note.

DATA :lo_model1      TYPE REF TO if_usmd_model_ext,      lo_model       TYPE REF TO cl_usmd_model_ext,  CALL METHOD cl_usmd_model_ext=>get_instance          EXPORTING            i_usmd_model = ‘BP’          IMPORTING            eo_instance  = lo_model1 IF lo_model1 IS NOT BOUND.          RETURN.        ENDIF.        lo_model ?= lo_model1. ls_sel-fieldname = usmd0_cs_fld-crequest.        ls_sel-sign   = usmd0_cs_ra-sign_i.        ls_sel-option = usmd0_cs_ra-option_eq.        ls_sel-low    = iv_crequest.        INSERT ls_sel INTO TABLE lt_sel. lo_model->if_usmd_model_ext~read_char_value(           EXPORTING             i_fieldname       = usmd0_cs_fld-crequest             it_sel            = lt_sel             if_no_flush       = abap_false           IMPORTING             et_data           = lt_object_list             et_message        = lt_message ). LOOP AT lt_object_list INTO ls_object_list WHERE usmd_entity_obj = ‘BP_HEADER’.             CLEAR ls_sel.            ls_sel-fieldname = ‘BP_HEADER’.            ls_sel-sign   = usmd0_cs_ra-sign_i.            ls_sel-option = usmd0_cs_ra-option_eq.            WRITE ls_object_list-usmd_value TO ls_sel-low.            INSERT ls_sel INTO TABLE lt_sel.          ENDLOOP.  CALL METHOD lo_model->if_usmd_model_ext~create_data_reference   “create_data_reference           EXPORTING             i_fieldname     =  lv_fieldname             i_struct        =  ‘KATTR’                 i_tabtype       =  ‘S’                   IMPORTING             er_data         = lo_data1.         ASSIGN lo_data1->* TO <lfs_lt_data>. CALL METHOD lo_model->if_usmd_model_ext~read_char_value(             EXPORTING               i_fieldname   = <Entity name>               it_sel        = lt_sel               i_readmode    =  ‘3’                   if_no_flush   = abap_false             IMPORTING               et_data       = <lfs_lt_data>               et_message    = lt_message ).

DATA: lo_model TYPE REF TO if_usmd_model_ext,ls_sel TYPE usmd_s_sel,lt_sel TYPE usmd_ts_sel,lt_crequest TYPE SORTED TABLE OF usmd_s_crequestWITH UNIQUE KEY usmd_crequest,lt_message TYPE usmd_t_message. CALL METHOD cl_usmd_model_ext=>get_instanceEXPORTINGi_usmd_model =IMPORTINGeo_instance = lo_modelet_message = et_message. IF lo_model IS BOUND.ls_sel-fieldname = usmd0_cs_fld-crequest.ls_sel-sign = usmd0_cs_ra-sign_i.ls_sel-option = usmd0_cs_ra-option_eq.ls_sel-low = iv_creq_id.INSERT ls_sel INTO TABLE lt_sel.ENDIF. lo_model->read_char_value(EXPORTINGi_fieldname = usmd0_cs_fld-crequestit_sel = lt_selif_no_flush = abap_trueIMPORTINGet_data = lt_crequestet_message = lt_message

CONSTANTS: lv_function_id TYPE if_fdt_types=>id VALUE . ls_name_value-name = .GET REFERENCE OF var1 INTO ls_name_value-value.INSERT ls_name_value INTO TABLE lt_name_value. ls_name_value-name = .GET REFERENCE OF var2 INTO ls_name_value-value.INSERT ls_name_value INTO TABLE lt_name_value. cl_fdt_function_process=>get_data_object_reference(EXPORTINGiv_function_id = lv_function_idiv_data_object = ‘_V_RESULT’iv_timestamp = lv_timestampiv_trace_generation = abap_falseIMPORTINGer_data = lr_data ). ASSIGN lr_data->* TO . TRY.cl_fdt_function_process=>process(EXPORTINGiv_function_id = lv_function_idiv_timestamp = lv_timestampIMPORTINGea_result =CHANGINGct_name_value = lt_name_value ).

cl_usmd_adapter_provider=>get_chg_document_adapter(EXPORTINGi_usmd_model = ‘BP’ ” Data ModelIMPORTINGeo_chg_doc_adapter = lo_chg_doc ). ls_entity_value-fieldname = ‘BP_HEADER’.ls_entity_value-value = lv_partner. lo_chg_doc->read_document_header(EXPORTINGi_entity = ‘BP_HEADER’it_entity_value = lt_entity_valueif_mark_rollback_entities = abap_trueIMPORTINGet_document_header = lt_doc_header ). lo_chg_doc->read_document_lines(

CALL METHOD lo_model->create_data_referenceEXPORTINGi_fieldname =i_struct = if_usmd_model=>gc_struct_key_attrRECEIVINGer_data = DATA(lr_data1). ASSIGN lr_data1->* TO . ls_sel-fieldname = .ls_sel-option = ‘EQ’.ls_sel-sign = ‘I’.ls_sel-low = . INSERT ls_sel INTO TABLE lt_sel. CALL METHOD lo_model->read_char_valueEXPORTINGi_fieldname =it_sel = lt_selIMPORTINGet_data =et_message = DATA(lt_message3).

” Step 1: Instantiate the Governance APIDATA: go_gov_api TYPE REF TO cl_usmd_gov_api. go_gov_api ?= cl_usmd_gov_api=>get_instance(iv_model_name = ” e.g., ‘BP’, ‘MM’, etc.). ” Step 2: Create the Change Request (CR)DATA: lv_crequest_id TYPE usmd_crequest_id. CALL METHOD go_gov_api->if_usmd_gov_api_cr_data~create_crequestEXPORTINGiv_crequest_type = ” e.g., ‘ZBP1’iv_description = ” Description of CRRECEIVINGrv_crequest_id = lv_crequest_id. ” Step 3: Add an attachment to the CRDATA: