Skip to content

Instantly share code, notes, and snippets.

View larshp's full-sized avatar
🤷‍♂️
ABAP and more ABAP 拉尔斯

Lars Hvam larshp

🤷‍♂️
ABAP and more ABAP 拉尔斯
View GitHub Profile
@larshp
larshp / zcl_ci_naming.abap
Created July 7, 2014 13:35
"Inherit" from CL_CI_TEST_ABAP_NAMING_NEW
class ZCL_CI_NAMING definition
public
inheriting from CL_CI_TEST_INCLUDE
final
create public .
public section.
methods CONSTRUCTOR .
@larshp
larshp / adler32.abap
Created June 18, 2014 14:35
Adler32 checksum implemented in ABAP, see http://en.wikipedia.org/wiki/Adler-32
TYPES: t_checksum TYPE x LENGTH 4.
FORM adler32 USING pv_xstring TYPE xstring
CHANGING cv_checksum TYPE t_checksum.
CONSTANTS: c_adler TYPE i VALUE 65521.
DATA: lv_index TYPE i,
lv_a TYPE i VALUE 1,