larshp

  METHOD mgf1.

* https://en.wikipedia.org/wiki/Mask_generation_function

    DATA lv_counter TYPE i.
    DATA lv_sha1    TYPE xstring.
    DATA lv_xstr    TYPE xstring.
    DATA lv_c       TYPE x LENGTH 4.

    WHILE xstrlen( rv_mask ) < iv_length.

larshp

REPORT zlocals.

DATA lt_locals TYPE STANDARD TABLE OF i WITH DEFAULT KEY.
FIELD-SYMBOLS <val> TYPE i.
DATA: BEGIN OF ls_locals,
        val1   TYPE i,
        val2   TYPE i,
        val3   TYPE i,
        val4   TYPE i,
        val5   TYPE i,

larshp

CONSTANTS lc_iterations TYPE i VALUE 5000.
DATA hex TYPE x LENGTH 4.
DATA str TYPE string.

GET RUN TIME FIELD DATA(lv_start).
DO lc_iterations TIMES.
  hex = '11223344'.
  str = hex.
  str = reverse( str ).
  hex = str.

larshp

DATA(lo_ddl) = NEW zcl_abapgit_object_tabl_ddl( ).
SELECT obj_name FROM tadir WHERE pgmid = 'R3TR' AND object = 'TABL' AND masterlang = 'E' INTO TABLE @DATA(lt_tadir).
LOOP AT lt_tadir INTO DATA(ls_tadir).
*  IF ls_tadir-obj_name <> 'SOMETHING'.
*    CONTINUE.
*  ENDIF.

  IF sy-tabix MOD 10 = 0.
    cl_progress_indicator=>progress_indicate(
      i_text               = |{ sy-tabix }/{ lines( lt_tadir ) }|

larshp

* GUID v4 implementation in ABAP

* Also see SAP note 2619546 !

* https://answers.sap.com/questions/11928657/generating-uuid-in-abap.html
* http://www.cryptosys.net/pki/uuid-rfc4122.html
* https://tools.ietf.org/html/rfc4122#page-14

DATA guid TYPE c LENGTH 36.
DATA hex TYPE x LENGTH 16.

larshp

  METHOD zif_abapgit_exit~wall_message_repo.

    DATA(lv_url) = is_repo_meta-url.

    DATA(lo_agent) = zcl_abapgit_factory=>get_http_agent( ).

    IF zcl_abapgit_login_manager=>get( lv_url ) IS NOT INITIAL.
      lo_agent->global_headers( )->set(
        iv_key = 'Authorization'
        iv_val = zcl_abapgit_login_manager=>get( lv_url ) ).

larshp

FORM package USING iv_package TYPE devclass.

  DATA: ls_data TYPE ty_repo,
        lo_repo TYPE REF TO object,
        lv_xstr TYPE xstring,
        lt_zip  TYPE ty_files_item_tt.

  FIELD-SYMBOLS: <ls_zip> LIKE LINE OF lt_zip.

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

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

larshp

* create a return order given sales order
* and update the return order with order reason

DATA lv_vbeln      TYPE vbak-vbeln.
DATA lt_return     TYPE STANDARD TABLE OF bapiret2 WITH EMPTY KEY.
DATA ls_header_in  TYPE bapisdh1.
DATA ls_header_inx TYPE bapisdh1x.

CALL FUNCTION 'BAPI_SALESDOCUMENT_COPY'
  EXPORTING