Lars Hvam larshp

🤷‍♂️

ABAP and more ABAP 拉尔斯

larshp / zdelete.abap

Created March 7, 2017 20:02

	REPORT zdelete.

	INCLUDE zabapgit_definitions.

	TABLES: tdevc.

	SELECT-OPTIONS: s_devc FOR tdevc-devclass.

	START-OF-SELECTION.
	PERFORM run.

larshp / zdump.abap

Last active August 20, 2023 04:14

dump a package to ZIP using abapGit


	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 / exception.abap

Last active May 8, 2018 13:45

Check exception type

	cl_message_helper=>check_msg_kind(
	EXPORTING
	msg = ir_exception
	IMPORTING
	t100key = DATA(ls_t100key) )



	methods TO_FPM_SEARCH_ERROR
	importing

larshp / zcode_inspector_anon.abap

Last active July 31, 2017 10:57

Anonymous code inspector run

	REPORT ztest.

	START-OF-SELECTION.
	PERFORM run.

	FORM run.

	DATA(lt_objects) = VALUE scit_objs( (
	objtype = 'CLAS'
	objname = 'ZCL_CI_ABAP_NAMING' ) ).

larshp / packed_to_hex.abap

Last active January 17, 2022 15:52

	METHOD convert.

	DATA lv_packed TYPE p LENGTH 4.
	FIELD-SYMBOLS <lv_hex> TYPE x.

	lv_packed = iv_int.
	ASSIGN lv_packed TO <lv_hex> CASTING TYPE x.
	rv_xstr = <lv_hex>.

	ENDMETHOD.

larshp / zfib1.abap

Last active October 17, 2017 12:39

	REPORT zfib01.
	PARAMETERs: p_n TYPE i DEFAULT 13.
	START-of-SELECTION.
	PERform run.
	DATA: r TYPE i, b.
	FORM run.
	PERFORM f USING p_n r.
	WRITE r.
	ENDFORM.
	* this form calculates fibonac numbers

larshp / openoffice_bootstrap.java

Created October 25, 2017 12:41

	List oooOptions = OOoServer.getDefaultOOoOptions();
	oooOptions.add("-nofirststartwizard");
	oooOptions.add("-headless");
	OOoServer oooServer = new OOoServer(openoffice, oooOptions);
	BootstrapSocketConnector bootstrapSocketConnector = new BootstrapSocketConnector(oooServer);
	xContext = bootstrapSocketConnector.connect();

larshp / classrun.abap

Created March 17, 2018 08:50

	CLASS ltcl_test DEFINITION FOR TESTING DURATION SHORT RISK LEVEL HARMLESS FINAL.

	PUBLIC SECTION.
	INTERFACES:
	if_oo_adt_intrnl_classrun PARTIALLY IMPLEMENTED.

	PRIVATE SECTION.
	METHODS: main FOR TESTING.

	ENDCLASS. "ltcl_Test

larshp / zreentrance_ticket.abap

Last active March 17, 2018 11:49

	REPORT zreentrance_ticket.

	START-OF-SELECTION.
	PERFORM run.

	FORM run.

	DATA: lv_ticket TYPE string.

	CALL FUNCTION 'CREATE_RFC_REENTRANCE_TICKET'

larshp / FOR.abap

Created April 11, 2018 13:34


	DATA(lt_plants) = VALUE range_t_werks_d(
	FOR ls_plant IN get_plants( )
	( option = 'EQ' sign = 'I' low = ls_plant-werks ) ).