larshp

  DATA(lt_list) = cl_srt_wsp_account_factory=>if_srt_wsp_account_factory~list( ).

  DATA(li_account) = cl_srt_wsp_account_factory=>if_srt_wsp_account_factory~get_user_account(
    im_user_account_name = 'NAME'
    im_user_account_type = 'LOCAL' ).

  li_account->get_service_user_credentials(
    IMPORTING
      ex_username = DATA(lv_username)

larshp

INCLUDE mm61xval.

START-OF-SELECTION.
  PERFORM run.


FORM run.

  DATA: ls_mt61d TYPE mt61d,
        ls_cm61x TYPE cm61x,

larshp

Escape::
ExitApp
Return
#n:: ; Windows Key + N
index := 1
text = 
Loop, read, C:\Users\Desktop\input.txt
{
    Loop, parse, A_LoopReadLine, %A_Tab%
    {

larshp

  METHOD zif_abapgit_exit~http_client.

    DATA: lv_ticket   TYPE text4096,
          ls_bapiret2 TYPE bapiret2.
* Or create RFC calling function module CREATE_RFC_REENTRANCE_TICKET          
    CALL FUNCTION '/PLMI/EASYDMS_CREATE_SSOTICKET'
      DESTINATION 'SOMETHING'
      IMPORTING
        ev_ticket             = lv_ticket
        es_return             = ls_bapiret2

larshp

MERGE INTO Target_Table AS t
  USING 
    (SELECT Field1=?, Field2=?, Field3=?, Field4=?) AS s
  ON t.Field1 = s.Field1
  WHEN MATCHED THEN
    UPDATE SET 
      Field1=s.Field1, 
      Field2=s.Field2, 
      Field3=s.Field3, 
      Field4=s.Field4

larshp

MERGE INTO schema.table t 
USING 
  (SELECT ? field1, ? field2 FROM dual) s
ON 
  (t.field1 = s.field1) 
WHEN MATCHED THEN 
  UPDATE SET t.field2 = s.field2
WHEN NOT MATCHED THEN 
  INSERT (field1, field2) values (s.field1, s.field2)

larshp

  METHOD zif_abapgit_exit~change_tadir.

* this cherry picks objects from different packages into a dummy package
* make sure to enable write protection for the repository
* and dont do this setup :)

    TYPES: BEGIN OF ty_object_and_name,
             type TYPE tadir-object,
             name TYPE tadir-obj_name,
           END OF ty_object_and_name.

larshp

REPORT zupdate_credit.
* quick and dirty

PARAMETERS p_part TYPE ukmbp_cms_sgm-partner OBLIGATORY.
PARAMETERS p_segm TYPE ukmbp_cms_sgm-credit_sgmnt OBLIGATORY.
PARAMETERS p_limit TYPE ukmbp_cms_sgm-credit_limit OBLIGATORY.

START-OF-SELECTION.
  PERFORM run.

larshp

  DATA(lo_stru1) = CAST cl_abap_structdescr( cl_abap_typedescr=>describe_by_name( 'VEKPVB' ) ).
  DATA(lo_stru2) = CAST cl_abap_structdescr( cl_abap_typedescr=>describe_by_name( 'E1EDL37' ) ).
  DATA(lt_components1) = lo_stru1->get_components( ).
  DATA(lt_components2) = lo_stru2->get_components( ).

  DATA(lt_list1) = lo_stru1->get_ddic_field_list( p_including_substructres = abap_true ).
  DATA(lt_list2) = lo_stru2->get_ddic_field_list( p_including_substructres = abap_true ).

  DATA(lv_count) = 0.
  LOOP AT lt_list1 INTO DATA(ls_list1).

larshp

CLASS zcl_bcat_api_ecatt DEFINITION
  PUBLIC
  FINAL
  CREATE PUBLIC .

  PUBLIC SECTION.

    CLASS-METHODS create_script .
    CLASS-METHODS delete_container .
    CLASS-METHODS delete_script .